![]() |
| VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
| Von |
Afryka_1 |
| E-Mail |
marcus_kalb@freenet.de |
| Datum |
14. Oktober 2015 um 19:58:04 |
| Frage |
Hallo,
ich habe ein Projekt und komme nicht weiter. Ich fange gerade an mich mit VB zu beschäftigen doch leider komme ich mit meinem ersten selbstständigen Projekt nicht weiter.
Ich möchte eine XML Datei per drag and drop öffnen und mir dann daraus definierte Attribute anzeigen lassen. (Label oder TextBox)
Das drag and drop funktioniert doch leider komme ich mit der XML Auswertung nicht weiter.
Hier schon mal was ich haben.
Imports System.IO
Imports System.Xml
Public Class Form1
Private Sub TextBox1_DragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop
Dim filenames() As String
Dim strFile As String
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
filenames = e.Data.GetData(DataFormats.FileDrop)
strFile = filenames(0)
If File.Exists(strFile) Then
If strFile.ToLower.EndsWith(".xml") Then
Dim sr As New StreamReader(strFile, True)
Label1.Text = sr.ReadToEnd
sr.Close()
End If
End If
End If
End Sub
Vielleicht kann mir einer von euch helfen oder mir einen Buchvorschlag geben.
Aller Anfang ist schwer.
Vielen Dank
Marcus |
|
| [ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
|
| Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|
Zum Seitenanfang