Question

VB中 如何用代码在一个窗体里添加一个输入框？

Answer 1

以下代码 单击窗体后在鼠标位置创建一个新的textbox。

Option Explicit
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim T As Object
Static Num As Long
'在本窗体内添加（可以是其他 如 picturebox等）；第一个参数是要添加的控件，第二个是控
件名
Set T = Me.Controls.Add("VB.textbox", "Text" & Num)
'当然还有其他属性一样的设置，如高度宽带等
T.Text = "Text" & Num '指定控件文本内容
T.Visible = True '设置控件可见
T.Left = X '设置 左边距离
T.Top = Y '设置顶部距离
Num = Num + 1 '防止控件名重复
End Sub

如果要在其他控件添加，就在第三个参数填上容器
如在picture1 里面添加：Set T = Me.Controls.Add("VB.textbox", "Text" & Num, Picture1)

Answer 2

Private Sub Command2_Click()

  Dim a

  a = InputBox("你的名字是", "输入")

End Sub

Answer 3

你可以先把这个输入框加上 把visbale属性设置为false 这样是不显示的 在需要的时候 再把这个属性的值赋为真 这样就出来了

Answer 4

一般添加文本框text即可，也可添加标签label
但须添加代码。比如 a= text1.text,(输入的a为字符串），或a＝val(text1.text) ,（输入的a为数值）

Answer 5

在工具箱里拖一个textbox到窗体里就可以了