質問編集履歴
1
以下のイベントプロシージャを追加したのですが何も起きませんでした。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -55,4 +55,42 @@
|
|
|
55
55
|
テキストボックスの変数が現在expaとなっていますが、増えた項目はそれぞれ異なる変数としたく、左上の「反映」ボタンでセルに記載したいです。
|
|
56
56
|
|
|
57
57
|
アドバイスいただければ幸いです。
|
|
58
|
-
よろしくおい願いします。
|
|
58
|
+
よろしくおい願いします。
|
|
59
|
+
|
|
60
|
+
～追記～
|
|
61
|
+
以下のイベントプロシージャを追加したのですが何も起きません。
|
|
62
|
+
Public を付けてみたり adbtn_Click() を ad_Click()(モジュール名)に変更したりと色々試したのですが、ボタンを押しても反応させることが出来ませんでした。
|
|
63
|
+
原因などアドバイスいただければ幸いです。
|
|
64
|
+
```ここに言語を入力
|
|
65
|
+
Public Sub adbtn_Click()
|
|
66
|
+
With NForm
|
|
67
|
+
With .Controls.Add("Forms.Label.1", "LEX", True) 'ｼﾞｬﾝﾙ
|
|
68
|
+
.Top = 202 'Top位置(表示位置を移動する)
|
|
69
|
+
.Left = 10 'Left位置
|
|
70
|
+
.Height = 20 '高さ
|
|
71
|
+
.Width = 50 '幅
|
|
72
|
+
.BackColor = 25 '背景色
|
|
73
|
+
.BackStyle = 0
|
|
74
|
+
.ForeColor = 1 '文字色
|
|
75
|
+
.Font.Name = "メイリオ" 'テキストのスタイル
|
|
76
|
+
.TextAlign = 2 'テキストの位置
|
|
77
|
+
.FontSize = 16 'テキストのサイズ
|
|
78
|
+
.Caption = "内容"
|
|
79
|
+
End With
|
|
80
|
+
With .Controls.Add("Forms.TextBox.1", "TEX", True) 'ｼﾞｬﾝﾙﾗﾍﾞﾙ
|
|
81
|
+
.Top = 202
|
|
82
|
+
.Left = 70 'Left位置
|
|
83
|
+
.Height = 20 '高さ
|
|
84
|
+
.Width = 250 '幅
|
|
85
|
+
.BorderStyle = fmBorderStyleSingle '枠線
|
|
86
|
+
.BackColor = RGB(255, 255, 255) '背景色
|
|
87
|
+
.ForeColor = RGB(0, 0, 0) '文字色
|
|
88
|
+
.Font.Name = "メイリオ" 'テキストのスタイル
|
|
89
|
+
.TextAlign = 2 'テキストの位置
|
|
90
|
+
.FontSize = 10 'テキストのサイズ
|
|
91
|
+
.Text = "テスト" '表示のテキスト
|
|
92
|
+
End With
|
|
93
|
+
End With
|
|
94
|
+
End Sub
|
|
95
|
+
```
|
|
96
|
+
よろしくお願いします。
|