VB高手 在线等答案

来源：百度知道 编辑：UC知道 时间：2024/06/22 16:23:33
在名为"复制文本"的窗体中设置2文本框和2个命令按钮,在第一个文本框中输入文字(显示蓝色三号楷书),当单击"复制"命令按钮时,刚才输入的文字前6个字在第二个文本框中复制出来(显示红色三号楷书),单击"结束"按钮,结束程序运行.

Private Sub Command1_Click()
Text2.Text = Left(Text1.Text, 6)
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
'以下内容均可在属性窗口中设置
Me.Caption = "复制文本"
Command1.Caption = "复制"
Command2.Caption = "退出"

Text1.FontName = "楷体_GB2312"
Text1.ForeColor = vbBlue
Text1.FontSize = 15.75
Text2.FontName = "楷体_GB2312"
Text2.ForeColor = vbRed
Text2.FontSize = 15.75
End Sub