１１４．ウインドウアイテムの情報を取得する

＜　使用用途　＞
ウインドウアイテムの情報を取得する

サンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・下記のソースとおなじです。

　＜　説明　＞
ＡＰＩ関数のGetSystemMetricsを使用します
GetSystemMetrics ＝＞ウインドウアイテムの情報を取得
　　＜引数＞
　　　　　nIndex：定数（SM_××参照）
　　＠戻り値＠
　　　　　nIndexで指定した値により異なる

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function GetSystemMetrics Lib "USER32" (ByVal nIndex As Long) As Long

Public Const SM_CMOUSEBUTTONS = 43
Public Const SM_CXCURSOR = 13
Public Const SM_CXFULLSCREEN = 16
Public Const SM_CXICON = 11
Public Const SM_CXSCREEN = 0
Public Const SM_CYCAPTION = 4
Public Const SC_CYCURSOR = 4
Public Const SM_CYICON = 12
Public Const SM_CYSCREEN = 1
Public Const SM_MOUSEPRESENT = 19
Public Const SM_SWAPBUTTON = 23

'ここからはフォームの処理です
Private Sub Command1_Click(Index As Integer)

　 Dim Ret As Long

　Select Case Index

　Case 0
　　　'マウスの接続の状態
　　Ret = GetSystemMetrics(SM_MOUSEPRESENT)

　　　　If Ret = 1 Then
　　　　　MsgBox "接続されています "
　　　Else
　　　　　MsgBox "接続されていません"
　　　End If

　Case 1
　　'マウスのボタン数
　　Ret = GetSystemMetrics(SM_CMOUSEBUTTONS)
　　　Call Msg(Ret)

　Case 2
　　'マウスの機能が入れ替わっているか？
　　　Ret = GetSystemMetrics(SM_SWAPBUTTON)

　　　　If Ret = 1 Then
　　　　　　MsgBox "マウスの機能は入れ替わっています "
　　　Else
　　　　　　MsgBox "マウスの機能は変更されていません"
　　　End If

　 Case 3
　 　'画面の幅
　　 Ret = GetSystemMetrics(SM_CXSCREEN)
　　　　Call Msg(Ret)

　Case 4
　　 '画面の高さ
　　 Ret = GetSystemMetrics(SM_CYSCREEN)
　　　Call Msg(Ret)

End Select

End Sub

Private Sub Msg(PAPY As Long)

　If PAPY <> 0 Then MsgBox PAPY

End Sub