vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: VB6: Namen mehrerer Textfelder gleichzeitig auslesen 
Autor: BenC
Datum: 11.09.04 17:58

Hallo,

Jetzt klappt zwar alles, aber nur wenn ich in den jweiligen Textfeldern NUR einen Eintrag stehen habe. Ich habe aber noch etwas vergessen zu erwähnen.
Ich verwende bei mir ja die Ausdrücke,
spAN = Split(Me.txtAN.Text, ";")
spCC = Split(Me.txtCC.Text, ";")
spBCC = Split(Me.txtBCC.Text, ";")

da in den Textfeldern mehr als einen Eintrag stehen könnte (z.B. mail@jemand.de; empf@ger.com; irgend@was.at;).

Hättest Du eine Idee, wie den bisherigen Code mit oben erwähnten Code kombinieren kann, damit in allen Fällen (ein Wert oder mehrere Werte) auch alles klappt. Danke für deinen Tipp.

Dim iAN As Integer, iCC As Integer, iBCC As Integer
Dim spAN() As String, spCC() As String, spBCC() As String
Private Textfelder As New Collection

spAN = Split(Me.txtAN.Text, ";")
spCC = Split(Me.txtCC.Text, ";")
spBCC = Split(Me.txtBCC.Text, ";")

'Befüllen der Collection
With Textfelder
.Add txtAN
.Add txtCC
.Add txtBCC
End With

Dim C As Control
Dim BoxName As String
BoxName = ""
For Each C In Textfelder
If C.Text <> "" And InStr(1, C.Text, "@") > 0 Then
BoxName = BoxName & C.Name
End If
Next
lbltest.Caption = BoxName

Danke für alle Tipps im Voraus.

mfg
BenC
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VB6: Namen mehrerer Textfelder gleichzeitig auslesen586BenC10.09.04 15:41
Re: VB6: Namen mehrerer Textfelder gleichzeitig auslesen272ModeratorDieter10.09.04 18:12
Re: VB6: Namen mehrerer Textfelder gleichzeitig auslesen277BenC11.09.04 17:58

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel