Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Textbox und cmdbutton
Autor: Brauner
Datum: 20.04.09 13:51
Hallo zusammen, ich habe folgendes Problem: VB 6.0 professionell In die Textfelder gebe ich Zahlen ein, und zwinge den User, die Felder auch auszu- füllen, weil mit Null keinen Sinn ergibt. Wenn jetzt aber eventuell eine Datei geöffnet werden soll, dann kommt die MSG box " Bitte eine Zahl eingeben " Wie kann ich das lösen. mfg brauner Private Sub sevtext2_Validate(cancel As Boolean) Dim Ubreiterechts# Ubreiterechts# = Val(sevText2.Text) If Ubreiterechts# = 0 And cancel = False Then Nullwerte cancel = True sevText2.SetFocus End If End Sub Private Sub Nullwerte() MsgBox "Sie müßen einen Wert größer NULL eingeben!" End Sub Private Sub cmdOpen_Click() ' wird im "CommonDialog" auf "Abbrechen" geklickt, ' wird (wenn CancelError = True ist) ein Laufzeitfehler ausgelöst. Dim F As Integer Dim AllText As String Dim LineOfText As String On Error Resume Next With CommonDialog1 .CancelError = True ' Filter setzen - hier wird festgelegt, mit welchem Format ' eine Datei geöffnet wird. .Filter = "Textdateien (*.qpy)|*.qpy" ' Dialogfeld Öffnen anzeigen .ShowOpen If .FileName <> "" Then F = FreeFile Open .FileName For Input As #F ' Zeilen aus Textdatei einlesen und in Variable AllText speichern Do Until EOF(F) Line Input #F, LineOfText AllText = AllText & LineOfText & vbCrLf Loop Close #F ' Inhalt der Variable AllText im Textfeld ausgeben Dim strLines() As String ' Array Alltext strLines = Split(AllText, vbCrLf) ' zeilenweise einlesen sevText1.Text = strLines(0) sevText2.Text = strLines(1) sevText3.Text = strLines(2) sevText4.Text = strLines(3) sevText5.Text = strLines(4) sevText6.Text = strLines(5) End If End With End Sub

Textbox und cmdbutton	1.044	Brauner	20.04.09 13:51
Re: Textbox und cmdbutton	630	Ne kölsche Jung	20.04.09 20:26
Re: Textbox und cmdbutton	761	Brauner	21.04.09 14:36
Re: Textbox und cmdbutton	614	Ne kölsche Jung	21.04.09 17:30
Re: Textbox und cmdbutton	579	Brauner	23.04.09 16:32
Re: Textbox und cmdbutton	531	Ne kölsche Jung	23.04.09 18:40

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen