title image


Smiley Re: Wert eines Listenfeldes?
kleines Codebeispiel:

dabei werden die ausgewählten Zeilendes Listenfeldes indas Textfeld

txtMemo geschrieben



Private Sub cmdCopy_Click()

Dim Memotext As String, i As Integer



For i = 0 To Me.Liste0.ListCount

If Me.Liste0.Selected(i) Then

Memotext = Memotext & ", " & Me.Liste0.Column(0, i) & " " & Me.Liste0.Column(1, i) & " " & Me.Liste0.Column(2, i)

End If

Next i



'Komma am Anfang abschneiden

Memotext = Right(Memotext, Abs(Len(Memotext) - 3))

Me.txtMemo = Memotext

Me.Repaint

End Sub







vielSpass

Ernst
Gruss Ernst ---------------------------------------------------------------------------------- WIN XP prof, Office XP, Visual Studio (.net) 2002 + 2005

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: