VB问:设计程序,程序运行后在文本框中输入任意内容,然后单击命令按钮,则将文本框中的内容现实在标签上

我编的:Private Sub Command1_Click()
Label1.Caption = Text1.Text
End Sub
教材为何这么复杂:
Private Sub Command1_Click()
Label1.Caption = Text1.Text
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Text1.SetFocus
End Sub

Private Sub Form_Load()
Show
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub

第1个回答  2007-07-29
教材里的代码,不仅是把TextBox中的内容显示到标签控件中,而且当你按下按钮后会把TextBox中的内容选中本回答被提问者采纳
第2个回答  2007-07-29
教材的是标签里显示的为你选中的内容,不一定是全部内容哦,你试试

vb程序中,如果在文本框中输入一行内容并单击添加按钮,则把文本框中的...
Private Sub Command1_Click()ListBox Additem Text1 Text End Sub 按钮 Combo1 AddItem Text1 Combo1 Text = Text1

关于VB编程实现:在文本框中每输入一个字符时,立即在窗体上输出当前文本...
Private Sub Command1_Click() ’这个表示是Command1的单击事件,本行表示事件过程的开始 Cls '清除窗体上的显示内容 Text1.Text = "" '清除文本框Text1里的内容 Text1.SetFocus '使得文本框Text1获得焦点,即光标处于该控件里 End Sub '本行表示事件过程的结束 ---...

在文本框中输入文字,单击“添加”按钮,则将文本框中文字添加到列表框...
按钮 Combo1AddItemText1 Combo1Text=Text1

VB中如何在文本框内输入文字的同时,在标签上显示文本框中的文字
代码如下:1、方法一:text1.passwordchar = "*"sub command1_click()label1.caption =text1.text end sub 2、方法二:sub command1_click()label1.caption = string("*",len(text1.text))end sub

VB 在文本框里输入内容,敲回车,即可按文本框里的内容去查询,这个功能咋...
部分说明start可选参数。为数值表达式,设置每次搜索的起点。如果省略,将从第一个字符的位置开始。如果 start 包含 Null,将发生错误。如果指定了 compare 参数,则一定要有 start 参数。string1必要参数。接受搜索的字符串表达式。string2必要参数。被搜索的字符串表达式。Compare可选参数。指定字符串比较。

vb中怎么编写 单击命令按钮,则窗体显示文本框内的内容?
1、首先,双击窗体空白处进入代码窗口。2、然后我们在事件中找到Click事件。3、这个时候开始编写代码测试【Print "我是Click单击属性!"】。4、然我们开始运行测试。5、启动后,我们在窗体空白处单击。6、这个时候我们将可以看到测试的效果。

vb程序设计 简单 如何通过命令按钮 把文本框中的文字变成粗体?
1、打开VB软件,在窗体上面,添加两个文本框,如下图所示。2、单击文本框,在属性窗口分别设置文本框的属性,清空文本的内容,如下图所示。3、在窗体上面,添加一个命令按钮,如下图所示。4、单击命令按钮,在属性窗口中,设置命令按钮的属性,如下图所示。5、双击命令按钮,编写其代码,如下图所示。...

VB怎么在文本框中输入内容
接着,双击命令按钮以编辑其代码,如下图所示,然后进入下一步。最后,运行程序,输入“百度”。此时不能直接在文本框中输入内容。 单击“允许输入”命令按钮就可以输入相应的内容了,如下图所示。这样,问题就解决了。Visual Basic编程语言1991年,美国微软公司推出了Visual Basic(可简称VB),目前的最新...

...任意输入若干个字母到文本框1中,通过单击命令按钮将其中的大写字母转...
首先界面(随便弄的)其次,button1的代码:Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TextBox1.Text = TextBox1.Text.ToUpper End SubEnd Class好,完成,运行测试

VB6.0在文本框里输入123456,点击命令按钮则在标签里显示1\/2\/3\/4\/5...
\/” 呵呵~~不足之处 不过对于你的数字的要求已经足够了。如果你要限定是数字可以在dim s as string后面加上两句:on error resume next text1.text = val(text1.text) '转换成数字,如果是空白内容或者纯字母则继续……因为空白内容或者纯字母会报错……...

相似回答