单击主窗体上的按钮时如何更改辅助窗体上按钮的功能
How to change the function of a button on secondary form when button on primary form is clicked
我正在制作一个程序,我希望链接 form2 上的按钮以根据我在 form1 中单击的按钮播放不同的声音。
如何做到这一点?
Form1.vb
Public beepButtonClicked As Boolean = False
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
beepButtonClicked = True
End Sub
Form2.vb
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Form1.beepButtonClicked = True Then
MessageBox.Show("Button clicked after beepButton was clicked")
End If
End Sub
或者如果你想要多种声音:
Form1.vb
Public beepButtonClicked As String = "sounds/sound1.wav"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
beepButtonClicked = "sounds/sound2.wav"
End Sub
Form2.vb
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
axWindowsMediaPlayer1.URL = beepButtonClicked
End Sub
我正在制作一个程序,我希望链接 form2 上的按钮以根据我在 form1 中单击的按钮播放不同的声音。
如何做到这一点?
Form1.vb
Public beepButtonClicked As Boolean = False
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
beepButtonClicked = True
End Sub
Form2.vb
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Form1.beepButtonClicked = True Then
MessageBox.Show("Button clicked after beepButton was clicked")
End If
End Sub
或者如果你想要多种声音:
Form1.vb
Public beepButtonClicked As String = "sounds/sound1.wav"
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
beepButtonClicked = "sounds/sound2.wav"
End Sub
Form2.vb
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
axWindowsMediaPlayer1.URL = beepButtonClicked
End Sub