質問編集履歴
2
修正
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
VB：
|
|
1
|
+
VB：変数の値を基にセル情報を取得する
|
body
CHANGED
|
@@ -1,35 +1,33 @@
|
|
|
1
1
|
VB初心者です。
|
|
2
2
|
|
|
3
|
+
DataGridViewのセルを指定する際のカッコに記載する値に
|
|
4
|
+
変数を使用したいと考えておりますが、記載方法が不明です。
|
|
3
|
-
DataGridView
|
|
5
|
+
現状としてはDataGridViewのセルがクリックされた際に
|
|
4
|
-
対象セルと同じ行に存在する別セルの値を
|
|
5
|
-
|
|
6
|
+
あらかじめ指定しているセルの情報を取得して表示となっております。
|
|
6
7
|
|
|
7
|
-
実現方法としては、対象セルをクリックした際に、
|
|
8
|
-
DataGridView.CellClickを用いて行を判断して、行の別セルの値を取得して、
|
|
9
|
-
ラベルに表示させるといったイメージです。
|
|
10
|
-
|
|
11
|
-
何か別途良い方法等ございましたらアドバイスいただけますでしょうか。
|
|
12
|
-
|
|
13
8
|
回答、よろしくお願い致します。
|
|
14
9
|
|
|
15
|
-
※追記 現状としては下記のようになっています。
|
|
10
|
+
※12/2追記 現状としては下記のようになっています。
|
|
16
|
-
・
|
|
11
|
+
・0,1,2となってる部分に変数を使用したいです。
|
|
17
12
|
|
|
18
13
|
```ここに言語を入力
|
|
19
14
|
|
|
20
|
-
|
|
15
|
+
Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
|
|
21
16
|
|
|
17
|
+
Dim Data1 As String
|
|
18
|
+
Dim Data2 As String
|
|
19
|
+
Dim Data3 As String
|
|
20
|
+
|
|
22
|
-
|
|
21
|
+
For repeat As Integer = 0 To 3 Step 1
|
|
23
|
-
Me.Controls("Data" & (repeat + 1).ToString).Text = +1
|
|
24
22
|
|
|
25
|
-
|
|
23
|
+
Data1 = DataGridView1(0, 0).Value
|
|
26
|
-
|
|
24
|
+
Data2 = DataGridView1(1, 0).Value
|
|
27
|
-
|
|
25
|
+
Data3 = DataGridView1(2, 0).Value
|
|
28
|
-
Label4.Text = Data
|
|
29
|
-
Label5.Text = Data
|
|
30
|
-
Label6.Text = Data
|
|
31
|
-
Label7.Text = Data
|
|
32
26
|
|
|
33
|
-
|
|
27
|
+
Label1.Text = Data1
|
|
28
|
+
Label2.Text = Data2
|
|
29
|
+
Label3.Text = Data3
|
|
30
|
+
|
|
31
|
+
Next
|
|
34
32
|
|
|
35
33
|
```
|
1
加筆
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -10,4 +10,26 @@
|
|
|
10
10
|
|
|
11
11
|
何か別途良い方法等ございましたらアドバイスいただけますでしょうか。
|
|
12
12
|
|
|
13
|
-
回答、よろしくお願い致します。
|
|
13
|
+
回答、よろしくお願い致します。
|
|
14
|
+
|
|
15
|
+
※追記 現状としては下記のようになっています。
|
|
16
|
+
・列が7列あり、1行目をクリックされた場合を想定しています
|
|
17
|
+
|
|
18
|
+
```ここに言語を入力
|
|
19
|
+
|
|
20
|
+
For repeat As Integer = 0 To 6 Step 1
|
|
21
|
+
|
|
22
|
+
Data = DataGridView1.Cells(0, repeat).Value
|
|
23
|
+
Me.Controls("Data" & (repeat + 1).ToString).Text = +1
|
|
24
|
+
|
|
25
|
+
Label1.Text = Data
|
|
26
|
+
Label2.Text = Data
|
|
27
|
+
Label3.Text = Data
|
|
28
|
+
Label4.Text = Data
|
|
29
|
+
Label5.Text = Data
|
|
30
|
+
Label6.Text = Data
|
|
31
|
+
Label7.Text = Data
|
|
32
|
+
|
|
33
|
+
Next repeat
|
|
34
|
+
|
|
35
|
+
```
|