BOOL PathSetDlgItemPath( HWND hDlg, int Id, LPCSTR Path);
Declare Function PathSetDlgItemPath Lib "shlwapi" Alias "PathSetDlgItemPathA" ( _ ByVal hWnd As Long, ByVal Id As Long, ByVal s As String) As Long
引数の意味は以下の通り。
hDlg | ウィンドウのハンドル。 |
Id | コントロールのID。 |
Path | 表示するパス。 |
戻り値は、関数の実行に成功したか否かを表す真偽値である。
Private Sub Command1_Click() Dim Path As String Dim ID As Long Path = "c:\windows\system32\kernel32.dll" ID = GetDlgCtrlID(Text1.hWnd) PathSetDlgItemPath Me.hWnd, ID, Path End Sub