３１．マウスアイコンを変更する方法
＜ 使用用途 ＞
マウスアイコンを変更できる
＜ 説明 ＞
MousePointerプロパティを使います。
|
|
|
|
| vbDefault |
|
デフォルト値 |
| VbArrow |
|
矢印アイコン |
| VbCrosshair |
|
クロス。十文字アイコン |
| VbIbeam |
|
アルファベットの I の形をしたアイコン |
| VbIconPointer |
|
2重の四角形アイコン |
| VbSizePointer |
|
上下左右を指している矢印アイコン |
| VbSizeNESW |
|
斜め 2方向を指している矢印アイコン |
| VbSizeNS |
|
上下 2方向を指している矢印アイコン |
| VbSizeNWSE |
|
斜めに2方向を指している矢印アイコン |
| VbSizeWE |
|
左右 2方向を指している矢印アイコン |
| VbUpArrow |
|
上矢印アイコン |
| VbHourglass |
|
砂時計 (待機)アイコン |
| VbNoDrop |
|
禁止アイコン |
| VbArrowHourglass |
|
矢印と砂時計アイコン |
| vbArrowQuestion |
|
矢印と疑問符（？）アイコン |
| vbSizeAll |
|
サイズ (すべて)アイコン |
| vbCustom |
|
ユーザー定義のアイコン |
< ＳＡＭＰＬＥ ＞
'フォームにコマンドボタンを１つ貼りつけた状態です
Private Sub Command1_Click()
’アプリ画面内でアイコンを砂時計にして表示する
Screen.MousePointer = vbCustom
’ユーザーアイコンを使用する時
’ Screen.MouseIcon = LoadPicture("C:\Program
Files\DevStudio\VB\Graphics\Icons\Dragdrop\Drag1pg.ico")
’ Screen.MousePointer = vbCustom
End Sub