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

• #19334 Mutt senior tag the radish #19327

  Új Válasz 2013-10-19 20:39:48 #19334

  Ú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

  

  Mutt

  senior tag

  válasz the radish #19327 üzenetére

  Hello,

  Én ritkán szoktam megszakítani egy programot, de a lenti példában láthatod hogy a Msgbox-ra adott választ egy változóba lehet tenni, és ez alapján tudsz elágaztatni.

  Sub KilepDemo()
  Dim lngOsszeg As Long
  Dim blnVege As Boolean
  Dim vResponse
  
  lngOsszeg = 0
  blnVege = False
  
  Do
  'bekérünk egy számot
  vResponse = Application.InputBox("Adj meg egy egyjegyű számot:", "Összegzés (eddig " & lngOsszeg & ")", , , , , , 1)
  'ha egynél többet adtak meg, akkor rákérdezünk a kilépésre
  If Len(vResponse) > 1 Then
  vResponse = MsgBox("Hé nem figyeltél!", vbOKCancel, "Irgum-burgum")
  'ha okét nyom akkor kilépünk a ciklus végén
  If vResponse = vbOK Then blnVege = True
  Else
  'ha egy számot adott meg akkor számolunk vele
  lngOsszeg = lngOsszeg + vResponse
  End If
  'addig maradunk a ciklusban míg ki nem léphetünk
  Loop Until blnVege
  
  End Sub

  üdv.

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