Hallo!


Ich hab mal wieder mehrere Fragen zu VB:

1. Gibt es eine Möglichkeit diesen Code zu vereinfachen (Ich komm nicht drauf):

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

If txt1.Text = "" Then txt1.Text = 0   If txt2.Text = "" Then txt2.Text = 0   If txt3.Text = "" Then txt3.Text = 0   If txt4.Text = "" Then txt4.Text = 0   If txt5.Text = "" Then txt5.Text = 0   If txt6.Text = "" Then txt6.Text = 0   If txt7.Text = "" Then txt7.Text = 0   If txt8.Text = "" Then txt8.Text = 0   If txt9.Text = "" Then txt9.Text = 0   If txt10.Text = "" Then txt10.Text = 0   If txt11.Text = "" Then txt11.Text = 0   If txt12.Text = "" Then txt12.Text = 0   If txt13.Text = "" Then txt13.Text = 0   If txt14.Text = "" Then txt14.Text = 0   If txt15.Text = "" Then txt15.Text = 0   If txt16.Text = "" Then txt16.Text = 0   If txt17.Text = "" Then txt17.Text = 0   If txt18.Text = "" Then txt18.Text = 0   If txt19.Text = "" Then txt19.Text = 0   If txt20.Text = "" Then txt20.Text = 0   If txt21.Text = "" Then txt21.Text = 0   If txt22.Text = "" Then txt22.Text = 0   If txt23.Text = "" Then txt23.Text = 0   If txt24.Text = "" Then txt24.Text = 0   If txt25.Text = "" Then txt25.Text = 0   If txt26.Text = "" Then txt26.Text = 0   If txt27.Text = "" Then txt27.Text = 0   If txt28.Text = "" Then txt28.Text = 0   If txt29.Text = "" Then txt29.Text = 0   If txt30.Text = "" Then txt30.Text = 0   If txt31.Text = "" Then txt31.Text = 0   If txt32.Text = "" Then txt32.Text = 0

Ich dachte hier an ne Art Schleife, wo das zu ändernde Objekt zum Teil aus einer Variablen besteht. Beispiel:

Code :

1 2	for n = 1 to 10   if "txt" & n & ".Text" = "0" then...

2. Gibt es eine Möglichkeit so etwas zu verwirklichen:

Code :

1	n = word 2 of Textfeld.Text

(In anderen Programmiersprachen ist das möglich, bei VB beiß ich mir daran die Zähne aus)

3. Ich würde gerne per Programm eine Datei mit dem Internet-Transfer-Steuerelement herunterladen. Bei ftp-Servern sieht der Befehl ja so aus:

Code :

1 2	Inet1.Execute "ftp://server.com", _   "Get Datei.exe C:\Programme\Datei.exe"

Doch wie lautet der Befehl bei http-Servern?

EDIT:
4.

Ist es möglich, dass man z.B. allen textfeldern (per Objektvariable) einen befehl zuweist?
Dummes Beispiel:
Ich möchte, dass egal in welchen Textfeld man etwas eintippt, dass dort immer "5" "reingeschrieben" wird.
Mit den Objektvariablen will das nicht so richtig klappen...

Das wär's erstmal... Ich hoffe mir kann jemand helfen.

Danke schonmal!

G_H

Grundsätzlich immer nur eine Problemstellung posten und dafür dann einen vernüftigen Betreff/Titel zu wählen.
Der Post kann am Abschluß dann abgehakt werden.

Zu 1) Verwende ein Steuerelementefeld in VB Index genannt.
Damit kannst du durch alle Textboxen durchzählen.

Entweder einfach im Eigenschaftendialog von 0 bis X durchnummerieren.
Oder du legst die Felder dynamisch mit Load an.
Dazu gibt es einen Thread.

Danke für die Antwort...
Werde mich auch daran halten, immer nur eine Frage pro thread zu stlllen. Wollte nur keine 5 Threads mit Fragen ausmachen....
Sorry

zu 1.

Wenn Du sämtliche Textboxen eines Formulars Null setzen möchtest, probier Folgendes:

Code :

1 2 3 4 5

Dim C As Control         For Each C In Form1         If TypeOf C Is TextBox Then C.Text = "0"     Next C

zu 2.

Wenn die Worte durch jeweils ein Leerzeichen getrennt sind:

Code :

1 2 3

dim v as variant v = split(textfeld.text," ") n = v(1)