PDA

View Full Version : بدست اوردن کلید زده شده



hosein320
جمعه 22 دی 1391, 20:28 عصر
سلام میخواستم حرفی رو که همون موقع تو تکست وارد میشه بریزم تو یه متغیر:لبخند:

xxnagin
جمعه 22 دی 1391, 20:49 عصر
سلام
تو رویداد TextChanged


Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim s As String
s = TextBox1.Text
Label1.Text = s
End Sub

gilsoft
شنبه 23 دی 1391, 01:29 صبح
سلام میخواستم حرفی رو که همون موقع تو تکست وارد میشه بریزم تو یه متغیر:لبخند:

سلام دوست عزیز

اینم کد مربوطه :
Private kc As Char
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub

Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
kc = e.KeyChar
End Sub

موفق باشید