Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Doppelte Einträge
Autor: COBOLd
Datum: 09.08.02 00:56
Das ist mir ein bischen zu hoch Herr Professor. Wie wärs denn mit einem lesbaren Code: *******************.**************************** Private Sub Form_Load() Dim Wert1 As Integer 'text1 Dim Wert2 As Integer 'text2 Dim Wert3 As Integer 'text3 Dim Wert4 As Integer 'label1 Dim Wert5 As Integer 'label2 Dim Wert6 As Integer 'label3 '(no Dim) Button= cmdOk.caption "Wollen wir rechnen?" '(no Dim) Button= cmdRepeat.caption "Nochmal?" '(rem) Text3= Ergebnis-Text der vom Kind ausgefüllt wird. Call NullwertSetzen End Sub Private Sub NullwertSetzen() Text1.Text = "" Text2.Text = "" Text3.Text = "" Label1.Caption ="" Label2.Caption ="" Label3.Caption ="" End Sub Private Sub cmdOk_Click() Call Rechnen Call Fehlercheck End Sub Private Sub Rechnen() Wert1 = Text1.Text Wert2 = Text2.Text Label1.Caption = Wert1 Label2.Caption = Wert2 Label3.Caption = Wert1 * Wert2 End Sub Private Sub Fehlercheck() If Text3.Text <> Label3.Caption Then MsgBox "Das war FAAALSCH!!!", vbCritical End If If Text3.Text = Label3.Caption Then MsgBox "Das war RICHTIG!!!!!!", vbOKOnly End If End Sub Private Sub cmdRepeat_Click() Call NullwertSetzen End Sub ****************.***************************+++ Gibs zu: Du bist noch keine 15 Jahre alt! Und Deinetwegen komme ich ins Grübeln ob FOR-NEXT auch ohne STEP geht...(stimmt leider...wußte ich nicht). Aber jetzt habe ich auch eine Kopfnuss für Dich: Du kannst cmdOk auch doppelt einsetzen. Als cmdOK und als cmdRepeat. (Das machst Du mit "IIF"...). Gruß COBOLd

Doppelte Einträge	85	Oliver	08.08.02 09:58
Re: Doppelte Einträge	61	COBOLd	09.08.02 00:56
Re: Doppelte Einträge	48	Oliver	10.08.02 09:15

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