| Visual Basic サンプル集 |
 |
Visual Basic 中学校 > Visual Basic サンプル集 > Visual Basic サンプル集目次 > Windows フォーム >
マウスカーソルを砂時計や矢印などにする
2022/1/30
この記事は Windows フォーム アプリ を対象にしています。
マウスカーソルを待機カーソル(よくあるのは砂時計)にする
Me.Cursor = Cursors.WaitCursor
メモ：通常のマウスカーソルに戻す方法は、次のサンプルを参照してください。
メモ：Windows7頃から、待機中のマウスカーソルは砂時計ではなく、ぐるぐる回る円がデフォルトになっているようですが、慣用的に「砂時計」とも呼ぶようです。
メモ：マウスカーソルの形状はWindowsのマウスのプロパティにより異なります。
マウスカーソルを通常のカーソルにする
Me.Cursor = Cursors.Default
メモ：実マウスカーソルの形状はWindowsのマウスのプロパティにより異なります。
マウスカーソルを手の形などいろいろな形にする
Me.Cursor = Cursors.Hand
メモ：通常のマウスカーソルに戻す方法は、上のサンプルを参照してください。
メモ：マウスカーソルの形状はWindowsのマウスのプロパティにより異なります。
既定では以下の形を指定できます。
| Cursors.AppStarting | アプリケーションの開始時に表示されるカーソル |
| Cursors.Arrow | 矢印カーソル |
| Cursors.Cross | 十字カーソル |
| Cursors.Default | 既定のカーソル。通常は矢印カーソルです。 |
| Cursors.Hand | Web リンクの上にマウスを移動すると表示されるハンド カーソル |
| Cursors.Help | 矢印と疑問符が組み合わされたヘルプ カーソル |
| Cursors.HSplit | マウスを水平方向の分割バーの上に置くと表示されるカーソル |
| Cursors.IBeam | マウスをクリックしたときにテキスト カーソルの位置を示す I ビーム カーソル |
| Cursors.No | 現在の操作が無効な領域であることを示すカーソル |
| Cursors.NoMove2D | マウスを動かさずにウィンドウを水平および垂直の両方向にスクロールできるとき、このホイール操作を表すカーソル |
| Cursors.NoMoveHoriz | マウスを動かさずに水平方向へのスクロールができるとき、このホイール操作を表すカーソル |
| Cursors.NoMoveVert | マウスを動かさずにウィンドウを垂直方向にスクロールできるとき、このホイール操作を表すカーソル |
| Cursors.PanEast | マウスを動かしながらウィンドウを水平方向に右スクロールできるとき、このホイール操作を表すカーソル |
| Cursors.PanNE | マウスを動かしながらウィンドウを水平および垂直に右上へスクロールするとき、このホイール操作を表すカーソル |
| Cursors.PanNorth | マウスを動かしながらウィンドウを垂直に上へスクロールするとき、このホイール操作を表すカーソル |
| Cursors.PanNW | マウスを動かしながらウィンドウを水平および垂直に左上へスクロールするとき、このホイール操作を表すカーソル |
| Cursors.PanSE | マウスを動かながらウィンドウを水平および垂直に右下へスクロールするとき、このホイール操作を表すカーソル |
| Cursors.PanSouth | マウスを動かしながらウィンドウを垂直に下へスクロールするとき、このホイール操作を表すカーソル |
| Cursors.PanSW | マウスを動かしながらウィンドウを水平および垂直に左下へスクロールするとき、このホイール操作を表すカーソル |
| Cursors.PanWest | マウスを動かしながらウィンドウを水平に左へスクロールするとき、このホイール操作を表すカーソル |
| Cursors.SizeAll | 十字型の方向を指す矢印が結合して構成されている、4 方向のサイズ変更用カーソル |
| Cursors.SizeNESW | 2 方向の対角線 (右斜めと左斜め) で構成されているサイズ変更用カーソル |
| Cursors.SizeNS | 垂直の 2 方向 (上と下) で構成されているサイズ変更用カーソル |
| Cursors.SizeNWSE | 2 方向の対角線 (左斜めと右斜め) で構成されているサイズ変更用カーソル |
| Cursors.SizeWE | 水平の 2 方向 (左と右) で構成されているサイズ変更用カーソル |
| Cursors.UpArrow | 通常はカーソル位置の識別に使用する上向きの矢印カーソル |
| Cursors.VSplit | マウスを垂直方向の分割バーの上に置くと表示されるカーソル |
| Cursors.WaitCursor | 待機カーソル。通常は砂時計の形です。 |
VB6では Screen.MousePointer = vbHourglass などとします。