zockerg
Goto Top

Durchsuchen-Menüstrip mit vb 2008

Hallo,

ich möchte mit vb 2008 ein Menü erstellen, in welchem sich der Punkt "Durchsuchen befindet".
Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
Call OpenFileDialog1.ShowDialog()
End Sub

Naja soweit bin ich schonmal gekommen, also das er, wenn ich auf "Durchsuchen" klicke,
ein "Durchsuchen"-Fenster zeigt.
Nun möchte ich gern, dass wenn ich eine Datei auswähle er den Pfad +Dateiname
in ein Textfeld reinschreibt.

gruß zockerg

Content-Key: 87255

Url: https://administrator.de/contentid/87255

Printed on: April 19, 2024 at 05:04 o'clock

Mitglied: 56153
56153 May 08, 2008 at 15:24:23 (UTC)
Goto Top
vorausgesetzt die Textbox heißt 'Textbox1' ->

Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click

OpenFileDialog1.ShowDialog()

if OpenFileDialog1.FileName <> "" Then  
textbox1.text = openfiledialog1.filename
end if
End Sub
Member: Biber
Biber May 08, 2008 at 15:33:35 (UTC)
Goto Top
Moin zockerg,

Vielleicht solltest Du Dich nicht immer so kurz fassen beim posten und beim coden.

Wenn Du nur den ganz spartanischen Aufruf "Call OpenFileDialog()", auf deutsch "MachmaNeDateiAbfrageEy()" absetzt, dann sieht das Dingen genauso shice aus wie zu erwarten.

Vielleicht solltest Du dir erst ein OpenFileDialog-Object holen/anlegen oder auch ein einfaches CommonDialog-Object und dann ein paar Parameter setzen...
With meiDialogGeraffel 
.InitialDirectory="D:\Temp";  
.Filter = ""Bätchdateien |*.bat|Neuere Bätche|*.cmd";  
.Title ="meiDialogGeraffel-Titel"  
' usw usw  
' ....und dann gegen abend  
.ShowDialog()
' danach kannst Du an .FileName oder .Filenames bei MultiSelect ran   
If len(.FileName) > 0
'.....  
End if

End With
....

Grüße
Biber
Member: zockerg
zockerg May 08, 2008 at 18:29:49 (UTC)
Goto Top
okay funktioniert danke euch
@Biber tut mir ja leid face-confused hab halt noch nicht so die ahnung von vb.
aber ich lerne ja noch und nehme deinen rat herzlich entgegen ;)
danke euch