画面は表示されていないが、砂時計を表示したい (ID:85629)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 チップ集にフォームの外のマウスポインターを指定する方法がありましたので参考までに。最小化してもそのままでした。 Private Const IDC_APPSTARTING = 32650& Private Const IDC_ARROW = 32512& Private Const OCR_NORMAL = 32512& Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Boolean Private Sub Command1_Click() 'このボタンを押すとポインタが変わる Dim hcursor As Long, ret_val As Long hcursor = LoadCursor(0, IDC_APPSTARTING) ret_val = SetSystemCursor(hcursor, OCR_NORMAL) End Sub Private Sub Command2_Click() Dim hcursor As Long, ret_val As Long hcursor = LoadCursor(0, IDC_ARROW) ret_val = SetSystemCursor(hcursor, OCR_NORMAL) End Sub