πρέπει να δεις λίγο μέσα από το 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