| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS | | | | Optimieren Sie Ihre SOLIDWORKS Tasks mit Visiativ myCADtools - Jetzt Kostenlos testen >>, eine Pressemitteilung
|
Autor
|
Thema: API - Schleife funktioniert nicht (747 / mal gelesen)
|
Andi Beck Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2580 Registriert: 02.10.2006 Firma: SW 2024-3.1 + PDM Prof. Windows 10 Pro 64bit, i9-11900 32 GbRAM, Quadro P2200 Home: SW 2023-5.0 Passungstabelle von Heinz Windows 11 Pro 64bit, i7-12700K, 32 GbRAM, GeForce GTX 1050Ti Samsung C34H892, 3440x1440 Pixel
|
erstellt am: 11. Aug. 2016 11:12 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe 15 TextBoxen mit der fortlaufenden Namensgebung txtSfBegleitdokument1, txtSfBegleitdokument2, txtSfBegleitdokument3 usw. erzeugt. Nun möchte ich die alle in einer Schleife abfragen, ob darin etwas enthalten ist. For i = 1 To 15 If txtSfBegleitdokument(i).Text > "" Then cmdErweitern.BackColor = &HC000& End If Next i Bei dieser Schreibweise bekomme ich aber eine Fehlermeldung. Sub oder Function nicht definiert Ersetze ich If txtSfBegleitdokument(i).Text > "" Then durch If txtSfBegleitdokument1.Text > "" Then bekomme ich keine Fehlermeldung, aber der eigentliche Zweck der Schleife ist natürlich nicht erfüllt. Warum funktioniert diese Schreibweise mit der Variablen bei TextBoxen nicht, in anderen Fällen aber schon? Wer hat eine Idee? Grüße, Andi ------------------ Hast du kein Problem? Such dir eins. ( Und löse es ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
runkelruebe Ehrenmitglied V.I.P. h.c. Straßen- / Tiefbau
Beiträge: 8086 Registriert: 09.03.2006 Gastleser
|
erstellt am: 11. Aug. 2016 11:42 <-- editieren / zitieren --> Unities abgeben: Nur für Andi Beck
Moin, Versuch eines Hinweises: das (i) deutet auf Index hin. Du sprichst aber grad keinen Index an, sondern eine Bezeichnung, die halt zufällig wie ein Index aussieht. Evtl. kannst Du es zusammenbauen in der Art txtSfBegleitdokument & i & .Text Oder Du sprichst die Klasse an, Beispiel Shapes(i), halt je nachdem, wo die Textboxen drin liegen. HTH ------------------ Gruß, runkelruebe Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
nahe Ehrenmitglied
Beiträge: 1764 Registriert: 18.01.2001 arbeite mit: Dell Precision 7750 i7 2,6 GHz 6 Kerne 32GB RAM 512GB SSD NVIDIA Quadro RTX 4000 ------------------------ SWX-2020 SP5.0 EPDM ---------------- Windows 10 ---------------- VB.net VB VBA ein wenig Swift am Mac
|
erstellt am: 11. Aug. 2016 11:44 <-- editieren / zitieren --> Unities abgeben: Nur für Andi Beck
Hallo Andi das sollte über Userform-Controls gehen wenn Dein Formular z.B.: UserForm1 heißt For i = 1 To 15 if UserForm1.Controls.Item("txtSfBegleitdokument" + Trim(Str(i)).Text >"" Then ..... End If Next i ------------------ Grüße Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andi Beck Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2580 Registriert: 02.10.2006 Firma: SW 2024-3.1 + PDM Prof. Windows 10 Pro 64bit, i9-11900 32 GbRAM, Quadro P2200 Home: SW 2023-5.0 Passungstabelle von Heinz Windows 11 Pro 64bit, i7-12700K, 32 GbRAM, GeForce GTX 1050Ti Samsung C34H892, 3440x1440 Pixel
|
erstellt am: 11. Aug. 2016 12:35 <-- editieren / zitieren --> Unities abgeben:
Hallo, @runkelruebe Dieses Zusammenbauen hatte ich vorher schon erfolglos durchgespielt. Aber trotzdem Danke für deinen Vorschlag. @Heinz Deine Schreibweise führte zunächst noch zu einem Syntaxfehler. Aber der Ansatz war richtig. Etwas rumprobiert und es kam das heraus.
If frmSfInfo.Controls.Item("txtSfBegleitdokument" + CStr(i)).Text > "" Then Besten Dank euch beiden, nun kann ich mich weiter um den eigentlichen Code kümmern. Grüße, Andi ------------------ Hast du kein Problem? Such dir eins. ( Und löse es ) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|