<DllImport("user32.dll")> _ Private Shared Function SystemParametersInfo(ByVal uAction As UInteger, ByVal uparam As UInteger, ByVal lpvParam As IntPtr, ByVal fuWinIni As UInteger) As Boolean End Function
Public Shared Sub ReloadSysCursor() SystemParametersInfo(SysParamDefine.SPI_SETCURSORS, 0, IntPtr.Zero, 0) End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ClsSysCursor.SetCursor(APPSTARTING, NORMAL) End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ClsSysCursor.SetCursor(WAIT, NORMAL) End Sub
--- 呼び出し元(ClsSysCursorクラス) --------- <DllImport("user32.dll")> _ Private Shared Function SetSystemCursor(ByVal hCursor As IntPtr, ByVal id As Integer) As Boolean End Function
<DllImport("user32.dll", CharSet:=CharSet.Auto)> _ Public Shared Function LoadCursor( ByVal hInstance As IntPtr, ByVal lpCursorName As Integer) As IntPtr End Function
''' <summary> ''' カーソルを変更する ''' </summary> ''' <param name="hcur"></param> ''' <param name="id"></param> ''' <remarks></remarks> Public Shared Sub SetCursor(ByVal hcur As Integer, ByVal id As Integer) Dim hcursor As IntPtr = LoadCursor(IntPtr.Zero, hcur) SetSystemCursor(hcursor, id) End Sub