Me.Controls("TextBox" & l).Text,该怎么解决
Me.Controls("TextBox" & l).Text
Dim i, j, k, m, ii, jj, kk, mm, l As Integer
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
For m = 1 To 3
l = (i - 1) * 27 + (j - 1) * 9 + (k - 1) * 3 + m - 1
!!!!! aaa(i, j, k, m) = Me.Controls("TextBox" & l).Text
Next m
Next k
Next j
Next i
vs2012 vb程序 是想写一个解数独程序,通过81个textbox赋值给aaa(,,,)四维暂存数组,但是没有了控件数组,网上搜到了标叹号的那一行的写法,但是出错,不知哪位高人能解答一下!
------解决方案--------------------
aaa(i, j, k, m) = CType(Me.Controls("TextBox" & l), TextBox).Text
------解决方案--------------------
那么大概就是 "TextBox" & l 这个 Name 的控件并不存在。
通常你应该学会自己使用vs调试器,此时有很多方式可以看到变量 l 的值。根据它的值,你才知道去查找分析 Name 属性为这个值的 TextBox。
Dim i, j, k, m, ii, jj, kk, mm, l As Integer
For i = 1 To 3
For j = 1 To 3
For k = 1 To 3
For m = 1 To 3
l = (i - 1) * 27 + (j - 1) * 9 + (k - 1) * 3 + m - 1
!!!!! aaa(i, j, k, m) = Me.Controls("TextBox" & l).Text
Next m
Next k
Next j
Next i
vs2012 vb程序 是想写一个解数独程序,通过81个textbox赋值给aaa(,,,)四维暂存数组,但是没有了控件数组,网上搜到了标叹号的那一行的写法,但是出错,不知哪位高人能解答一下!
------解决方案--------------------
aaa(i, j, k, m) = CType(Me.Controls("TextBox" & l), TextBox).Text
------解决方案--------------------
那么大概就是 "TextBox" & l 这个 Name 的控件并不存在。
通常你应该学会自己使用vs调试器,此时有很多方式可以看到变量 l 的值。根据它的值,你才知道去查找分析 Name 属性为这个值的 TextBox。