アーカイバAPI Tips - 004:Get(Set)CursorMode(Interval)

3F	[Arc]Get(Set)CursorMode(Interval)
Last Updated：2001/06/05
■トップ ■ダウンロード ■圧縮解凍の部屋 ■オンラインソフトの部屋　 ■サポート掲示板　 ■リンク１

■[Arc]GetCursorMode　(使用頻度：★★)
カーソルのモードが表示・非表示かを判断するAPI
■[Arc]SetCursorMode　(使用頻度：★★)
カーソルのモードが表示・非表示かを設定するAPI
■[Arc]GetCursorInterval　(使用頻度：★)
カーソルの回転速度を取得するAPI(デフォルト：80msec) 　回転カーソルをサポートしない場合、設定は無意味です。(DLLによって若干解凍速度が上がる場合がある)
■[Arc]SetCursorInterval　(使用頻度：★)
カーソルの回転速度を設定するAPI(デフォルト：80msec) 　回転カーソルをサポートしない場合、設定は無意味です。(DLLによって若干解凍速度が上がる場合がある)
■どんな処理をするのか？
チェックボックスのオン／オフでモードを変更、スクロールバーで回転速度を設定、コマンドボタンで現在の状態を表示。
■準備
「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にチェックボックス、テキストボックス、横スクロールバー、コマンドボタンを設置しておく。また横スクロールバーのValueを80に設定。
■ソース　(標準モジュール／フォームモジュール／ダウンロード)
(tips004.bas) Option Explicit Public Declare Function UnlhaGetCursorMode Lib "Unlha32" () As Long Public Declare Function UnlhaSetCursorMode Lib "Unlha32" _ (ByVal CursorMode As Long) As Long Public Declare Function UnlhaGetCursorInterval Lib "Unlha32" () As Integer Public Declare Function UnlhaSetCursorInterval Lib "Unlha32" _ (ByVal CursorMode As Integer) As Long ' 設定の定数 Public Const VB_TRUE As Long = 1 Public Const VB_FALSE As Long = 0
(tips004.frm) Option Explicit Private Sub Check1_Click() Dim ret As Long Dim Cmode As Long ' チェックボックスのON/OFFによる判定 If Check1.Value >= 1 Then Cmode = VB_TRUE Else Cmode = VB_FALSE End If ' カーソルモードの変更 ret = UnlhaSetCursorMode(Cmode) End Sub Private Sub Command1_Click() Dim ret As Long Dim CurSp As Integer Dim MsgStr As String ' DLLのカーソルモードが表示か非表示かを取得するAPI ret = UnlhaGetCursorMode () ' プロセスによって表示を変更 If ret >= VB_TRUE Then MsgStr = "現在のDLLはカーソル表示モードです。" Else MsgStr = "現在のDLLはカーソル非表示モードです。" End If ' カーソルの回転速度を取得 CurSp = UnlhaGetCursorInterval() ' 回転速度を表示 MsgStr = MsgStr & vbCrLf & "回転速度は" & CurSp & "ms(ミリ秒)です。" ' 情報アイコンとメッセージを表示 MsgBox MsgStr, vbOkOnly + vbInformation,"UNLHA32.DLL" End Sub Private Sub HScroll1_Change() Dim ret As Long ' 変更した回転速度をテキストボックスに表示 Text1.Text = HScroll1.Value ' 回転速度をDLLに渡す ret = UnlhaSetCursorInterval(HScroll1.Value) End Sub
■ダウンロード(VB6.0用)
－ tips004.zip (3KB)：ボタンを押すとカーソルモードと回転速度を表示する。
■関連するAPI
なし
■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る ■　■　NEXT→　■

[Arc]Get(Set)CursorMode(Interval)

Last Updated：2001/06/05

■トップ ■ダウンロード ■圧縮解凍の部屋 ■オンラインソフトの部屋　 ■サポート掲示板　 ■リンク１

　■[Arc]GetCursorMode　(使用頻度：★★)

　カーソルのモードが表示・非表示かを判断するAPI

　■[Arc]SetCursorMode　(使用頻度：★★)

　カーソルのモードが表示・非表示かを設定するAPI

　■[Arc]GetCursorInterval　(使用頻度：★)

　カーソルの回転速度を取得するAPI(デフォルト：80msec)
　回転カーソルをサポートしない場合、設定は無意味です。(DLLによって若干解凍速度が上がる場合がある)

　■[Arc]SetCursorInterval　(使用頻度：★)

　カーソルの回転速度を設定するAPI(デフォルト：80msec)
　回転カーソルをサポートしない場合、設定は無意味です。(DLLによって若干解凍速度が上がる場合がある)

　■どんな処理をするのか？

　チェックボックスのオン／オフでモードを変更、スクロールバーで回転速度を設定、コマンドボタンで現在の状態を表示。

　■準備

　「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にチェックボックス、テキストボックス、横スクロールバー、コマンドボタンを設置しておく。また横スクロールバーのValueを80に設定。

　■ソース　(標準モジュール／フォームモジュール／ダウンロード)

　(tips004.bas)

　(tips004.frm)

Option Explicit

Private Sub Check1_Click()
    Dim ret As Long
    Dim Cmode As Long

    ' チェックボックスのON/OFFによる判定
    If Check1.Value >= 1 Then
        Cmode = VB_TRUE
    Else
        Cmode = VB_FALSE
    End If
    
    ' カーソルモードの変更
    ret = UnlhaSetCursorMode(Cmode)

End Sub

Private Sub Command1_Click()
    Dim ret As Long
    Dim CurSp As Integer
    Dim MsgStr As String

    ' DLLのカーソルモードが表示か非表示かを取得するAPI
    ret = UnlhaGetCursorMode ()

    ' プロセスによって表示を変更
    If ret >= VB_TRUE Then
        MsgStr = "現在のDLLはカーソル表示モードです。" 
    Else
        MsgStr = "現在のDLLはカーソル非表示モードです。"
    End If

    ' カーソルの回転速度を取得
    CurSp = UnlhaGetCursorInterval()

    ' 回転速度を表示
    MsgStr = MsgStr & vbCrLf & "回転速度は" & CurSp & "ms(ミリ秒)です。"

    ' 情報アイコンとメッセージを表示
    MsgBox MsgStr, vbOkOnly + vbInformation,"UNLHA32.DLL"

End Sub

Private Sub HScroll1_Change()
    Dim ret As Long

    ' 変更した回転速度をテキストボックスに表示
    Text1.Text = HScroll1.Value

    ' 回転速度をDLLに渡す
    ret = UnlhaSetCursorInterval(HScroll1.Value)

End Sub

　■ダウンロード(VB6.0用)

　　－ tips004.zip (3KB)：ボタンを押すとカーソルモードと回転速度を表示する。

　■関連するAPI

　　なし

■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る ■　■　NEXT→　■