mvh
krede
Ku du evt. vis en del af koden?
vil være til stor hjæp.
-Thomas
mvh
krede
sorry.. her er det så:
"jeg arbejder med en Form (Explorer) og vil gerne under "Open" istedet for en liste over fx. *.doc-filer, istedet få valget mellem at åbne "Agro-Q" eller en anden fil (fra MenuItem..) kan man ikke få lov til det..
' Her starter så programmet..udklippet fra nedenunder er fra udvikleren.dk
'
Private Sub OpenToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim OpenFileDialog As New OpenFileDialog
OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
OpenFileDialog.Filter = "Word Files (*.doc)|*.doc"
OpenFileDialog.ShowDialog(Me)
Dim FileName As String = OpenFileDialog.FileName
' TODO: Add code to open the file
End Sub
'Vi skal bruge ShellExecute til at starte programmer
' med.
'
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long _
) As Long
Private Sub Command1_Click()
'
' Brug ShellExecute funktionen, der er defineret i
' toppen af denne form's kode, til at åbne en
' datafil med. ShellExecute finder selv ud af,
' hvilket program skal bruges.
'
Dim filename As String
filename = "Agro-Q_v.1.2"
With Me
ShellExecute(0, "open", filename, 0, 0, 1)
End With
End Sub