[二级VB试题天天练]VB考试试题6

全国等级考试资料网 2024-04-01 23:51:11 734
常用标准控件练习(4)

下列程序是文本框的内容选中的例子:

首先在窗体上建立2个文本框,分别是Text1和Text2,然后编写下列过程。
程序运行后,用鼠标在Text1内拖选文字,可以看到Text1_MouseMove事件过程的运行结果。
当Text2内的内容不为空时,用鼠标点击Text2,可以看到Text2_GotFocus事件的运行结果。
Private Sub Form_Load()
    Text1.Text = "文本框选中内容练习"
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Text2.Text = Text1.SelText
End Sub


Private Sub Text2_GotFocus()
    Text2.SelStart = 0
    Text2.SelLength = Len(Text2.Text)
End Sub

相关资料

相关阅读