본문 바로가기

VB.NET

[질답] VB.NET PerformClick관련해서 문의 드립니다.

반응형
질문

VB.NET PerformClick관련해서 문의 드립니다. 내공100

visi****
질문22건
질문마감률85.7%
질문채택률85.7%
2018.01.09. 09:31
조회수7

VS 2017을 다운 받아서 사용해보고 있습니다.

 

If Input0 = True Then
     fTest.btnStart.PerformClick()
End If


If Input1 = True Then
     fTest.btnStop.PerformClick()
End If


If Input2 = True Then
     fTest.btnOrg.PerformClick()
End If

 

이런 식으로 입력을 받으면 각 버튼이 클릭 될 수 있도록 만들어봤습니다.

 

그런데 Input0, Input2는 정상적으로 되는데 Input1은 동작이 안됩니다.

fTest.btnStop.PerformClick()은 실행이 되는데

btnStop_Click쪽으로 넘어가지 않습니다.

어떤 이유에서 안넘어가는지 궁금합니다. 아시는 분 계시면 도움 부탁드립니다.





유사한 코드로 만들어서 아래와같이 테스트 해보았는데,

실제로 클릭이 잘 이루어집니다.
아마도 btnStop 이라는 버튼이 생각하신 버튼이 아닌, 다른버튼의 이름으로 지정되어있지 않은가? 생각됩니다.
혹은 버튼클릭 이벤트가 두가지로 복제되어 있는경우일수도 있습니다.

제가 테스트해본 내용은 아래와 같습니다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Class Form1
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If TextBox1.Text = "Input0" Then
            btnStart.PerformClick()
        End If
 
 
        If TextBox1.Text = "Input1" Then
            btnStop.PerformClick()
        End If
 
        If TextBox1.Text = "Input2" Then
            btnOrg.PerformClick()
        End If
    End Sub
 
    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        MessageBox.Show("btnStart")
    End Sub
 
    Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
        MessageBox.Show("btnStop")
    End Sub
 
    Private Sub btnOrg_Click(sender As Object, e As EventArgs) Handles btnOrg.Click
        MessageBox.Show("btnOrg")
    End Sub
End Class
cs


해당화면 이미지는 아래와 같습니다.
텍스트박스에 Input0  를 넣고 Button4 를 클릭하면 
btnStart.PerformClick()
이 작동하는 형식으로 만들어봤습니다.
첨부 이미지


반응형