کار با رویداد صفحه کلید

[lady64]

سلام . این کد ساده چرا کار نمیکنه . مثلا وقتی کلید a‌ رو از صفحه کلید فشار میدم میخوام تو textbox بنویسه ولی اتفاقی نمی افته .

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.A Then

            TextBox1.Text = "l is press"

        End If

    End Sub

یا حتی این کد :

    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown



        If e.KeyValue = 65 Then

            Me.Text = "a"

        End If

    End Sub

و متاسفانه این هم کار نمیکنه :

 Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

        If e.KeyChar = "a" Then

            Me.Text = "a press"

        End If

    End Sub

مشکل چیه ؟ پیشاپیش ممنونم

[JaVa]

سلام . این کد ساده چرا کار نمیکنه . مثلا وقتی کلید a‌ رو از صفحه کلید فشار میدم میخوام تو textbox بنویسه ولی اتفاقی نمی افته .

باید توی رویداد خود تکس باکس بنویسی

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyCode = Keys.A Then

            TextBox1.Text = "l is press"

        End If

    End Sub

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.A Then

            TextBox1.Text = "l is press"

        End If

    End Sub

یا حتی این کد :

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        If e.KeyValue = 65 Then

            Me.Text = "a"

        End If

    End Sub

باید focus رو فرم باشد

  Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        If e.KeyValue = 65 Then

            Me.Text = "a"

        End If

    End Sub

و متاسفانه این هم کار نمیکنه :

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        If e.KeyCode = Keys.A Then

            Me.Text = "a press"

        End If

    End Sub

[Saman_12]

سلام . این کد ساده چرا کار نمیکنه . مثلا وقتی کلید a‌ رو از صفحه کلید فشار میدم میخوام تو textbox بنویسه ولی اتفاقی نمی افته .

Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

        If e.KeyCode = Keys.A Then

            TextBox1.Text = "l is press"

        End If

    End Sub

یا حتی این کد :

    Private Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown



        If e.KeyValue = 65 Then

            Me.Text = "a"

        End If

    End Sub

و متاسفانه این هم کار نمیکنه :

 Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress

        If e.KeyChar = "a" Then

            Me.Text = "a press"

        End If

    End Sub

مشکل چیه ؟ پیشاپیش ممنونم

هیچ کدوم مشکلی ندارن!

[merlin425]

خاصیت key preview مربوط به فرم رو true کردی
چک کن اگه نباشه کد های رویدادهای keydown keyup keypress اجرا نمیشه

[lady64]

خاصیت key preview مربوط به فرم رو true کردی
چک کن اگه نباشه کد های رویدادهای keydown keyup keypress اجرا نمیشه

مرسی . اینو نمیدونستم . حل شد . خیلی خیلی ممنونم . و یک سوال دیگه . این کد زیر رو باید در چه رویدادی نوشت و چکار میکنه ؟

 If e.KeyValue = 65 Then

            e.Handled = True

        Else

            e.Handled = False



        End If

و دو سوال هم در مورد رویدادهای موس . این کد تعداد دفعات کلیک رو بررسی میکنه ولی فقط در مورد یک بار کلیک کار میکنه .

 If e.Clicks = 2 Then

            Me.Text = 2

        End If

هم تو رویداد muse-click نوشتم و هم mouse-up و mouse-down

و در مورد middle. آیا منظور همون اسکرول موس هست . اگه آره برای من این کد هم کار نمیکنه:

If e.Button = Windows.Forms.MouseButtons.Middle Then

            Me.BackColor = Color.BlanchedAlmond

        End If

ولی right,left کار میکنن. ممنون از اینکه وقت میزارید

[merlin425]

سوال 1 : توی رویداد KeyDown اگر A را بزنی Handleel رو true میکنه و به سیستم عامل می فهمونه که رویداد مدیریت شده است موقعی کاربرد داره که مثلآ میخای کلید وارد شده رو null کنی و از بین ببری مثلآ textbox شماره تلفن که باید عدد بگیره اینجا به این شکل می تونی کاراکتر های غیر عددی رو Null کنی و handled رو هم true کنی که بوق نزنه

سوال 2 : من اینو تو MouseDown نوشتم و با تک کلیک 1 داد با دابل کلیک 2 شاید سرعت دابل کلیکت زیاد سریع نیست

سوال 3 : بله همون اسکرول موس این رو هم تو MouseDown نوشتم جواب داد البته منظور چرخوندن اسکرول نیستا باید اسکرول رو به پایین فشار بدی مثل کلیک