Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sevxpform+sevtextbox
Autor: Brauner
Datum: 28.09.06 18:16
Hallo Dieter, warum ist der Focus ohne irgendwelche Eingaben beim Laden der Form in der 3. Textbox ? Code: Private Sub Form_Load() For I = 0 To sevText1.UBound sevText1(I).CurrencyText = "" Next I For I = 0 To sevText1.UBound sevText1(I).Format = rsCurrency Next I xpi# = 4 * Atn(1) ' Achtung xpi anstelle xpi# xy# = xpi# / 180 xz# = 180 / xpi# End Sub Private Sub sevXPForm1_Activate() If sevText1(0).Text <> "" And sevText1(1).Text <> "" Then sevText1(2).SetFocus ' NACH dieser Zeile End Sub Private Sub sevText1_Change(Index As Integer) neigungswinkelmax% = 90 sevText1(2).Format = rsCurrency neigungswinkelmax% = CCur(sevText1(2).Text) Select Case neigungswinkelmax% Case Is > 90 MsgBox " Neigung über 90° ungültig!" sevText1(2).Text = "" End Select End Sub

sevxpform+sevtextbox	499	Brauner	28.09.06 18:16
Re: sevxpform+sevtextbox	269	Dieter	28.09.06 20:05
Re: sevxpform+sevtextbox	259	Brauner	29.09.06 06:56
Re: sevxpform+sevtextbox	274	Dieter	29.09.06 07:35

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