کار با کلید ترکیبی ctrl+A

[mamali5030]

به نام خدا

سلام دوستان

چطور میتونیم کلید ترکیبی ctrl+A که برای انتخاب کل متن هست رو واسه یه textbox فعال کنیم؟:متفکر::متفکر:

[setroyd]

Private Sub Form_Load()
KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Const ASC_CTRL_A As Integer = 1
Dim txt As TextBox
If KeyAscii = ASC_CTRL_A Then
If TypeOf ActiveControl Is TextBox Then
Set txt = ActiveControl
txt.SelStart = 0
txt.SelLength = Len(txt.Text)
End If
End If
End Sub