如果想在textbox输入,然后通过点击button控件,在label控件中显示要怎么做? 10
如题,vb高手留下你的足迹,我需要你们的帮助!谢谢,能不能留下qq号?我是vb菜鸟,请给我帮助!谢谢!...
如题,vb高手留下你的足迹,我需要你们的帮助!谢谢,能不能留下qq号?我是vb菜鸟,请给我帮助!谢谢!
展开
2个回答
展开全部
Private Sub Command1_Click()
'StatusBar1.SimpleText = "准备输入"
Text1.SetFocus 'text1获得焦点
Label1.Caption = "准备输入"
End Sub
Private Sub Form_Load()
'StatusBar1.Style = sbrSimple
End Sub
Private Sub Text1_Change() '当文本框中有改变
Label1.Caption = "正在输入..."
'StatusBar1.SimpleText = "正在输入..."
End Sub
Private Sub Text1_GotFocus() '当文本框获得焦点
Label1.Caption = "准备输入"
'StatusBar1.SimpleText = "准备输入"
End Sub
Private Sub Text1_LostFocus() '当文本框失去焦点
Label1.Caption = "输入结束"
'StatusBar1.SimpleText = "输入结束"
End Sub
如果你加个状态栏statusbar,可以运行上面注释掉的语句
QQ:378257196
'StatusBar1.SimpleText = "准备输入"
Text1.SetFocus 'text1获得焦点
Label1.Caption = "准备输入"
End Sub
Private Sub Form_Load()
'StatusBar1.Style = sbrSimple
End Sub
Private Sub Text1_Change() '当文本框中有改变
Label1.Caption = "正在输入..."
'StatusBar1.SimpleText = "正在输入..."
End Sub
Private Sub Text1_GotFocus() '当文本框获得焦点
Label1.Caption = "准备输入"
'StatusBar1.SimpleText = "准备输入"
End Sub
Private Sub Text1_LostFocus() '当文本框失去焦点
Label1.Caption = "输入结束"
'StatusBar1.SimpleText = "输入结束"
End Sub
如果你加个状态栏statusbar,可以运行上面注释掉的语句
QQ:378257196
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
最简单的
Private Sub Command1_Click()
label1.Caption = Text1.Text
End Sub
Private Sub Command1_Click()
label1.Caption = Text1.Text
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询