假如text1中有:
1
2
3
4
我想让VB只选取我鼠标以上的位置 不知道可不可以实现
假如我鼠标在3的旁边 则只选取3以上的内容
答得好加分
Private Sub Command1_Click()
Text1.SetFocus
a = Text1.SelStart
Text1.SelStart = 0
Text1.SelLength = a
End Sub
Text1.SetFocus
a = Text1.SelStart
Text1.SelStart = 0
Text1.SelLength = a
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 2009-09-12
Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.SetFocus
a = Text1.SelStart
Text1.SelStart = 0
Text1.SelLength = a
End Sub
Text1.SetFocus
a = Text1.SelStart
Text1.SelStart = 0
Text1.SelLength = a
End Sub
第2个回答 2009-09-12
Private Sub text1_Click()
Text1.SetFocus
a = Text1.SelStart
Text1.SelStart = 0
Text1.SelLength = a
End Sub
Text1.SetFocus
a = Text1.SelStart
Text1.SelStart = 0
Text1.SelLength = a
End Sub