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

• #28803 Fferi50 Topikgazda the radish #28799

  Új Válasz 2015-09-28 16:39:45 #28803

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  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