teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問Visual studioのVBでDataGridViewTextBoxColumn1について

編集履歴

質問編集履歴

2

修正

2018/06/15 12:29

投稿

退会済みユーザー
test CHANGED
@@ -1 +1 @@
1
- Visual studioのVBで「セーブエディター」を作ろうと思ってます
1
+ Visual studioのVBでDataGridViewTextBoxColumn1について
test CHANGED
@@ -1,26 +1,82 @@
1
- こんにちは。
2
-
3
- あるゲームのセーブエディターを作ろうと思ってます。
4
-
5
- 今から5、8年前にあったサイトからの元ソースコード（Delphiで作成されたもの）を
1
+ DataGridViewTextBoxColumn1についてわからないことがありました。
6
-
7
- VBに書き直ししようと思ってます。
8
-
9
- ~~デザインがうまくできずにいます。~~
10
-
11
- 解決しました。
12
2
 
13
3
 
14
4
 
15
- ----
5
+ ```ここに言語を入力
16
6
 
17
- ##元ソースコード
7
+ form1
18
8
 
19
- dmf(デザイン）[ダウンロード](https://img.atwikiimg.com/www65.atwiki.jp/kon11a/attach/54/5/SO1_U.dfm.txt)
20
9
 
21
- pas(ソースコード）[ダウンロード
22
10
 
23
- ](https://img.atwikiimg.com/www65.atwiki.jp/kon11a/attach/54/4/SO_1.pas.txt)
11
+ Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
12
+
13
+
14
+
15
+ DataGridView1.Rows.Add("1")
16
+
17
+ DataGridView1.Rows.Add("2")
18
+
19
+ DataGridView1.Rows.Add("3")
20
+
21
+ DataGridView1.Rows.Add("4")
22
+
23
+ DataGridView1.Rows.Add("5")
24
+
25
+ End Sub
26
+
27
+
28
+
29
+ Private Sub Button1_Click(sender As Object, e As EventArgs)
30
+
31
+ 'コード未
32
+
33
+ 'A
34
+
35
+ End Sub
36
+
37
+ ```
38
+
39
+ ##試したい事
40
+
41
+ DataGridView1で１～１０あります。
42
+
43
+ Button1をクリックすると
44
+
45
+ Colum2:No1~5
46
+
47
+ Colum3:コンボボックス：
48
+
49
+ a
50
+
51
+ b
52
+
53
+ c
54
+
55
+ d
56
+
57
+ e
58
+
59
+ Colum4:1
60
+
61
+ と表示されるようにしたい事です。
62
+
63
+ 使用したものは
64
+
65
+ Column1（DataGridViewTextBoxColumn）
66
+
67
+ 1~5表示
68
+
69
+ Column2(DataGridViewTextBoxColumn)
70
+
71
+ No1~5
72
+
73
+ Column3(DataGridViewComboBoxColumn)
74
+
75
+ A~E
76
+
77
+ Column4(DataGridViewTextBoxColumn)
78
+
79
+ 1
24
80
 
25
81
 
26
82
 
@@ -28,334 +84,12 @@
28
84
 
29
85
  ##教えてほしいこと
30
86
 
87
+ Button1を（Aの部分）押すと上の通りの実行させたいんですが
88
+
31
- DataGridView.Rows.Add("")に追加しました。
89
+ DataGridView1のColum2/3/4が表示されません。
90
+
91
+ 検索して試してもできませんでした。
32
92
 
33
93
 
34
94
 
35
- ![イメージ説明](cb7d5efab56ff555ce4b37eb719eb0e6.png)
36
-
37
- 画像追加しました。
38
-
39
- Noは1~512(Textbox)
40
-
41
- アイテム名はコンボボックス
42
-
43
- 個数（Textbox）
44
-
45
- 実行例
46
-
47
- 全部なしを押すと
48
-
49
- No＝「1~512すべて0」
50
-
51
- アイテム名は（なし）
52
-
53
- 個数：０
54
-
55
-
56
-
57
- FULLを押すと
58
-
59
- No=1～487まで表示
60
-
61
- コンボボックスNoの番号アイテム名
62
-
63
- 個数：20
64
-
65
-
66
-
67
- [参考](https://img.atwikiimg.com/www65.atwiki.jp/kon11a/attach/54/4/SO_1.pas.txt)
68
-
69
-
70
-
71
- このように実行さてたいです。
72
-
73
- 後、*.pasのコードをすべてVBに書き直したい事です。
74
-
75
- すいませんがよろしくお願いいたします。
95
+ よろしくお願いします。
76
-
77
- ---
78
-
79
- ##作成中のコード
80
-
81
- ```ここに言語を入力
82
-
83
- Public Class Form1
84
-
85
- 'ステータス、スキル、アイテム、感情度、その他のボタン上（全24ボタン）
86
-
87
-
88
-
89
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
90
-
91
-
92
-
93
-
94
-
95
-
96
-
97
- End Sub
98
-
99
-
100
-
101
- Private Sub 開くToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開くToolStripMenuItem.Click
102
-
103
- '*.srmファイルを開く
104
-
105
- End Sub
106
-
107
-
108
-
109
- Private Sub 上書き保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 上書き保存ToolStripMenuItem.Click
110
-
111
- '*.srmファイルを上書き保存する
112
-
113
- End Sub
114
-
115
-
116
-
117
- Private Sub 名前を付けて保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 名前を付けて保存ToolStripMenuItem.Click
118
-
119
- '*.srmファイルを名前を付けて保存する
120
-
121
- End Sub
122
-
123
-
124
-
125
- Private Sub 終了ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 終了ToolStripMenuItem.Click
126
-
127
- 'アプリを終了
128
-
129
- Application.Exit()
130
-
131
- End Sub
132
-
133
-
134
-
135
- Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
136
-
137
-
138
-
139
- End Sub
140
-
141
-
142
-
143
- Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
144
-
145
-
146
-
147
- End Sub
148
-
149
- 'ステータスのボタン種類
150
-
151
- Private Sub Button1_Click(sender As Object, e As EventArgs)
152
-
153
- '初期
154
-
155
- End Sub
156
-
157
-
158
-
159
- Private Sub Button2_Click(sender As Object, e As EventArgs)
160
-
161
- '最強
162
-
163
- End Sub
164
-
165
-
166
-
167
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
168
-
169
- '装備解除
170
-
171
- End Sub
172
-
173
-
174
-
175
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
176
-
177
- '最適装備
178
-
179
- End Sub
180
-
181
-
182
-
183
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
184
-
185
- '最強装備
186
-
187
- End Sub
188
-
189
-
190
-
191
- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
192
-
193
- '戻す
194
-
195
- End Sub
196
-
197
-
198
-
199
- Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
200
-
201
- '決定
202
-
203
- End Sub
204
-
205
- 'スキルボタン種類
206
-
207
- Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
208
-
209
- 'スキル初期化
210
-
211
- End Sub
212
-
213
-
214
-
215
- Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
216
-
217
- 'スキル最適化
218
-
219
- End Sub
220
-
221
-
222
-
223
- Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
224
-
225
- 'タレント最適
226
-
227
- End Sub
228
-
229
-
230
-
231
- Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
232
-
233
- 'タレント全部
234
-
235
- End Sub
236
-
237
-
238
-
239
- Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
240
-
241
- '決定
242
-
243
- End Sub
244
-
245
-
246
-
247
- Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
248
-
249
- '戻す
250
-
251
- End Sub
252
-
253
- 'アイテムボタン種類
254
-
255
- Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
256
-
257
- '全部無し
258
-
259
- End Sub
260
-
261
-
262
-
263
- Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
264
-
265
- 'full
266
-
267
- End Sub
268
-
269
-
270
-
271
- Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
272
-
273
- '戻す
274
-
275
- End Sub
276
-
277
-
278
-
279
- Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
280
-
281
- '決定
282
-
283
- End Sub
284
-
285
- '感情度ボタン種類
286
-
287
- Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
288
-
289
- '初期化
290
-
291
- End Sub
292
-
293
-
294
-
295
- Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
296
-
297
- '最大化
298
-
299
- End Sub
300
-
301
-
302
-
303
- Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
304
-
305
- '戻す
306
-
307
- End Sub
308
-
309
-
310
-
311
- Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
312
-
313
- '決定
314
-
315
- End Sub
316
-
317
- 'その他ボタン種類（入れ替えボタン含む）
318
-
319
- Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
320
-
321
- '戻す
322
-
323
- End Sub
324
-
325
-
326
-
327
- Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
328
-
329
- '決定
330
-
331
- End Sub
332
-
333
-
334
-
335
- Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
336
-
337
- '入れ替え順番ボタン
338
-
339
- End Sub
340
-
341
-
342
-
343
-
344
-
345
- End Class
346
-
347
-
348
-
349
- ```
350
-
351
- コードはボタンのみ書きました。
352
-
353
-
354
-
355
- ---
356
-
357
- すみません、回答よろしくお願いいたします。
358
-
359
- ##環境
360
-
361
- Visual Studio2017/VB

1

文字の修正

2018/06/15 12:29

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -6,7 +6,9 @@
6
6
 
7
7
  VBに書き直ししようと思ってます。
8
8
 
9
- デザインがうまくできずにいます。
9
+ ~~デザインがうまくできずにいます。~~
10
+
11
+ 解決しました。
10
12
 
11
13
 
12
14
 
@@ -26,308 +28,332 @@
26
28
 
27
29
  ##教えてほしいこと
28
30
 
29
- Delphiで作成されたデザインはEdit1: TEdit;が8個あります。
31
+ DataGridView.Rows.Add("")に追加しました。
32
+
33
+
34
+
30
-
35
+ ![イメージ説明](cb7d5efab56ff555ce4b37eb719eb0e6.png)
36
+
37
+ 画像追加しました。
38
+
39
+ Noは1~512(Textbox)
40
+
41
+ アイテム名はコンボボックス
42
+
43
+ 個数（Textbox）
44
+
45
+ 実行例
46
+
47
+ 全部なしを押すと
48
+
49
+ No＝「1~512すべて0」
50
+
51
+ アイテム名は（なし）
52
+
53
+ 個数：０
54
+
55
+
56
+
57
+ FULLを押すと
58
+
59
+ No=1～487まで表示
60
+
61
+ コンボボックスNoの番号アイテム名
62
+
63
+ 個数：20
64
+
65
+
66
+
67
+ [参考](https://img.atwikiimg.com/www65.atwiki.jp/kon11a/attach/54/4/SO_1.pas.txt)
68
+
69
+
70
+
71
+ このように実行さてたいです。
72
+
31
- VBで似たようなwindowsフォームって何を使ったらよろしいでしょうか？
73
+ 後、*.pasのコードをすべてVBに書き直したい事です。
74
+
32
-
75
+ すいませんがよろしくお願いいたします。
33
-
34
76
 
35
77
  ---
36
78
 
79
+ ##作成中のコード
80
+
81
+ ```ここに言語を入力
82
+
83
+ Public Class Form1
84
+
85
+ 'ステータス、スキル、アイテム、感情度、その他のボタン上（全24ボタン）
86
+
87
+
88
+
89
+ Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
90
+
91
+
92
+
93
+
94
+
95
+
96
+
97
+ End Sub
98
+
99
+
100
+
101
+ Private Sub 開くToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開くToolStripMenuItem.Click
102
+
103
+ '*.srmファイルを開く
104
+
105
+ End Sub
106
+
107
+
108
+
109
+ Private Sub 上書き保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 上書き保存ToolStripMenuItem.Click
110
+
37
- 画像の通りのデザインをWindowsフォームで作成したいです。
111
+ '*.srmファイルを上書き保存する
112
+
38
-
113
+ End Sub
114
+
115
+
116
+
117
+ Private Sub 名前を付けて保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 名前を付けて保存ToolStripMenuItem.Click
118
+
39
- パソコンにExcelなど入っていないため、悩んでます。
119
+ '*.srmファイルを名前を付けて保存する
120
+
40
-
121
+ End Sub
122
+
123
+
124
+
125
+ Private Sub 終了ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 終了ToolStripMenuItem.Click
126
+
127
+ 'アプリを終了
128
+
129
+ Application.Exit()
130
+
131
+ End Sub
132
+
133
+
134
+
135
+ Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
136
+
137
+
138
+
139
+ End Sub
140
+
141
+
142
+
143
+ Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
144
+
145
+
146
+
147
+ End Sub
148
+
149
+ 'ステータスのボタン種類
150
+
41
- ![参考](f3749773b1c67a17b777186a75cf4a12.png)
151
+ Private Sub Button1_Click(sender As Object, e As EventArgs)
152
+
153
+ '初期
154
+
155
+ End Sub
156
+
157
+
158
+
159
+ Private Sub Button2_Click(sender As Object, e As EventArgs)
160
+
161
+ '最強
162
+
163
+ End Sub
164
+
165
+
166
+
167
+ Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
168
+
169
+ '装備解除
170
+
171
+ End Sub
172
+
173
+
174
+
175
+ Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
176
+
177
+ '最適装備
178
+
179
+ End Sub
180
+
181
+
182
+
183
+ Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
184
+
185
+ '最強装備
186
+
187
+ End Sub
188
+
189
+
190
+
191
+ Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
192
+
193
+ '戻す
194
+
195
+ End Sub
196
+
197
+
198
+
199
+ Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
200
+
201
+ '決定
202
+
203
+ End Sub
204
+
205
+ 'スキルボタン種類
206
+
207
+ Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
208
+
209
+ 'スキル初期化
210
+
211
+ End Sub
212
+
213
+
214
+
215
+ Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
216
+
217
+ 'スキル最適化
218
+
219
+ End Sub
220
+
221
+
222
+
223
+ Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
224
+
225
+ 'タレント最適
226
+
227
+ End Sub
228
+
229
+
230
+
231
+ Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
232
+
233
+ 'タレント全部
234
+
235
+ End Sub
236
+
237
+
238
+
239
+ Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
240
+
241
+ '決定
242
+
243
+ End Sub
244
+
245
+
246
+
247
+ Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
248
+
249
+ '戻す
250
+
251
+ End Sub
252
+
253
+ 'アイテムボタン種類
254
+
255
+ Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
256
+
257
+ '全部無し
258
+
259
+ End Sub
260
+
261
+
262
+
263
+ Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
264
+
265
+ 'full
266
+
267
+ End Sub
268
+
269
+
270
+
271
+ Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
272
+
273
+ '戻す
274
+
275
+ End Sub
276
+
277
+
278
+
279
+ Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
280
+
281
+ '決定
282
+
283
+ End Sub
284
+
285
+ '感情度ボタン種類
286
+
287
+ Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
288
+
289
+ '初期化
290
+
291
+ End Sub
292
+
293
+
294
+
295
+ Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
296
+
297
+ '最大化
298
+
299
+ End Sub
300
+
301
+
302
+
303
+ Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
304
+
305
+ '戻す
306
+
307
+ End Sub
308
+
309
+
310
+
311
+ Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
312
+
313
+ '決定
314
+
315
+ End Sub
316
+
317
+ 'その他ボタン種類（入れ替えボタン含む）
318
+
319
+ Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
320
+
321
+ '戻す
322
+
323
+ End Sub
324
+
325
+
326
+
327
+ Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
328
+
329
+ '決定
330
+
331
+ End Sub
332
+
333
+
334
+
335
+ Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
336
+
337
+ '入れ替え順番ボタン
338
+
339
+ End Sub
340
+
341
+
342
+
343
+
344
+
345
+ End Class
346
+
347
+
348
+
349
+ ```
350
+
351
+ コードはボタンのみ書きました。
42
352
 
43
353
 
44
354
 
45
355
  ---
46
356
 
47
- 後、*.pasのコードをすべてVBに書き直したい事です。
48
-
49
-
50
-
51
- ---
52
-
53
- ##作成中のコード
54
-
55
- ```ここに言語を入力
56
-
57
- Public Class Form1
58
-
59
- 'ステータス、スキル、アイテム、感情度、その他のボタン上（全24ボタン）
60
-
61
-
62
-
63
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
64
-
65
-
66
-
67
-
68
-
69
-
70
-
71
- End Sub
72
-
73
-
74
-
75
- Private Sub 開くToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 開くToolStripMenuItem.Click
76
-
77
- '*.srmファイルを開く
78
-
79
- End Sub
80
-
81
-
82
-
83
- Private Sub 上書き保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 上書き保存ToolStripMenuItem.Click
84
-
85
- '*.srmファイルを上書き保存する
86
-
87
- End Sub
88
-
89
-
90
-
91
- Private Sub 名前を付けて保存ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 名前を付けて保存ToolStripMenuItem.Click
92
-
93
- '*.srmファイルを名前を付けて保存する
94
-
95
- End Sub
96
-
97
-
98
-
99
- Private Sub 終了ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 終了ToolStripMenuItem.Click
100
-
101
- 'アプリを終了
102
-
103
- Application.Exit()
104
-
105
- End Sub
106
-
107
-
108
-
109
- Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
110
-
111
-
112
-
113
- End Sub
114
-
115
-
116
-
117
- Private Sub SaveFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles SaveFileDialog1.FileOk
118
-
119
-
120
-
121
- End Sub
122
-
123
- 'ステータスのボタン種類
124
-
125
- Private Sub Button1_Click(sender As Object, e As EventArgs)
126
-
127
- '初期
128
-
129
- End Sub
130
-
131
-
132
-
133
- Private Sub Button2_Click(sender As Object, e As EventArgs)
134
-
135
- '最強
136
-
137
- End Sub
138
-
139
-
140
-
141
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
142
-
143
- '装備解除
144
-
145
- End Sub
146
-
147
-
148
-
149
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
150
-
151
- '最適装備
152
-
153
- End Sub
154
-
155
-
156
-
157
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
158
-
159
- '最強装備
160
-
161
- End Sub
162
-
163
-
164
-
165
- Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
166
-
167
- '戻す
168
-
169
- End Sub
170
-
171
-
172
-
173
- Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
174
-
175
- '決定
176
-
177
- End Sub
178
-
179
- 'スキルボタン種類
180
-
181
- Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
182
-
183
- 'スキル初期化
184
-
185
- End Sub
186
-
187
-
188
-
189
- Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
190
-
191
- 'スキル最適化
192
-
193
- End Sub
194
-
195
-
196
-
197
- Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
198
-
199
- 'タレント最適
200
-
201
- End Sub
202
-
203
-
204
-
205
- Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
206
-
207
- 'タレント全部
208
-
209
- End Sub
210
-
211
-
212
-
213
- Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
214
-
215
- '決定
216
-
217
- End Sub
218
-
219
-
220
-
221
- Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
222
-
223
- '戻す
224
-
225
- End Sub
226
-
227
- 'アイテムボタン種類
228
-
229
- Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
230
-
231
- '全部無し
232
-
233
- End Sub
234
-
235
-
236
-
237
- Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
238
-
239
- 'full
240
-
241
- End Sub
242
-
243
-
244
-
245
- Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
246
-
247
- '戻す
248
-
249
- End Sub
250
-
251
-
252
-
253
- Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
254
-
255
- '決定
256
-
257
- End Sub
258
-
259
- '感情度ボタン種類
260
-
261
- Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
262
-
263
- '初期化
264
-
265
- End Sub
266
-
267
-
268
-
269
- Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
270
-
271
- '最大化
272
-
273
- End Sub
274
-
275
-
276
-
277
- Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
278
-
279
- '戻す
280
-
281
- End Sub
282
-
283
-
284
-
285
- Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
286
-
287
- '決定
288
-
289
- End Sub
290
-
291
- 'その他ボタン種類（入れ替えボタン含む）
292
-
293
- Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
294
-
295
- '戻す
296
-
297
- End Sub
298
-
299
-
300
-
301
- Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
302
-
303
- '決定
304
-
305
- End Sub
306
-
307
-
308
-
309
- Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
310
-
311
- '入れ替え順番ボタン
312
-
313
- End Sub
314
-
315
-
316
-
317
-
318
-
319
- End Class
320
-
321
-
322
-
323
- ```
324
-
325
- コードはボタンのみ書きました。
326
-
327
-
328
-
329
- ---
330
-
331
357
  すみません、回答よろしくお願いいたします。
332
358
 
333
359
  ##環境