[HaBo]

$oul · 16.06.05, 21:00

Hi,
ich habe ein Problem was dieses Programm angeht: http://alius.al.funpic.de/Script-Arc..._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:

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 · 16.06.05, 22:05

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

Anzeige

- Anzeige -

$oul · 16.06.05, 22:26

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 · 16.06.05, 22:41

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

Code:

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

Local

$oul · 16.06.05, 23:02

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

mfg $oul

l0cal · 16.06.05, 23:15

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:

Zitat:

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 · 17.06.05, 13:48

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:

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

Anzeige

- Anzeige -

16.06.05, 21:00	#1 (permalink)
$oul Registriert seit: 19.12.04 Likes: 2	Wert einer Var in VB löschen Anzeige Hi, ich habe ein Problem was dieses Programm angeht: http://alius.al.funpic.de/Script-Arc..._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: 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 __________________ Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist. Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.

16.06.05, 22:05	#2 (permalink)
l0cal Registriert seit: 19.09.04 Likes: 0	RE: Wert einer Var in VB löschen 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

16.06.05, 22:26	#3 (permalink)
$oul Themenstarter Registriert seit: 19.12.04 Likes: 2	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 __________________ Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist. Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.

16.06.05, 22:41	#4 (permalink)
l0cal Registriert seit: 19.09.04 Likes: 0	Du musst die Zeichenkette erst in eine Zahl umwandeln. Benutze dazu: clng (long) oder cint (Integer) Code: Text3.Text = CLng(Text1.Text) + CLng(Text2.Text) Local

16.06.05, 23:02	#5 (permalink)
$oul Themenstarter Registriert seit: 19.12.04 Likes: 2	Ok, danke nun funktioniert alles. Die fertige Version ist auch online unter selbigem Link. mfg $oul __________________ Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist. Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.

17.06.05, 13:48	#7 (permalink)
$oul Themenstarter Registriert seit: 19.12.04 Likes: 2	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: 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 __________________ Der eigene Wille müsste stets ein wenig mächtiger sein, als es das eigene Selbst ist. Aber Wunschdenken stellt ein Risiko dar und so etwas können wir uns in einem Weltkapitalismus nicht leisten.

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Zufälligen Wert finden, der nicht in einer Datenbank gespeichert ist	Eydeet	(Web-) Design und webbasierte Sprachen	7	07.05.08 19:29
löschen mit einer .bat datei	mP765	Windows	10	07.10.07 15:36
einzelne zeilen einer datei löschen	Nimda05	Linux/UNIX	3	23.05.07 20:55
Ausgabe einer Variablen in einer Messagebox	netter_man	Code Kitchen	3	28.02.07 20:50

[HaBo]

Wert einer Var in VB löschen