vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Wechselspiel / ComboBox - CommandButton 
Autor: Dirk.B
Datum: 24.11.09 20:54
Hallo zusammen!

Hier unter Tips & Tricks habe ich dieses gefunden, was ich auch gesucht hatte.
http://www.vbarchiv.net/faq/faq_allg_cmdmultievents.html

Dieses möchte ich wie folgt nutzen:
Beim ButtonClick 1 - 3 ändert sich das Icon.
Ferner änder sich der ComboBox.Index entsprechend.

Wie bekomme ich es hin, daß diese je nach Klick bzw. Auswahl immer übereinstimmen? 

'##--ButtonClick---------------------------------------------------------
Private Sub CMB_Laenge_Click()
Static zaehler As Long
zaehler = zaehler + 1    ' Zählvariable initialisieren
 
Select Case zaehler
    Case 1              ' 1. Klick
        With CMB_Laenge
            .Picture = ImageList1.ListImages(6).Picture
            .PicturePosition = fmPicturePositionCenter
        End With
        CB_Laenge.ListIndex = 0
 
    Case 2              ' 2. Klick
        With CMB_Laenge
            .Picture = ImageList1.ListImages(7).Picture
            .PicturePosition = fmPicturePositionCenter
        End With
        CB_Laenge.ListIndex = 1
 
    Case 3               ' 3. Klick
        With CMB_Laenge
            .Picture = ImageList1.ListImages(8).Picture
            .PicturePosition = fmPicturePositionCenter
        End With
        CB_Laenge.ListIndex = 2
 
        zaehler = 0
End Select
End Sub
'------------------------------------------------------------------------
 
'##--auf Veränderungen in der Combo Box reagieren------------------------
Private Sub CB_Laenge_Change()
 
Select Case CB_Laenge.ListIndex
    Case 0                          ' X - Ausrichtung
'        CMB_Laenge.Value = True
        With CMB_Laenge
            .Picture = ImageList1.ListImages(6).Picture
            .PicturePosition = fmPicturePositionCenter
        End With
 
    Case 1                          ' Y - Ausrichtung
'        CMB_Laenge.Value = True
        With CMB_Laenge
            .Picture = ImageList1.ListImages(7).Picture
            .PicturePosition = fmPicturePositionCenter
        End With
 
    Case 2                          ' Z - Ausrichtung
'        CMB_Laenge.Value = True
        With CMB_Laenge
            .Picture = ImageList1.ListImages(8).Picture
            .PicturePosition = fmPicturePositionCenter
        End With
End Select
CMB_Laenge.Value = False
End Sub
'------------------------------------------------------------------------
So funktioniert es mit dem 1 - 3 Click auf den Button gut und der Index in der ComboBox
ändert sich entsprechend.

Egal ob mit 
With CMB_Laenge
    .Picture = ImageList1.ListImages(6).Picture
    .PicturePosition = fmPicturePositionCenter
End With
oder mit 
CMB_Laenge.Value = True
stimmt zwar das Icon, aber nicht die Reihenfolge der ButtonClicks.

Wie bekomme ich hier eine Syncronisation hin?

Vielen Dank im voraus.

VG

Dirk

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Wechselspiel / ComboBox - CommandButton1.459Dirk.B24.11.09 20:54
Re: Wechselspiel / ComboBox - CommandButton856ModeratorDieter25.11.09 18:57
Re: Wechselspiel / ComboBox - CommandButton871Dirk.B25.11.09 21:09
Re: Wechselspiel / ComboBox - CommandButton877ModeratorDieter25.11.09 21:42
Re: Wechselspiel / ComboBox - CommandButton809Dirk.B26.11.09 12:50

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel