メニューのフェード効果を設定          <TOP>

メニューのフェード効果をON/OFFします。

SystemParametersInfo システム全体に関するパラメータを取得・設定
SPI_SETSELECTIONFADE(&H1015) フェード効果の設定
SPIF_UPDATEINIFILE(&H1) ユーザープロファイルの更新を指定
SPIF_SENDWININICHANGE(&H2) 全てのアプリケーションに通知して更新
　

メニューをクリック後のフェード効果を確認してください。短い時間ですのでお見逃し無く(^^;)

 

'================================================================
'= メニューのフェード効果を設定
'=    (SelectFade.bas)
'================================================================
#include "Windows.bi"

#define SPI_SETSELECTIONFADE &H1015     'フェード効果の設定
#define SPIF_UPDATEINIFILE &H1          'ユーザープロファイルの更新を指定
#define SPIF_SENDWININICHANGE &H2       '全てのアプリケーションに通知して更新

' システム全体に関するパラメータを取得・設定
Declare Function Api_SystemParametersInfo& Lib "user32" Alias "SystemParametersInfoA" (ByVal uiAction&, ByVal uiParam&, pvParam As Any, ByVal fWinIni&)

Var Shared Radio1 As Object
Var Shared Radio2 As Object
Var Shared Button1 As Object

Radio1.Attach GetDlgItem("Radio1") : Radio1.SetFontSize 14
Radio2.Attach GetDlgItem("Radio2") : Radio2.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Function Fade bdecl () As Integer
Function Fade()
    Fade = Val(Mid$(GetDlgRadioSelect("Radio1"), 6)) - 1
End Function

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long

    ' メニューのフェード効果の有効無効を設定
    Ret = Api_SystemParametersInfo(SPI_SETSELECTIONFADE, 0, ByVal Fade, SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End