textbox seçim

[ugur111]

Merhaba arkadaşlar ,

Textboxta iki satırdan oluşan veri var . Ben textbox'ın üzerine gelip mouse ile tek tıkladığımda tümverinin seçilmesini istiyorum.Textbox özelliklerinde çözemedim , kod mu olması gerekiyor .
iyi çalışmalar,

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Text)

End Sub

Private Sub UserForm_Initialize()
TextBox1 = "aa"
End Sub


Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.SelStart = 0
TextBox1.SelLength = 0
End Sub

 

[ugur111]

Hamit Bey , teşekkür ederim . Sadece mousedown kodu ile istediklerimi yaptım . Diğer kodları ne anlamda yazmıştınız acaba .Tekrar teşekkürler.

 

[hamitcan]

Diğer kodları ne anlamda yazmıştınız acaba

Form üzerinde başka bir yere gelindiğinde, seçimi iptal ediyor.