πρέπει να δεις λίγο μέσα από το Help του visual studio ή από κάποιο site το namespace
System.Runtime.InteropServices
κάνεις ένα νέο project στο visual studio (windows form - vb)
βάζεις το κουμπί
κάνεις κλικ στο κουμπί και γράφεις μέσα τον κώδικα
OpenWithDialog(Me.Handle, Marshal.GetHINSTANCE(Me.GetType().Module), "", CInt(AppWinStyle.NormalFocus))
γενικά πρέπει να κάνεις import το namespace
Imports System.Runtime.InteropServices
και μετά ορίζεις την Openwithdialog
Public Module OpenWith
Public Declare Auto Function OpenWithDialog _
Lib "shell32.dll" _
Alias "OpenAs_RunDLL" _
( _
ByVal hwnd As IntPtr, _
ByVal hinst As IntPtr, _
ByVal lpFile As String, _
ByVal nShowCmd As Int32 _
) As Int32
End Module
όλος μαζί ο κώδικας
Imports System.Runtime.InteropServices
Public Module OpenWith
Public Declare Auto Function OpenWithDialog _
Lib "shell32.dll" _
Alias "OpenAs_RunDLL" _
( _
ByVal hwnd As IntPtr, _
ByVal hinst As IntPtr, _
ByVal lpFile As String, _
ByVal nShowCmd As Int32 _
) As Int32
End Module
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenWithDialog(Me.Handle, Marshal.GetHINSTANCE(Me.GetType().Module), "", CInt(AppWinStyle.NormalFocus))
End Sub
End Class
δες αν σε βοηθαει...
Νικόλαος Καντζέλης
BSc, MSc, MCAS, MCPD, MCITP, MCTS,MCP, MCT