Klienten - FrmInst

Private Sub CmdOK_Click()
If TxtAnv.Text = "" Then TxtAnv.Text = "Användare"
If TxtIP.Text = "" Then
MsgBox "Du måste ange en IP-adress (t.ex. 234.234.234.234), eller localhost för den lokala datorn"
Exit Sub
End If
If TxtPort.Text = "" Then
MsgBox "Du måste ange en port"
Exit Sub
End If
Användarnamn = TxtAnv.Text
Port = TxtPort.Text
Server = TxtIP.Text
Unload Me
End Sub

Kollar om alla fält är ifyllda och visar FrmMain igen.

Nu var denna klar, vidare till FrmSkickaKommando.

© SupportData.Net