９０．「ﾈｯﾄﾜｰｸの割り当て」ﾀﾞｲｱﾛｸﾞを表示する

＜　使用用途　＞
ネットワークドライブの割り当てﾀﾞｲｱﾛｸﾞを表示する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のWNetConnectionDialog を使用します
WNetConnectionDialog ＝＞ﾀﾞｲｱﾛｸﾞを表示
　　＜引数＞
　　　　 　hwnd：ウインドウのハンドル
　　　　　 dwType：:垂直位置
　　＠戻り値＠
　　　　　 正常終了0以外

<　ＳＡＭＰＬＥ　＞
’ここでは「ﾈｯﾄﾜｰｸの割り当て」ﾀﾞｲｱﾛｸﾞを表示する処理です
'標準モジュール
Public Declare Function WNetConnectionDialog Lib "mpr" (ByVal hwnd As Long, ByVal dwType As Long) As Long

Public Const RESOURCETYPE_DISK As Long = &H1&　　’「ネットワークドライブの割り当て」を表示
Public Const RESOURCETYPE_PRINT As Long = &H2&　’「プリントポートの割り当て」を表示

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret = WNetConnectionDialog(Form1.hwnd, RESOURCETYPE_DISK))
End Sub

Private Sub Command2_Click()
　　Dim Ret As Long　
　　　Ret = WNetConnectionDialog(Form1.hwnd, RESOURCETYPE_PRINT)
End Sub