Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  SolidWorks
  VBA Click Event Zusammenfassen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS
  
PLM TechnologieForum Bamberg
Autor Thema:  VBA Click Event Zusammenfassen (830 mal gelesen)
fabian1243
Mitglied
Maschinen-Konstrukteur


Sehen Sie sich das Profil von fabian1243 an!   Senden Sie eine Private Message an fabian1243  Schreiben Sie einen Gästebucheintrag für fabian1243

Beiträge: 44
Registriert: 28.06.2018

SW 2021
Win 10 Pro v1909

erstellt am: 13. Jul. 2018 12:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,
ich habe mehrere Checkboxen, hier habe ich 2 sorten mit je 9 Stück. Wie könnte ich den Code verkürzen damit ich nicht für jede Checkbox den code erstellen muss.
zb sowas:

Private Sub BoxMerkeni_Click()
    Checkboxswitch "Merken", i
End Sub

Private Sub BoxVorschlagi_Click()
    Checkboxswitch "Vorschlag", i
End Sub

Hier der Code aktuell:

Private Sub BoxMerken1_Click()
    Checkboxswitch "Merken", 1
End Sub

Private Sub BoxMerken2_Click()
    Checkboxswitch "Merken", 2
End Sub

Private Sub BoxMerken3_Click()
    Checkboxswitch "Merken", 3
End Sub

Private Sub BoxMerken4_Click()
    Checkboxswitch "Merken", 4
End Sub

Private Sub BoxMerken5_Click()
    Checkboxswitch "Merken", 5
End Sub

Private Sub BoxMerken6_Click()
    Checkboxswitch "Merken", 6
End Sub

Private Sub BoxMerken7_Click()
    Checkboxswitch "Merken", 7
End Sub

Private Sub BoxMerken8_Click()
    Checkboxswitch "Merken", 8
End Sub

Private Sub BoxMerken9_Click()
    Checkboxswitch "Merken", 9
End Sub

Private Sub BoxVorschlag1_Click()
    Checkboxswitch "Vorschlag", 1
End Sub

Private Sub BoxVorschlag2_Click()
    Checkboxswitch "Vorschlag", 2
End Sub

Private Sub BoxVorschlag3_Click()
    Checkboxswitch "Vorschlag", 3
End Sub

Private Sub BoxVorschlag4_Click()
    Checkboxswitch "Vorschlag", 4
End Sub

Private Sub BoxVorschlag5_Click()
    Checkboxswitch "Vorschlag", 5
End Sub

Private Sub BoxVorschlag6_Click()
    Checkboxswitch "Vorschlag", 6
End Sub

Private Sub BoxVorschlag7_Click()
    Checkboxswitch "Vorschlag", 7
End Sub

Private Sub BoxVorschlag8_Click()
    Checkboxswitch "Vorschlag", 8
End Sub

Private Sub BoxVorschlag9_Click()
    Checkboxswitch "Vorschlag", 9
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Baumjäger
Mitglied
CAD/PDM Administrator


Sehen Sie sich das Profil von Baumjäger an!   Senden Sie eine Private Message an Baumjäger  Schreiben Sie einen Gästebucheintrag für Baumjäger

Beiträge: 339
Registriert: 21.06.2006

SW2017 - S5.0
AutoCAD Mechanical 2018
Win10
Intel Xeon E3-1240 V2 3,4GHz
16GB RAM
NVIDIA Quadro 4000

erstellt am: 13. Jul. 2018 15:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für fabian1243 10 Unities + Antwort hilfreich

StefanBerlitz
Guter-Geist-Moderator
IT Admin (CAx)



Sehen Sie sich das Profil von StefanBerlitz an!   Senden Sie eine Private Message an StefanBerlitz  Schreiben Sie einen Gästebucheintrag für StefanBerlitz

Beiträge: 8756
Registriert: 02.03.2000

SunZu sagt:
Analysiere die Vorteile, die
du aus meinem Ratschlag ziehst.
Dann gliedere deine Kräfte
entsprechend und mache dir
außergewöhnliche Taktiken zunutze.

erstellt am: 17. Jul. 2018 08:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für fabian1243 10 Unities + Antwort hilfreich


31526_listbox-statt-checkboxen.png


31526_listbox-code.png


31526_chkbox-vs-listbox.zip

 
Hallo Fabian,

du kannst das auch z.B. durch eine Listbox machen, die du in den Eigenschaften umstellst auf multiselektierbare Optionen, die sehen dann aus wie Checkboxen. Dann die Hintergrundfarbe anpassen, den Rand wegnehmen, dann sehen die auch ungefähr so aus. Der Code kannst du dann ins Click-Event machen.

Du tauscht eigentlich dabei die Schreibarbeit gegen Komplexität und eingeschränkte Eigenschaften, so kannst du so z.B. den vertikalen Abstand nicht variieren - und vielleicht wirst du dich in 2 Jahren fragen, was um alles in der Welt du mit der Listbox machst ...   

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz