他のフォームからの関連付けファイルの実行方法 (ID:123712)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ここの管理者であるMADIA殿が提供している http://madia.world.coocan.jp/vb/API/ShellExecute.htm のまんまですけど、 '標準モジュール Public Declare Function ShellExecute Lib "SHELL32" Alias "ShellExecuteA" (ByVal hWnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long Public Const SW_SHOW = 5 'ウインドウをアクティブにする 'ここからはフォーム内の処理です Private Sub Command1_Click() Dim Ret As Long Ret = ShellExecute(Me.hWnd, "Open", "Calc.exe", "c:\windows\", "", SW_SHOW) End Sub