Wert einer Var in VB löschen

[$oul]

Hi,
ich habe ein Problem was dieses Programm angeht: http://alius.al.funpic.de/Script-Archiv/VB/X_Calculator_2/

Ich möchte durch Klick auf RESET die Werte der Textboxen löschen falls welche vorhanden sind, kann aber meinen Fehler nicht finden, für die, die es nicht extra downloaden wollen, hier der .frm-code:

Private Sub RESET_Click()

    t1.SelLength = Len(t1.Text)
        t1.Text = ""
    t2.SelLength = Len(t2.Text)
        t2.Text = ""
    t3.SelLength = Len(t3.Text)
        t3.Text = ""
    t4.SelLength = Len(t4.Text)
        t4.Text = ""
    t5.SelLength = Len(t5.Text)
        t5.Text = ""
    t6.SelLength = Len(t6.Text)
        t6.Text = ""
    t7.SelLength = Len(t7.Text)
        t7.Text = ""
    t8.SelLength = Len(t8.Text)
        t8.Text = ""
    e1.SelLength = Len(e1.Text)
        e1.Text = ""
    e2.SelLength = Len(e2.Text)
        e2.Text = ""
    e3.SelLength = Len(e3.Text)
        e3.Text = ""
    e4.SelLength = Len(e4.Text)
        e4.Text = ""

End Sub

EDIT: Achja, noch eine Farge dazu...Kkann ich eigentlich Zahlen die in Textboxen stehen zum Rechnen benutzen? Wenn ja wie genau?

mfg $oul

 

[l0cal]

Hi $oul,

Ich weiss gar nicht, wo ich beginnen soll. Einen so kompliziert aufgebauten Rechner hab ich ja noch nie gesehen. ;-)

Schau dir mal diesen Code an: Rechner

Warum machst du nicht sowas?

1) Warum willst du beim drücken von RESET nicht einfach alle Textfelder löschen, egal ob dort eine Zahl drin steht oder nicht?

2) Bei deinem geposteten Code fehlt wohl noch die IF ELSE Anweisung.

3) Schau mal, wie deine Textboxen heissen. Zb t1(0) oder t5(1)! Du kannst entweder 10 Textboxen erstellen, welche t1 - t10 heissen oder aber eine Textbox und diese 10 Mal kopieren. Dann hast du Textboxen, die sich t(0) - t(9) nennen. Der Vorteil bei dieser Methode ist, dass du sie einfacher ansprechen kannst.


Überlege dir das nochmals, oder erkläre mir, warum du es unbedingt so machen willst.

Gruzz local

 

[$oul]

Danke l0cal, ich hab den einfach nur so gemacht, weil ich ihn so recht einfach finde, finde diesen Anderen wesentlich schwieriger zu schreiben, aber der Fehler lag an dem t1 anstatt t1(0) usw.

Eine Frage habe ich noch: Wie rechnet man plus? Es geht nicht mit var1 + var2, wie geht das?

mfg $oul

 

[l0cal]

Du musst die Zeichenkette erst in eine Zahl umwandeln. Benutze dazu: clng (long) oder cint (Integer)

Text3.Text = CLng(Text1.Text) + CLng(Text2.Text)

Local

 

[$oul]

Ok, danke nun funktioniert alles. Die fertige Version ist auch online unter selbigem Link.

mfg $oul

 

[l0cal]

Kleine Korrektur:

Wenn du ein 'Steuerelementefeld' mit den Textboxen erstellt hättest, also t(0), t(1), t(2), etc..könntest du sie alle auf diese Art und Weise ansprechen resp. löschen:

For i = 0 To 10
t(i).Text = ""
Next

Bei der Additionsfunktion ein 'On Error ..' einbauen, würde das Programm nicht gleich in die Knie zwingen, wenn man keine Werte eingegeben hat, aber trotzdem auf 'addieren' klickt.

Mal ne Off-Topic-Frage: Für was/wen schreibst du eigentlich diese Programme? Nachdem ich dir etwa bei 3 Programmen geholfen habe, nimmts mich mal wunder. ;-)

Gruzz local

 

[$oul]

Hm, fpr was ich das schreibe...eigentlich nur um VB zu lernen, ich finde Praktik bringt mehr als alles Andere

Danke für das mit der FOR-Schleife...
Wie geht das mit dem On-Error?

EDIT:
Habe noch eine Frage, möchte aber keinen neuen Thread aufmachen...
Ich habe bei dem Menu "Komponenten" die Komponente "Microsoft HTM Object Library" entdeckt. Habe ich es richtig verstanden, das dieses Objekt dafür zuständig ist Websites anzuzeigen? Ich geh erstmal davon aus. Ich habe nun einen Button, eine Textbox und dieses Websiteanzeigefeld. Ich möchte, dass bei Druck auf den Button die angezeigte Website geändert wird, dazu soll die textbox dienen, in diese wird die Website geschrieben und per Klick auf den Button dann übergeben. Hier der Download des ganzen:

http://alius.al.funpic.de/Script-Archiv/VB/X_Site/

Und hier der Code:

Private Sub button_Click()
    website.URL = eingabe.Text
End Sub

EDIT2:
Ich habe noch eine Frage...*in Deckung geh*
Wie öffne ich per kklick auf einen Button ein anderes Formular und schließe das vorherige?

mfg $oul

mfg $oul