Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Sub test()
MsgBox("Button1 wurde gedrückt")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
test()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Button 2 wurde gedrückt, hier nach wird der Code aus Button1 ausgeführt!")
test()
End Sub
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
Select Case CType(sender,Button).Name
Case "Button1"
MessageBox.Show("Button1 wurde gedrückt")
Case "Button2"
MessageBox.Show("Button2 wurde gedrückt")
End Select
End Sub