質問編集履歴

2

2020/05/19 22:28

投稿

kariaka2020
kariaka2020

スコア37

test CHANGED
File without changes
test CHANGED
@@ -84,6 +84,14 @@
84
84
 
85
85
  #解決後
86
86
 
87
+ イベントハンドラを利用する場合は、tosiさんの回答と、以下のコードを組み合わせることで出来ました。
88
+
89
+
90
+
91
+ 以下は関数として用意したもの。
92
+
93
+
94
+
87
95
  ```VB.net
88
96
 
89
97
  Private Function Dainyu(pArrKijyun(,) As Integer) As Integer()

1

解決後を追記

2020/05/19 22:28

投稿

kariaka2020
kariaka2020

スコア37

test CHANGED
File without changes
test CHANGED
@@ -79,3 +79,59 @@
79
79
 
80
80
 
81
81
  よろしくお願いいたします。
82
+
83
+
84
+
85
+ #解決後
86
+
87
+ ```VB.net
88
+
89
+ Private Function Dainyu(pArrKijyun(,) As Integer) As Integer()
90
+
91
+
92
+
93
+ Dim Modori(2) As Integer '関数の戻り値
94
+
95
+
96
+
97
+ For i = 0 To 2
98
+
99
+
100
+
101
+ Dim rdoSTR As String = "rdoKamoku" & i + 1 'コントロール取得用の文字列
102
+
103
+ Dim rdo As Control = grpKamoku.Controls(rdoSTR) 'rdoKamokuはgrpKamokuという名前GroupBoxの上に置いているから
104
+
105
+ Dim aaa As RadioButton = CType(rdo, RadioButton)
106
+
107
+
108
+
109
+ If aaa.Checked = True Then
110
+
111
+
112
+
113
+ For j = 0 To 2
114
+
115
+
116
+
117
+ Modori(j) = pArrKijyun(i, j)
118
+
119
+
120
+
121
+ Next j
122
+
123
+
124
+
125
+ End If
126
+
127
+
128
+
129
+ Next i
130
+
131
+ Return New Integer() {Modori(0), Modori(1), Modori(2)}
132
+
133
+
134
+
135
+ End Function
136
+
137
+ ```