Hirdetés

Új hozzászólás Aktív témák

  • Fferi50

    Topikgazda

    válasz the radish #28799 üzenetére

    Szia!

    Mégis az Application.Wait lett a nyerő.
    A UserForm1 tartalmaz egy Label1 cimkét - itt fut az idő visszafelé, Commandbutton1 parancsgomb a művelet végrehajtására, Commandbutton2 parancsgomb a megszakításra.
    A UserForm1 kódlapja így néz ki:
    Option Explicit
    Dim xx As Integer
    Sub mutato()
    UserForm1.Show False
    For xx = 11 To 0 Step -1
    UserForm1.Label1.Caption = xx
    Application.Wait Now + TimeSerial(0, 0, 1)
    DoEvents 'figyeli, hogy volt-e gombnyomás, ha igen, végrehajtja
    Next
    If xx = -1 Then UserForm1.CommandButton1_Click ' ha lefutott az idő, végrehajtjuk a műveletet, ha már megvolt, nem történt semmi
    End Sub
    Public Sub CommandButton1_Click()
    MsgBox "Kilépek"
    xx = -2
    Me.Hide
    End Sub

    Private Sub CommandButton2_Click()
    MsgBox "Cancel"
    xx = -2
    Me.Hide
    End Sub
    Private Sub UserForm_Terminate()
    xx = -2
    End Sub

    Ha kérdésed lenne, kérlek írj!

    Üdv.

Új hozzászólás Aktív témák

Hirdetés