Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

ENTER,TAB und Mouse
Autor: Anton
Datum: 23.04.02 21:35
Bin am verzweifeln, kann mir bitte jemand weiterhelfen ... Habe auf einer Form, Textboxen(Steuerelemente) untereinander stehen. Links und rechts davon sind Labels (Steuerelemente) die, den Min und Maxwert der Textbox angeben. Durch Betätigung der ENTER-Taste, der TAB-Taste und bei Veränderung der Textbox über die Mouse soll ein Vergleich der jeweiligen Textbox(Inhalt) mit den jeweiligen Labels (Inhalt)stattfinden. Mit folgendem Code habe ich es schon probiert! Leider funktioniert es aber nicht so wie ich möchte !! Meine Fragen: 1. Wie kann ich es realisieren, dass wenn ich in die Textbox z.B eine 0 eintrage und im Min-Label steht eine 0,1 das VB die 0 als ausserhalb des Bereiches, erkennt. 2. Was schreibe ich unten falsch, wenn bei ENTER- Betätigung und der Wert ausserhalb des Min-Max-Bereiches liegt, zweimal hintereinander die untenstehende Meldung erscheint.und wie kann ich das Problem beheben ?? Bin für jede Hilfe dankbar !! Anton Private Sub Text1_KeyPress(Index As Integer, keyascii As Integer) If keyascii = 13 Then Call Vergleich(Index) Sendkeys "{TAB}",true End If Private Sub text1_LostFocus(Index As Integer) Call Vergleich(Index) End Sub Private Sub Vergleich(Index As Integer) If Val(Text1(Index)) < Val(Label1(Index)) Or _ Val(Text1(Index)) > Val(Label2(Index)) Then Text1(Index) = "" Text1(Index).SetFocus MsgBox "Wert ausserhalb des Bereiches" End If End Sub

ENTER,TAB und Mouse	53	Anton	23.04.02 21:35
Re: ENTER,TAB und Mouse	234	Dieter	23.04.02 23:04
Re: ENTER,TAB und Mouse	42	Anton	24.04.02 00:25
Re: ENTER,TAB und Mouse	238	Dieter	24.04.02 00:28
Re: ENTER,TAB und Mouse	30	Anton	24.04.02 00:34
Re: ENTER,TAB und Mouse	240	Dieter	24.04.02 00:41
Noch was anderes (-)	30	Anton	24.04.02 00:45
Re: Noch was anderes (-)	226	Dieter	24.04.02 00:57
Danke, aber der Vergleich funkt jetzt nichtmehr ?	35	Anton	24.04.02 09:13
Den Code der Sendkeys ersetzt !	30	Anton	24.04.02 09:28

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