86 lines
2.6 KiB
VB.net
86 lines
2.6 KiB
VB.net
Public Class usrCntlFound
|
|
|
|
Dim MAIN As frmCheckIn
|
|
Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso
|
|
Dim FTYP As eFahrzeugtyp = eFahrzeugtyp.None
|
|
|
|
Sub New(MAIN, AVISO)
|
|
|
|
' Dieser Aufruf ist für den Designer erforderlich.
|
|
InitializeComponent()
|
|
Me.MAIN = MAIN
|
|
Me.AVISO = AVISO
|
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
|
|
|
End Sub
|
|
|
|
Private Sub usrCntlFound_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
txtFahrername.Focus()
|
|
|
|
MAIN.TRANSLATE(Me)
|
|
If AVISO IsNot Nothing Then
|
|
lblKennzeichen.Text = AVISO.LKW_Nr
|
|
lblFraechter.Text = AVISO.Frächter
|
|
lblAvisierer.Text = AVISO.Auftraggeber
|
|
'txtFahrername.Text = AVISO.FahrerHandy
|
|
txtHandy.Text = AVISO.FahrerHandy
|
|
|
|
Else
|
|
MAIN.SET_WELCOME()
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub cbxHandyKeineAngabe_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHandyKeineAngabe.CheckedChanged
|
|
txtHandy.Enabled = Not cbxHandyKeineAngabe.Checked
|
|
End Sub
|
|
|
|
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
|
lblErrName.Visible = False
|
|
lblErrHandy.Visible = False
|
|
lblErrFahrzeugtyp.Visible = False
|
|
|
|
If txtFahrername.Text.Trim = "" Then
|
|
lblErrName.Visible = True
|
|
txtFahrername.Focus()
|
|
Exit Sub
|
|
End If
|
|
If Not cbxHandyKeineAngabe.Checked AndAlso txtHandy.Text.Trim = "" Then
|
|
lblErrHandy.Visible = True
|
|
txtHandy.Focus()
|
|
Exit Sub
|
|
End If
|
|
If FTYP = eFahrzeugtyp.None Then
|
|
lblErrFahrzeugtyp.Visible = True : Exit Sub
|
|
End If
|
|
MAIN.SET_FINISH(AVISO)
|
|
End Sub
|
|
|
|
|
|
Enum eFahrzeugtyp
|
|
None = 0
|
|
LKW_Auflieger = 1
|
|
LKW = 2
|
|
Sprinter = 3
|
|
End Enum
|
|
|
|
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click, PictureBox1.Click, PictureBox2.Click
|
|
pic.BackColor = Color.White
|
|
PictureBox1.BackColor = Color.White
|
|
PictureBox2.BackColor = Color.White
|
|
pic.BorderStyle = BorderStyle.None
|
|
PictureBox1.BorderStyle = BorderStyle.None
|
|
PictureBox2.BorderStyle = BorderStyle.None
|
|
|
|
If sender Is pic Then FTYP = 1 : pic.BorderStyle = BorderStyle.FixedSingle
|
|
If sender Is PictureBox1 Then FTYP = 2 : PictureBox1.BorderStyle = BorderStyle.FixedSingle
|
|
If sender Is PictureBox2 Then FTYP = 3 : PictureBox2.BorderStyle = BorderStyle.FixedSingle
|
|
|
|
sender.BackColor = Color.PapayaWhip
|
|
|
|
End Sub
|
|
|
|
|
|
End Class
|