Question

在文本框中输入3 按确定按钮 生成3行3列的文本框的 vb代码怎么写 急求，谢谢

Answer 1

先画一个文本框 设置成3行3列
然后把visible属性改成false
按钮就这么写
private sub command1_click()
text1.visble = true
end sub

追问

谢谢 在文本框中输入一个数n 按确定按钮 生成n行n列的文本框 n是不确定的一个数字 生成的文本框数 是由输入的数字决定的、、能帮我解决么？

追答

那就定义一个全局变量n
把那个文本框预先设置的行数和列数写在form_load里

也就是个思路，具体n是用public还是什么，写在load还是change，或者要不要用load form什么我也没试过- -

Answer 2

Private Sub Command1_Click()
Dim i!, b$
For i = 1 To 3
b = Text1 & " " & Text1 & " " & Text1 & " " & vbCrLf
Text2 = Text2 & b
Next i
End Sub

追问

我复制过去 不报错 但是也没有运行结果、、是哪出问题了呢
在文本框中输入一个数n 按确定按钮 生成n行n列的文本框 n是不确定的一个数字 生成的文本框数 是由输入的数字决定的、、能帮我解决么？

追答

我先以为是文本框内数字排列。那你参考：http://www.360doc.com/content/06/1206/16/10846_284650.shtml 这篇文章。

Answer 3

生成9个文本框吗？

追问

在文本框中输入一个数字n 按确定按钮 生成n行n列的文本框的vb代码 生成文本框的数目是由输入的数字决定的、

追答

在窗体 上添加2个文本框，Text1和Text2，将Text2的名改为txtbox，并设置其Index属性为0。

再添加一个按钮，见下图：

编写代码如下：

Option Explicit

Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer

Dim j As Integer

n = Val(Text1(0).Text)

For i = 0 To n * n - 1

   If i > 0 Then

      Load txtbox(i)

   End If

   txtbox(i).Left = 300 + (i Mod n) * (txtbox(0).Width + 100)

   txtbox(i).Top = 200 + (i \ n) * (txtbox(0).Height + 100)

   txtbox(i).Visible = True

Next i

End Sub

运行程序，单击按钮，界面如下：

追问

恩恩 我想要的就是这个效果 代码我复制了 运行时在

n = Val(Text1(0).Text)处报错 

 

追答

对不起，我粗心大意，没有改过来！
应该！
n = Val(Text1.Text)

追问

恩 这次出来了 再追加个小问题 开始输了一个数 出现了这个界面 然后想换个数 怎么样清空前面显示的那些呢？

追答

Unload Text1(1)