2010/06/29

access2010 ラベルのフェードアウト表示

Shade値を詳細セクション背景色と同じになるまで変更
Option Compare Database
Option Explicit

Private Sub Form_Load()
'    Me.Section(0).BackThemeColorIndex = 1 '背景1:1  背景2:3
'    Me.Section(0).BackShade = 100

    Me.TimerInterval = 0    
    Me.lbl01.ForeThemeColorIndex = Me.Section(0).BackThemeColorIndex
    Me.lbl01.BackStyle = 0 '背景スタイル:透明
    Me.lbl01.BorderStyle = 0 '境界線スタイル:透明
    Me.lbl01.Caption = ""
End Sub

Private Sub Form_Timer()
On Error GoTo ErrHnd
    Me.lbl01.ForeShade = Me.lbl01.ForeShade + 10
    Me.TimerInterval = 50
    If Me.Section(0).BackShade < Me.lbl01.ForeShade Then
        Me.TimerInterval = 0
        Me.lbl01.Caption = ""
    End If
Exit Sub
ErrHnd:
    Me.TimerInterval = 0
    Me.lbl01.Caption = ""
End Sub

Public Sub ShowMsg(MsgString As String)
    Me.TimerInterval = 1000
    Me.lbl01.ForeShade = 0
    Me.lbl01.Caption = MsgString
End Sub

0 件のコメント: