0
키 입력을 사용하여 만든 버튼에서 버튼을 누르려고합니다..NET에서 BasicButton을 누르는 키 입력
- 마우스를 사용하여 버튼을 클릭하면 아무런 문제가 없습니다. 모두 작동합니다.
- 텍스트 상자에 &을 사용하여 ALT 키를 누를 동안 짧은 시간을 제공하려고했습니다. 기쁨 없음
.NET에 대해 많이 알지는 못하지만 약 하루가 지나면 간단하지 않다고 말할 수 있습니다.
바로 가기를 추가하고 싶습니다. 예 : B를 누르면이 경우 버튼을 누른 것처럼 작동합니다. BasicButton1_Click
다음은 현재 가지고있는 모든 코드입니다.
Public Class MainForm
Private Sub MainForm_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
If e.Alt AndAlso e.KeyCode = Keys.W Then
BasicButton1.PerformClick()
End If
End Sub
'*******************************************************************************
'* Stop polling when the form is not visible in order to reduce communications
'* Copy this section of code to every new form created
'*******************************************************************************
Private Sub Form_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
AdvancedHMIDrivers.Utilities.StopComsOnHidden(components, Me)
End Sub
'**************************************
'* Filling the form with a gradient
'**************************************
'Private Sub MainForm_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
'Dim rect As New System.Drawing.Rectangle(0, 0, e.ClipRectangle.Width, e.ClipRectangle.Height)
'Dim gradientBrush As New Drawing.Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(0, Height), System.Drawing.Color.FromArgb(180, 100, 200), System.Drawing.Color.FromArgb(110, 200, 255))
'e.Graphics.FillRectangle(gradientBrush, rect)
'End Sub
Private Sub BasicButton1_Click(sender As Object, e As EventArgs) Handles BasicButton1.Click
End Sub
Private Sub BasicButton7_Click(sender As Object, e As EventArgs) Handles BasicButton7.Click
End Sub
Private Sub BasicButton2_Click(sender As Object, e As EventArgs) Handles BasicButton2.Click
End Sub
Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub BasicButton5_Click(sender As Object, e As EventArgs) Handles BasicButton5.Click
End Sub
Private Sub BasicButton3_Click(sender As Object, e As EventArgs) Handles BasicButton3.Click
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
안녕하세요, 저도 그랬습니다. 기쁨이 아닙니다. 나는 분명하지 않다면 미안합니다. – Arthor