27 lines
753 B
VB.net
27 lines
753 B
VB.net
Public Class usrCntlWelcome
|
|
|
|
Dim MAIN As frmCheckIn
|
|
Sub New(MAIN)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.MAIN = MAIN
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click, Label1.Click, Button1.Click, Label2.Click, Button2.Click, Label3.Click, Button3.Click, Label4.Click
|
|
MAIN.SET_LANGUAGE(sender.tag)
|
|
MAIN.SET_SEARCH()
|
|
End Sub
|
|
|
|
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
|
|
End Sub
|
|
End Class
|