Vb6'dan iyi anlayanlar baksın

Hadi daha. Bilen yokmu ?

frame ve text enable false olsun
düzenleye tıklayınca text aktif olur, Q tuşuna basınca text pasif frame aktif olur. Kod;

Private Sub Command1_Click()
Text1.Enabled = True
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then
Text1.Enabled = False
Frame1.Enabled = True
End If
End Sub

CETQ' Alıntı:

frame ve text enable false olsun
düzenleye tıklayınca text aktif olur, Q tuşuna basınca text pasif frame aktif olur. Kod;

Private Sub Command1_Click()
Text1.Enabled = True
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then
Text1.Enabled = False
Frame1.Enabled = True
End If
End Sub

Genişletmek için tıkla ...

Çok teşekkürler.