Custom Inputbox?

[ironmonkey2]

Hallo,

gibt es eine Moeglichkeit ein Form so zu Steueren das es wie eine Inputbox reagiert?
Sprich der Code wartet auf die Eingabe vor Fortsetzung.

Nun habe das in einer Do while true gemacht was natuerlich nicht ging
Alter Code:

    If Err.Number > 0 Then
        MsgBox "Error: try to get Serial.", vbCritical
      'Fehler Messages vorerst aktiviert...
'      frmManSerial.Visible = True
'      frmManSerial.Show modal
'      frmManSerial.txtSerialNumber.SetFocus
'      Dim bol_WaitExpression As Boolean
'      Dim strState As String
'      bol_WaitExpression = True
'      Do While bol_WaitExpression = True
'        DoEvents
'        strState = frmManSerial.get_frmState_From_frmManSerial()
'
'        If strState = "wait" Then
'            bol_WaitExpression = True
'        Else
'            bol_WaitExpression = False
'        End If
'      Loop
        Dim vInput
        vInput = InputBox("Enter Serialnumber!", "Serialnumber is not present...")
        result = CStr(vInput)
    End If

 

[ronaldh]

Hallo ironmonkey2,

wenn ich Dich richtig verstehe, willst Du, dass Deine Form nicht entladen werden kann, solange keine Seriennummer eingegeben wurde.

Dies erreichst Du mit folgender Anweisung:

Private Sub Form_Unload(Cancel As Integer)
   If Trim(txtSerialNumber.Text) = "" Then
      MsgBox "Bitte erst Seriennummer eingeben!", vbCritical
      Cancel = True
      Exit Sub
   End If
End Sub

Viele Grüsse
ronaldh

 

[ironmonkey2]

Das hast du richtig verstanden. Und so gehts auch