teratail
回答率
85.48%
質問するログイン新規登録
トップに関する質問VB：変数の値を基にセル情報を取得する

編集履歴

質問編集履歴

2

修正

2016/12/02 06:04

投稿

teck
teck

スコア27

test CHANGED
@@ -1 +1 @@
1
- VB：別セルの値をラベルに表示させる
1
+ VB：変数の値を基にセル情報を取得する
test CHANGED
@@ -2,23 +2,13 @@
2
2
 
3
3
 
4
4
 
5
- DataGridViewに表示された対象のセルをクリックした際に、
5
+ DataGridViewのセルを指定する際のカッコに記載する値に
6
6
 
7
- 対象セルと同じ行に存在する別セルの値を
7
+ 変数を使用したいと考えておりますが、記載方法が不明です。
8
8
 
9
- 同じフォーム内に存在するラベルに表示させる実装をしたいです。
9
+ 現状としてはDataGridViewのセルがクリックされた際に
10
10
 
11
-
12
-
13
- 実現方法としては、対象セルをクリックした際に、
14
-
15
- DataGridView.CellClickを用いて行を判断して、行の別セルの値を取得して、
16
-
17
- ラベルに表示させるといったイメージです。
18
-
19
-
20
-
21
- 何か別途良い方法等ございましたらアドバイスいただけますでしょうか。
11
+ あらかじめ指定しているセルの情報を取得して表示となっております。
22
12
 
23
13
 
24
14
 
@@ -26,9 +16,9 @@
26
16
 
27
17
 
28
18
 
29
- ※追記 現状としては下記のようになっています。
19
+ ※12/2追記 現状としては下記のようになっています。
30
20
 
31
- ・列が7列あり、1行目をクリックされた場合を想定しています
21
+ ・0,1,2となってる部分に変数を使用したいです。
32
22
 
33
23
 
34
24
 
@@ -36,33 +26,39 @@
36
26
 
37
27
 
38
28
 
39
- For repeat As Integer = 0 To 6 Step 1
29
+ Private Sub DataGridView1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
40
30
 
41
31
 
42
32
 
43
- Data = DataGridView1.Cells(0, repeat).Value
33
+ Dim Data1 As String
44
34
 
35
+ Dim Data2 As String
36
+
37
+ Dim Data3 As String
38
+
39
+
40
+
45
- Me.Controls("Data" & (repeat + 1).ToString).Text = +1
41
+ For repeat As Integer = 0 To 3 Step 1
46
42
 
47
43
 
48
44
 
49
- Label1.Text = Data
45
+ Data1 = DataGridView1(0, 0).Value
50
46
 
51
- Label2.Text = Data
47
+ Data2 = DataGridView1(1, 0).Value
52
48
 
53
- Label3.Text = Data
49
+ Data3 = DataGridView1(2, 0).Value
54
-
55
- Label4.Text = Data
56
-
57
- Label5.Text = Data
58
-
59
- Label6.Text = Data
60
-
61
- Label7.Text = Data
62
50
 
63
51
 
64
52
 
65
- Next repeat
53
+ Label1.Text = Data1
54
+
55
+ Label2.Text = Data2
56
+
57
+ Label3.Text = Data3
58
+
59
+
60
+
61
+ Next
66
62
 
67
63
 
68
64
 

1

加筆

2016/12/02 06:04

投稿

teck
teck

スコア27

test CHANGED
File without changes
test CHANGED
@@ -23,3 +23,47 @@
23
23
 
24
24
 
25
25
  回答、よろしくお願い致します。
26
+
27
+
28
+
29
+ ※追記 現状としては下記のようになっています。
30
+
31
+ ・列が7列あり、1行目をクリックされた場合を想定しています
32
+
33
+
34
+
35
+ ```ここに言語を入力
36
+
37
+
38
+
39
+ For repeat As Integer = 0 To 6 Step 1
40
+
41
+
42
+
43
+ Data = DataGridView1.Cells(0, repeat).Value
44
+
45
+ Me.Controls("Data" & (repeat + 1).ToString).Text = +1
46
+
47
+
48
+
49
+ Label1.Text = Data
50
+
51
+ Label2.Text = Data
52
+
53
+ Label3.Text = Data
54
+
55
+ Label4.Text = Data
56
+
57
+ Label5.Text = Data
58
+
59
+ Label6.Text = Data
60
+
61
+ Label7.Text = Data
62
+
63
+
64
+
65
+ Next repeat
66
+
67
+
68
+
69
+ ```