编写一个vb程序,其窗体上有2个文本框和一个标签

当在左边的文本框输入一个字符,则在右边的文本框中显示出该字符，并将该字符插入到最前面，同时标签上显示共输入了几个字符

推荐答案 2011-04-07

在窗体上添加label1,text1,text2,三个控件
复制下面代码:
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Label1.Caption = "共输入了" & Len(Text2.Text) & "个字符"
End Sub

Private Sub Text1_Change()
Text2.Text = Right(Text1.Text, 1) & Text2.Text
Label1.Caption = "共输入了" & Len(Text2.Text) & "个字符"
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/zd/Fcc4LLGIL.html

相似回答

vb问题两个标签,两个文本框,一个命令按钮,答：'Text2表示你的年龄控件.

...一个窗体,在窗体上添加两个标签框,两个文本框和两个命令按钮。_百度...答：方法1：假设只有一对双引号，那么，可以使用VB的；InStr（）函数和InStrRev（）函数，Mid（）函数。方法2：采用VB的Len（）函数和MID（）函数，从左开始逐个检查字符，找到第1个双引号后，开始截取字符一直到找到第2个双引号结束。

一道VB题——窗体上有text1、text2两个文本框和一个命令按钮command1...答：第1次单击的时候，y的初值是0，x的初值是2。执行text1.text=fun2(fun1(x),y)时，先是用x作为实参调用fun1。在执行x=x+y:y=x+y后，x的值是2，y的值也是2。函数返回x+y的值4。然后再把fun1的返回值4和y作为参数调用fun2，结果是10。执行text2.text=fun1(x)时，用x作为参数调用fun...

我用vb做了一个界面,界面上有两个文本框,和一个查询按钮,在文本框1和...答：xlApp.Cells(r, 8).Value = Text2.Text xlApp.DisplayAlerts = False xlApp.SaveWorkspace xlBook.Save 你可以改成以下:If xlApp.Cells(i, 2) = Text1.Text ThenxlApp.Cells(i, 8).Value = Text2.TextxlApp.DisplayAlerts = FalsexlApp.SaveWorkspacexlBook.Save ...

VB,在窗体上添加两个文本框text1和text2.要求在文本框Text中输入字符时...答：Private Sub Text1_Change() If Len(Text1) > 15 Then Text2 = Mid(Text1, 16) & Text2 Text1 = Left(Text1, 15) End IfEnd Sub

大家正在搜

编写一个windows窗体程序编写窗体应用程序 windows窗体程序编写窗体面向程序构造三个步骤做窗体应用程序的框架简单窗体程序 c窗体程序设计 c#窗体应用程序 c窗体应用程序实例