Ú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.

• #28800 Fferi50 Topikgazda the radish #28799

  Új Válasz 2015-09-28 14:54:56 #28800

  Ú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!

  A userformnak van egy modal paramétere, ami
  vagy 1 (ha nem adod meg, ez a default), ebben az esetben addig nem megy tovább a program, amíg a form látszik
  vagy 0 ill. False lehet, ezt mindig meg kell adni. Ilyenkor a form nem állítja meg a program futását. Ezért is írtam, hogy a False paramétert is állítsd be a show meghívásakor.

  Az application.wait valóban megállítja a program futását, bocs erre nem voltam figyelemmel, más módon kell a 10 mp - visszaszámlálást megoldani.
  Még agyalok rajta egy kicsit, lehet az időzítő funkciót kell használni.

  Üdv.

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