Button blinken lassen (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Autor	Thema: Button blinken lassen (2196 mal gelesen)
Dennis030186 Mitglied Design Engineer Beiträge: 121 Registriert: 19.01.2007 NX 5,6,7 ; CATIA V5 R-21	erstellt am: 01. Jun. 2011 11:46 <-- editieren / zitieren --> Unities abgeben: Hallo liebe CADler, wie kann ich am einfachsten einen Button blinken lassen, bis dieser angeklickt wird. Ich finde nirgends ein passendes Beispiel. Danke für eure Hilfe. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
bgrittmann Moderator Konstrukteur Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19	erstellt am: 01. Jun. 2011 12:36 <-- editieren / zitieren --> Unities abgeben: Nur für Dennis030186 Servus Ich nehme an du meinst einen Button in einem VBA-Form. Schau mal hier. Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Kne Mitglied System-Ingenieur Beiträge: 88 Registriert: 16.11.2007 Intel Xenon 2 x 2,53Mhz 12 GB Ram NVIDIA Quadro Fx 1800 Vista 64bit CATIA v5R18 + v5R19	erstellt am: 01. Jun. 2011 12:38 <-- editieren / zitieren --> Unities abgeben: Nur für Dennis030186 Hi Dennis, dazu fallen mir spontan zwei Möglichkeiten ein. Nr. 1: Den Button verschwinden und wieder auftauchen lassen. Sollte irgendwie so gehen: commandbutton1.visible = false dann eine sleepfunktion (Pause): Sleep 200 und dann da ganze noch ausführen lassen DoEvents und dann den button wieder anzeigen lassen: commandbutton1.visible = true Sleep 200 DoEvents ... Nr.2 Farbe des Buttons wechseln (wird wohl sinnoller sein): Commandbutton1.Backcolor = RGB (0 , 255, 255) <- Farbcode beliebig ähnerbar Sleep 200 Doevents ... Die Declaration der Sleepfunktion packst du am beste in ein Modul: Declare Sub Sleep Lib "kernel32" (byval dwmilliseconds as long) Die Zahl nach Sleep gibt dann die Pausenzeit in Millisekunden an. ------------------ Grüße aus Köln Stefan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Dennis030186 Mitglied Design Engineer Beiträge: 121 Registriert: 19.01.2007 NX 5,6,7 ; CATIA V5 R-21	erstellt am: 03. Jun. 2011 07:36 <-- editieren / zitieren --> Unities abgeben: Hallo, danke erstmal. Den ersten Link kannte ich schon. Das hat mir aber nicht sonderlich weitergeholfen, da im Microsoft Visual Basic Editor die Funktion Style bei grafik überhaupt nicht existiert...?! Ich bin noch nicht allzu bewandert, könntest Du den Quelltext posten wie er richtig lauten muss Für den Command Button, so dass ich Ihn einfügen kann, ich weiß nicht wie ich es machen soll... :-( Edit: Habe es jetzt folgendermaßen, nur als Test: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub CommandButton1_Click() CommandButton1.Visible = False DoEvents Sleep 2000 CommandButton1.Visible = True DoEvents Sleep 2000 CommandButton1.Visible = False DoEvents Sleep 2000 Wie kriege ich das Ganaze jetzt so ans laufen, dass er aufhört zu blinken, wenn man den Button klickt? [Diese Nachricht wurde von Dennis030186 am 03. Jun. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)