title image


Smiley Re: 2 TEXTE IN EINE VARIABLE PACKEN....
Hi!Das geht wenn du ein Trennzeichen einbaust. In dem Beispiel hat das Trennzeichen den ASCII-Code 166:Dim Data As String Private Sub Command1_Click() 'Aneinanderhängen Data = Text1.Text + Chr(166) + Text2.TextEnd Sub Private Sub Command2_Click() 'Auseinandernehmen Text1.Text = Left(Data, InStr(Data, Chr(166)) - 1) Text2.Text = Mid(Data, InStr(Data, Chr(166)) + 1)End SubOder du benutzt Typen:Private Type Vars2 Var1 As String var2 As StringEnd Type Dim Data As Vars2 Private Sub Command1_Click() 'Aneinanderhängen Data.Var1 = Text1.Text Data.var2 = Text2.TextEnd Sub Private Sub Command2_Click() 'Auseinandernehmen Text1.Text = Data.Var1 Text2.Text = Data.var2End SubMr. SICQ #67858520

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: