アーカイバAPI Tips - 003:Get(Set)BackGroundMode

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

■[Arc]GetBackGroundMode　(使用頻度：★★)
DLLがバックグラウンドモードであるかどうかを判断するAPI
■[Arc]GetBackGroundMode　(使用頻度：★★)
DLLのバックグラウンドモードを設定するAPI
■どんな処理をするのか？
チェックボックスのオン／オフでモードを変更、コマンドボタンで現在の状態を表示。
■準備
「標準 EXE」でプロジェクトを作成し、標準モジュールを追加後、表示されたフォーム上にチェックボックス、コマンドボタンを設置しておく。
■ソース　(標準モジュール／フォームモジュール／ダウンロード)
(tips003.bas) Option Explicit Public Declare Function UnlhaGetBackGroundMode Lib "Unlha32" () As Long Public Declare Function UnlhaSetBackGroundMode Lib "Unlha32" _ (ByVal bBackGroundMode As Long) As Long ' 設定の定数 Public Const VB_TRUE As Long = 1 Public Const VB_FALSE As Long = 0
(tips003.frm) Option Explicit Private Sub Check1_Click() Dim ret As Long Dim Bmode As Long ' チェックボックスのON/OFFによる判定 If Check1.Value >= 1 Then Bmode = VB_TRUE Else Bmode = VB_FALSE End If 　　' モードを設定 ret = UnlhaSetBackGroundMode(Bmode) End Sub Private Sub Command1_Click() Dim ret As Long Dim MsgStr As String ' DLLのプロセスがバックグラウンドモードかどうかを取得するAPI ret = UnlhaGetBackGroundMode () ' プロセスによって表示を変更 If ret >= VB_TRUE Then MsgStr = "現在DLLはバックグラウンドモードです。" Else MsgStr = "現在DLLはバックグラウンドモードではありません。" End If ' 情報アイコンとメッセージを表示 MsgBox MsgStr, vbOkOnly + vbInformation,"UNLHA32.DLL" End Sub
■ダウンロード(VB6.0用)
－ tips003.zip (2KB)：ボタンを押すとバックグラウンド状況を表示する。
■関連するAPI
なし
■　←BACK　■　■　ホームページに戻る ■　■　Tipsに戻る　■　■　NEXT→　■

[Arc]Get(Set)BackGroundMode

Last Updated：2001/06/05

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

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

　DLLがバックグラウンドモードであるかどうかを判断するAPI

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

　DLLのバックグラウンドモードを設定するAPI

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

　　チェックボックスのオン／オフでモードを変更、コマンドボタンで現在の状態を表示。

　■準備

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

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

　(tips003.bas)

　(tips003.frm)

Option Explicit

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

    ' チェックボックスのON/OFFによる判定
    If Check1.Value >= 1 Then
        Bmode = VB_TRUE
    Else
        Bmode = VB_FALSE
    End If
    
　　' モードを設定
    ret = UnlhaSetBackGroundMode(Bmode)

End Sub

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

    ' DLLのプロセスがバックグラウンドモードかどうかを取得するAPI
    ret = UnlhaGetBackGroundMode ()

    ' プロセスによって表示を変更
    If ret >= VB_TRUE Then
        MsgStr = "現在DLLはバックグラウンドモードです。"
    Else
        MsgStr = "現在DLLはバックグラウンドモードではありません。"
    End If

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

End Sub

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

　　－ tips003.zip (2KB)：ボタンを押すとバックグラウンド状況を表示する。

　■関連するAPI

　　なし

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