在vb中 在一个文本框内输入内容,第二个文本框就会显示另外的内容 代 ...

Private Sub Text1_Change()Text2.Text = "text1内容已更改为" & Text1.Text End Sub

'这个是删除第一个文本框中选中的字符，并在第二个文本框中显示剩余字符数 Private Sub Command1_Click()Text1.Text = Replace(Text1.Text, Mid(Text1.Text, Text1.SelStart + 1, Text1.SelLength), "")Text2.Text = Len(Text1.Text)End Sub '这个是第一个文本框中内容不变，第二个文...

Private Sub Text1_Change()Text2.Text = Len(Text1.Text)End Sub

想实现字体字号不同，在text2/3的属性里面设置字体即可 VB6.0测试通过……

Cls '清除窗体上的显示内容 Text1.Text = "" '清除文本框Text1里的内容 Text1.SetFocus '使得文本框Text1获得焦点，即光标处于该控件里 End Sub '本行表示事件过程的结束 ---

istr ="Visual Basic程序设计教程（第3版）"label1.caption=left(istr,12)label2.caption=mid(istr,13,6)label3.caption=right(istr,5)

Do While True a = InStr(a + 1, LCase(Text1.Text), LCase(Text2.Text))If a = 0 Then Exit Do i = i + 1 Loop MsgBox i & "次"

此属性不影响 Text 属性；Text 准确地包括所键入或代码中所设置的内容。将 PasswordChar 设置为长度为 0 的字符串 ("") （缺省值），将显示实际的文本。能够将任意字符串赋予此属性，但只有第一个字符是有效的，所有其它的字符将被忽略。注意 如果 MultiLine 属性被设为 True，那么设置 PasswordChar ...

每个文本框的maxlength都设置成1 代码入下 Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)If IsNumeric(Text1.Text) Then ' 用IsNumeric函数判断输入是否为数字Text2.SetFocus '如果是数字 跳到下一个文本框ElseText1.Text = "" '如果不是数字 清空文本框重新输入End IfEnd ...

输入如下代码：PrivateSubForm_Load()Text1.Text=""。Text2.Text=""。EndSub。PrivateSubText1_Change()。Text2.Text=Text1.Text。EndSub。操作要点：1、设置程序界面，包括标签，文本框，命令按钮。2、再按照题目要求，设置对象的属性。3、编写程序的代码。先定义变量。4、使用For-Next循环结构语句，...