６２．ファンクションキーの数を取得する

＜　使用用途　＞
ファンクションキーの数を取得する 　

　＜　説明　＞
ＡＰＩ関数のGetKeyboardTypeを使用します
GetKeyboardType　＝＞ファンクションキーの数を取得する
　　＜引数＞
　　　　　nTypeFlag&：定数
　　＠戻り値＠
　　　　　数値が戻る

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function GetKeyboardType Lib "USER32" (ByVal nTypeFlag&) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long
　　　'ファンクションキーの数を取得
　　　Ret=GetKeyboardType(2)
　　　Text1.Text=Ret
'***************************
'キーボードのタイプを取得する
'Ret=GetKeyboardType(0)
'**************************
End Sub