∇　スタートメニューを表示　∇

	この、スタートメニューを表示します

　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　　

　　　　　　　　　　　　　　　　　　 　　　APIのSendMessage関数を使用し、WM_SYSCOMMAND - SC_TRACKLISTを送ります。

　　　　　　　　　　　　　　　　　　　　　　 コピー&ペーストして、コマンドボタンを一つ置いて実行してみてください。

　　　　　　　

'SendMessageの宣言

Private Declare Function SendMessage Lib "USER32" _
　Alias "SendMessageA" (ByVal hWnd&, ByVal wMsg&, _
　ByVal wParam&, ByVal lParam&) As Long

Private Sub Command1_Click()

　　 '必要な定数の宣言

　　Const SC_TRACKLIST = &HF130
　　Const WM_SYSCOMMAND = &H112

　　 'メッセージを送る

　　SendMessage Me.hWnd, WM_SYSCOMMAND, SC_TRACKLIST, 0

End Sub

1999 Copyright(C) Manabu
1999-00 Manabuの部屋 http://www.manabu.uni.cc/
この文章の無断転際を禁じます

Gポイントポイ活　Amazon Yahoo 楽天

無料ホームページ 楽天モバイル[UNLIMITが今なら1円] 海外格安航空券 海外旅行保険が無料！