回答編集履歴
2
位置変更
test
CHANGED
|
@@ -50,6 +50,8 @@
|
|
|
50
50
|
|
|
51
51
|
Set NewB = UserForm2.Controls.Add("Forms.CommandButton.1", "url" & n, True)
|
|
52
52
|
|
|
53
|
+
Call ctrlBtn(n).SetCtrl(NewB)
|
|
54
|
+
|
|
53
55
|
NewB.Top = 34 * n
|
|
54
56
|
|
|
55
57
|
NewB.Left = 10
|
|
@@ -59,10 +61,6 @@
|
|
|
59
61
|
NewB.Width = 50
|
|
60
62
|
|
|
61
63
|
NewB.Caption = "copy"
|
|
62
|
-
|
|
63
|
-
NewB.TakeFocusOnClick = True
|
|
64
|
-
|
|
65
|
-
Call ctrlBtn(n).SetCtrl(NewB)
|
|
66
64
|
|
|
67
65
|
Row = Row + 1
|
|
68
66
|
|
1
VBA
test
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
|
|
3
3
|
Classモジュール名:EventButtonClass
|
|
4
4
|
|
|
5
|
-
```VBA
|
|
5
|
+
```VBA
|
|
6
6
|
|
|
7
7
|
'(Test_Sample_Miniature)
|
|
8
8
|
|
|
@@ -74,7 +74,7 @@
|
|
|
74
74
|
|
|
75
75
|
```
|
|
76
76
|
|
|
77
|
-
```
|
|
77
|
+
```Class
|
|
78
78
|
|
|
79
79
|
Private WithEvents tgtCtrl As MSForms.CommandButton
|
|
80
80
|
|