Computerhilfen.de Logo
Forum
Tipps
News
Frage stellen

VB-beim nächsten klicken-passiert was...

Hi,


Wenn ich auf einen Commandbutton klicke, wird ein bild versteckt und ein anderes aufgedeckt (visible)
wenn ich das zweite mal drauf drücke, soll ein anderes bild aufgedeckt werden .
FRAGE:

Wie sag ich VB, dass es dies aber erst beim 2 oder3 oder4 usw. klick tuhen soll?
und nicht alles gleich beim ersten klick??


Antworten zu VB-beim nächsten klicken-passiert was...:

Poste doch mal deinen Code dafür..

Gruß

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Hi Raptors,

die <trocken> Methode

  • definiere nen Zähler
  • in der FORM-Routine wo du den ProgrammAufruf erkennst, ordne deinem Zähler einen Anfangswert zu
  • dort wo du das click-Ereignis abfängst, kannste den Zähler abfragen / je Wert das jeweilige Bild bringen / erhöhen / setzen


Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Hi Raptors,

die <trocken> Methode

  • definiere nen Zähler
  • in der FORM-Routine wo du den ProgrammAufruf erkennst, ordne deinem Zähler einen Anfangswert zu
  • dort wo du das click-Ereignis abfängst, kannste den Zähler abfragen / je Wert das jeweilige Bild bringen / erhöhen / setzen

Mein Code:

...
Private Sub command1_Click()
pic1.visible = true
pic2.visible = false
***nächster klick***
pic2.visible = true
pic3.visible = false
***nächster klick***
pic3.visible = true
pic4.visible = false
***usw***


***nächster klick*** soll dann der code sein, den
                     ich nicht weiß

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Naja,

Option Explicit
  Dim iZaehler as Integer

Dann im "Form Load" mal:
  iZaehler = 0

Und in Deiner Funktion

Private Sub command1_Click()
  iZaehler = iZaehler + 1
  If iZaehler = 1 Then
    pic1.visible = true
    pic2.visible = false
  ElseIf iZaehler = 2 Then
    pic2.visible = true
    pic3.visible = false
  ElseIf iZaehler = 3 Then
    pic3.visible = true
    pic4.visible = false
  ElseIf ...
    '***usw***
  End If
End Sub()

« Letzte Änderung: 16.03.04, 09:50:08 von Mario »

Danke

Es hat so geklappt, wie ich es mir vorgestellt habe :)

DANKE[/b][/u]:)


« NetObjektFusionVBScript im Internet »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Quellcode
Ein Quellcode, auch als Quelltext bekannt, bezeichnet den unkompilierten Programm-Code einer Software. Quell- oder Programm-Code ist der auch für Menschen lesbare Co...

Unicode
Unicode ist ein international anerkannter Standard, der als universeller Zeichencode ("Universal Code") dient und durch das Unicode-Konsortium entwickelt und verwaltet wi...

QR-Code
QR-Codes, die Abkürzung für "Quick Response Codes", sind eine Form von zweidimensionalen Barcodes. Damit lassen sich Informationen schnell und effizient speiche...