2010/03/06

MS-Access+ADO非同期処理 Form_dialogbusy

btnCancel押下で、イベントを発生させ共有先でイベントを把握。
表示キャプションはメインフォームの接続イベントで変更するから、カスタムプロパティを使用 
配置コントロール
  • label1
  • btnCancel 
Option Compare Database
Option Explicit

Public Event btnCancelClick()

Property Let oCaption(i As String)
     Me.Caption = i
End Property
Property Let oLabelCaption(i As String)
    Me.label1.Caption = i
End Property

Private Sub btnCancel_Click()
    RaiseEvent btnCancelClick
End Sub

Private Sub Form_Load()
    Me.oCaption = ""
    Me.oLabelCaption = ""
    Me.RecordSelectors = False
    Me.NavigationButtons = False
    Me.TimerInterval = 500
End Sub

Private Sub Form_Timer()
    Me.label1.Caption = Me.label1.Caption & "."
End Sub

0 件のコメント: