VB中 如何用代码在一个窗体里添加一个输入框?
5个回答
展开全部
以下代码 单击窗体后在鼠标位置创建一个新的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)
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)
展开全部
你可以先把这个输入框加上 把visbale属性设置为false 这样是不显示的 在需要的时候 再把这个属性的值赋为真 这样就出来了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
一般添加文本框text即可,也可添加标签label
但须添加代码。比如 a= text1.text,(输入的a为字符串),或a=val(text1.text) ,(输入的a为数值)
但须添加代码。比如 a= text1.text,(输入的a为字符串),或a=val(text1.text) ,(输入的a为数值)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在工具箱里拖一个textbox到窗体里就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询