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

 我来答
crazy0qwer
2013-01-12 · TA获得超过3301个赞
知道大有可为答主
回答量:4020
采纳率:71%
帮助的人:1323万
展开全部
以下代码 单击窗体后在鼠标位置创建一个新的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)
月时微123
2013-01-12 · 超过42用户采纳过TA的回答
知道答主
回答量:135
采纳率:0%
帮助的人:80万
展开全部

Private Sub Command2_Click()

  Dim a

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

End Sub

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
寂寞游神
2013-01-12 · 超过40用户采纳过TA的回答
知道小有建树答主
回答量:166
采纳率:0%
帮助的人:67.2万
展开全部
你可以先把这个输入框加上 把visbale属性设置为false 这样是不显示的 在需要的时候 再把这个属性的值赋为真 这样就出来了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
ghjfkd
2013-01-12 · TA获得超过1.2万个赞
知道大有可为答主
回答量:2364
采纳率:0%
帮助的人:1080万
展开全部
一般添加文本框text即可,也可添加标签label
但须添加代码。比如 a= text1.text,(输入的a为字符串),或a=val(text1.text) ,(输入的a为数值)
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
jiujiuwenju
2013-01-12
知道答主
回答量:22
采纳率:0%
帮助的人:8.2万
展开全部
在工具箱里拖一个textbox到窗体里就可以了
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式