質問編集履歴
1
半角カナを全角カナに修正しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,42 +1,42 @@
|
|
|
1
|
-
基本的な
|
|
1
|
+
基本的なクラスの使い方について質問です。
|
|
2
2
|
|
|
3
|
-
command
|
|
3
|
+
commandボタンのコントロールをクラスに格納する時の手順(コードの書き方)として以下のように記憶していました。
|
|
4
4
|
|
|
5
5
|
```ここに言語を入力
|
|
6
6
|
|
|
7
|
-
【
|
|
7
|
+
【ユーザーフォーム：上部】
|
|
8
8
|
|
|
9
|
-
Private
|
|
9
|
+
Private コントロール名 As New クラス名(クラスの題名)
|
|
10
10
|
|
|
11
11
|
|
|
12
12
|
|
|
13
|
-
【
|
|
13
|
+
【ユーザーフォーム：下部】
|
|
14
14
|
|
|
15
|
-
Dim
|
|
15
|
+
Dim ボタン名 As CommandButton
|
|
16
16
|
|
|
17
|
-
Set
|
|
17
|
+
Set ボタン名 = フォーム名.Controls.Add("Forms.CommandButton.1", オブジェクト名, True)
|
|
18
18
|
|
|
19
|
-
Call
|
|
19
|
+
Call コントロール名(ボタン名)
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
-
|
|
23
|
+
フォーム名.Controls.Add("Forms.CommandButton.1", オブジェクト名, True).Top
|
|
24
24
|
|
|
25
|
-
...省略(以下
|
|
25
|
+
...省略(以下ボタンのプロパティ)
|
|
26
26
|
|
|
27
27
|
End Sub
|
|
28
28
|
|
|
29
29
|
|
|
30
30
|
|
|
31
|
-
【
|
|
31
|
+
【クラスモジュール：上部】
|
|
32
32
|
|
|
33
33
|
Private WithEvents ｺﾝﾄﾛｰﾙ名 As MSForms.CommandButton
|
|
34
34
|
|
|
35
35
|
|
|
36
36
|
|
|
37
|
-
【
|
|
37
|
+
【クラスモジュール：下部】
|
|
38
38
|
|
|
39
|
-
Private Sub
|
|
39
|
+
Private Sub ボタン名_Click()
|
|
40
40
|
|
|
41
41
|
～処理～
|
|
42
42
|
|
|
@@ -44,7 +44,7 @@
|
|
|
44
44
|
|
|
45
45
|
```
|
|
46
46
|
|
|
47
|
-
これをふまえ、以下の様なコードを作成しましたが、「変数ではなく
|
|
47
|
+
これをふまえ、以下の様なコードを作成しましたが、「変数ではなくプロシージャを指定してください。」というエラーが発生してしまいます。
|
|
48
48
|
|
|
49
49
|
（問題個所にコメントで「※ここです」と記載しました。）
|
|
50
50
|
|
|
@@ -98,7 +98,7 @@
|
|
|
98
98
|
|
|
99
99
|
Private Sub ctrlhenk_Click()
|
|
100
100
|
|
|
101
|
-
MsgBox "
|
|
101
|
+
MsgBox "データ飛びました"
|
|
102
102
|
|
|
103
103
|
End Sub
|
|
104
104
|
|