Einträge aus der Einen in die andere Listview

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von DosiSoft.

    Einträge aus der Einen in die andere Listview

    Hallo,
    wie kann man die selektierten Einträge von der Einen in die andere Listview verschieben?
    Ich hatte schon folgendes ausprobiert:

    Listview1_DoubleClick Event

    VB.NET-Quellcode

    1. With lbNextSongs.Items
    2. SubItem = .Add(oInfo.Titel)
    3. SubItem.SubItems.Add(oInfo.Interpret)
    4. SubItem.SubItems.Add(oInfo.Album)
    6. End With

    (auch wenn der Präfix lb ist, ist es eine Listview)

    Es klappt i-wie nicht.

    Was ist daran falsch?
    der Gesamte Code der Form:

    VB.NET-Quellcode

    1. Public Class btEntfernen
    2. ' API-Deklaration
    3. Private Declare Auto Function mciSendString Lib "winmm.dll" ( _
    4. ByVal lpstrCommand As String, _
    5. ByVal lpstrReturnString As String, _
    6. ByVal uReturnLength As Integer, _
    7. ByVal hwndCallback As Integer) As Integer
    9. Public Declare Function GetShortPathName Lib "kernel32" _
    10. Alias "GetShortPathNameA" ( _
    11. ByVal lpszLongPath As String, _
    12. ByVal lpszShortPath As String, _
    13. ByVal cchBuffer As Long) As Long
    14. 'Dim selectedFile As String = String.Empty
    15. Dim Liste As New System.Collections.Specialized.StringCollection
    16. Dim Stunde As String
    17. Dim Minute As String
    18. Dim Sekunden As String
    19. Dim Tage As String
    20. Dim Monat As String
    21. Dim Jahr As String
    22. Dim sBuffer As String = sBuffer * 255
    23. Dim sType As String
    24. Dim nResult As Long
    25. Dim sExt As String
    26. Dim bVideo As Boolean
    27. ' Daten-Struktur der MP3-Informationen
    28. Private Structure MP3Info
    29. Dim Titel As String
    30. Dim Interpret As String
    31. Dim Album As String
    32. Dim Jahr As String
    33. Dim Kommentar As String
    34. Dim Genre As String
    35. End Structure
    37. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    39. tmrDatumUhrzeit.Start()
    40. 'For Each Eintrag In Liste
    41. ' ListBox1.Items.Add(Eintrag)
    42. 'Next
    43. 'Liste = My.Settings.Datenbank
    44. End Sub
    46. Private Sub btAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btAdd.Click
    48. If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    49. 'selectedFile = OpenFileDialog1.FileName
    50. For Each Items In OpenFileDialog1.FileNames
    51. ShowMP3Infos(OpenFileDialog1.FileName)
    52. Next
    54. 'For Each Eintrag In ListBox1.Items
    55. ' Liste.Add(Eintrag)
    56. 'Next
    57. 'My.Settings.Datenbank = Liste
    58. End If
    60. 'OpenFileDialog1.ShowDialog()
    61. 'Dim Items As String
    62. 'For Each Songs In OpenFileDialog1.FileNames
    63. ' lbDB.Items.Add(Songs)
    64. 'Next
    65. End Sub
    67. Private Sub pbStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbStop.Click
    70. End Sub
    72. Private Sub pbPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbPlay.Click
    73. mciSendString("open """ & lbNextSongs.SelectedItems.ToString & """ alias Lied", Nothing, 0, 0)
    74. mciSendString("play Lied", Nothing, 0, 0)
    75. tmrStatus.Start()
    76. tmrUpMin.Start()
    77. tmrUpSec.Start()
    78. End Sub
    81. Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
    82. End
    83. End Sub
    85. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btRandomPlaylist.Click
    86. RandomPlaylist.Show()
    87. End Sub
    89. Private Sub TempToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TempToolStripMenuItem.Click
    91. End Sub
    93. Private Sub tmrDatumUhrzeit_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrDatumUhrzeit.Tick
    94. 'If Now.Hour < 10 Then
    95. ' Stunde = "0" & Now.Hour
    96. 'End If
    98. 'If Now.Minute < 10 Then
    99. ' Minute = "0" & Now.Minute
    100. 'End If
    102. 'If Now.Second < 10 Then
    103. ' Sekunden = "0" & Now.Second
    104. 'End If
    106. 'If Now.Day < 10 Then
    107. ' Tage = "0" & Now.Day
    108. 'End If
    110. 'If Now.Month < 10 Then
    111. ' Monat = "0" & Now.Month
    112. 'End If
    114. TempToolStripMenuItem.Text = Now.Hour & ":" & Now.Minute & ":" & Now.Second & "Uhr" & " | " & Now.Day & "." & Now.Month & "." & Now.Year
    115. End Sub
    117. Private Sub tmrStatus_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrStatus.Tick
    118. Dim lol As String = GetMP3Length(lbNextSongs.SelectedItems.ToString)
    119. Dim ms As Integer = lol
    120. Dim ts As New TimeSpan(0, 0, 0, 0, ms)
    121. Dim Sec As String = ts.Seconds
    122. Dim Min As String = ts.Minutes
    123. Dim Stun As String = ts.Hours
    124. Label1.Text = Min & ":" & Sec
    127. End Sub
    128. ' Millisekunden nach mm:ss umrechnen
    129. Public Function FormatMilliSeconds(ByVal Milliseconds As Integer, _
    130. Optional ByVal sFormat As String = "mm:ss") As String
    132. Return CDate("00:00:00").AddMilliseconds(Milliseconds).ToString(sFormat)
    133. End Function
    135. Public Function GetMP3Length(ByVal FileName As String) As Integer
    137. ' MP3-Datei öffnen
    138. mciSendString("open " & Chr(34) & lbNextSongs.SelectedItems.ToString & Chr(34) & _
    139. " type MPEGVideo alias mp3audio", 0, 0, 0)
    141. ' Länge der Datei in Millisekunden auslesen
    142. Dim sReturn As String = Strings.Space(256)
    143. Dim lRet As Integer = mciSendString("status mp3audio length", _
    144. sReturn, sReturn.Length, 0&)
    146. ' MP3-Datei schliessen
    147. mciSendString("close mp3audio", 0, 0, 0)
    149. Return Val(sReturn)
    150. End Function
    152. Private Sub tmrUpSec_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrUpSec.Tick
    153. Label4.Text = Label4.Text + 1
    154. If Label4.Text >= 60 Then
    155. Label4.Text = 0
    156. End If
    157. End Sub
    159. Private Sub tmrUpMin_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrUpMin.Tick
    160. Label2.Text = Label2.Text + 1
    161. End Sub
    164. Private Sub lbDB_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbDB.DoubleClick
    166. End Sub
    167. ''' <summary>
    168. ''' Liest den ID3V1-Tag einer MP3-Datei aus
    169. ''' </summary>
    170. ''' <param name="sFile">MP3-Dateiname</param>
    171. ''' <returns>Struktur mit den MP3-Informationen</returns>
    172. Private Function ReadMP3Info(ByVal sFile As String) As MP3Info
    173. Dim oInfo As New MP3Info
    175. ' Prüfen, ob Datei auch existiert
    176. If System.IO.File.Exists(sFile) Then
    177. Try
    178. Dim oStream As New System.IO.FileStream(sFile, IO.FileMode.Open)
    180. ' Position des MP3-Tags
    181. oStream.Seek(-128, IO.SeekOrigin.End)
    183. ' jetzt 128 Bytes lesen
    184. Dim bData(127) As Byte
    185. oStream.Read(bData, 0, 128)
    187. ' Byte in String umwandeln
    188. Dim sData As String = System.Text.Encoding.Default.GetString(bData)
    190. ' Prüfen, ob Daten mit TAG beginnen
    191. If sData.Substring(0, 3) = "TAG" Then
    192. With oInfo
    193. ' jetzt die Struktur mit den Infos füllen
    194. .Titel = StripNull(sData.Substring(3, 30))
    195. .Interpret = StripNull(sData.Substring(33, 30))
    196. .Album = StripNull(sData.Substring(63, 30))
    197. .Jahr = StripNull(sData.Substring(93, 4))
    198. .Kommentar = StripNull(sData.Substring(97, 30))
    199. .Genre = StripNull(sData.Substring(127, 1))
    200. End With
    201. End If
    202. oStream.Close()
    204. Catch ex As Exception
    205. End Try
    206. End If
    208. ' Rückgabewert: MP3Info
    209. Return (oInfo)
    210. End Function
    212. ' Sucht nach dem ersten Null-Zeichen und gibt den linken Teil
    213. ' des Strings zurück
    214. Private Function StripNull(ByVal sData As String) As String
    215. Dim nPos As Integer = sData.IndexOf(Chr(0))
    216. If nPos >= 0 Then
    217. Return sData.Substring(0, nPos).TrimEnd
    218. Else
    219. Return sData.TrimEnd
    220. End If
    221. End Function
    223. ' MP3-Info lesen und anzeigen
    224. Private Sub ShowMP3Infos(ByVal sFile As String)
    225. Dim oInfo As MP3Info = ReadMP3Info(sFile)
    226. Dim SubItem As ListViewItem
    227. With lbDB.Items
    229. With lbDB.Items
    230. SubItem = .Add(oInfo.Titel)
    231. SubItem.SubItems.Add(oInfo.Interpret)
    232. SubItem.SubItems.Add(oInfo.Album)
    234. End With
    235. '.Clear()
    236. '.Add(oInfo.Titel)
    237. '.Add(oInfo.Interpret)
    238. '.Add(oInfo.Album)
    239. '.Add(oInfo.Jahr)
    240. '.Add(oInfo.Kommentar)
    241. '.Add(oInfo.Genre)
    242. End With
    243. End Sub
    245. End Class


    Gruß

    Hey,

    probier mal das hier:

    VB.NET-Quellcode

    1. Private Sub WriteSelected()
    2. For Each p In lbNextSongs.Items.OfType(Of ListViewItem).Where(Function(d) d.Selected())
    3. Dim Sel As New ListViewItem
    4. Sel.Text = p.Text
    5. Sel.SubItems.Add(p.SubItems(1).Text)
    6. Sel.SubItems.Add(p.SubItems(2).Text)
    7. ListView2.Items.Add(Sel)
    8. Next
    9. End Sub

Facebook
Telefonspende