Frage : FOKUS-UND ÄNDERUNGS-FARBE EINSTELLEN

Was ich möchte, dass in der Lage ist zu tun, ist, wenn einem WAHL-KNOPF die Farbenänderungen vorgewählt, damit er zeigt, dass er der ist, der verwendet. Das Problem mit diesem ist, dass es nicht wenn erkennt. Name wie „opt_*“ dann 'ist es ein commandbutton

Also, wie ich es, damit ich den gleichen Wahlknopf neu wählen kann, um ihn wieder wieder laufen zu lassen falls erforderlich, zurzeit ich muss eine andere Wahl vorwählen das auserwählte das erforderliche again.

Private Voropt_FA_DEPOT_Click erhalte, das ich in der Lage sein möchte diese, Wahl wieder laufen zu lassen zu halten 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

Private Voropt_FA_Created_Click ()
'Anruf ChangeBtnColor
    FA_Created = InputBox („ein Y eintragen, damit verursacht vorbei suchen? “, „Filter vorbei hergestellt in SAPIENS“)
    Wenn FA_Created = "" dann
            Unterseeboot herausnehmen
        Sonst
                Selection.AutoFilter Feld: =17, Criteria1: =FA_Created
                Strecke („A4“). Auserwählt
    Beenden wenn
Unterseeboot beenden

Privates Voropt_FA_Crew_Click ()
'Anruf ChangeBtnColor
    FA_Crew = InputBox („einen Familiennameen eintragen, um vorbei zu suchen? “, „namentlich filtern“)
    Wenn FA_Crew = "" dann
            Unterseeboot herausnehmen
        Sonst
                Selection.AutoFilter Feld: =3, Criteria1: =FA_Crew
                Strecke („A4“). Auserwählt
    Beenden wenn
Unterseeboot beenden

Privates Voropt_FA_Depot_Click ()
'Anruf ChangeBtnColor
    FA_Depot = InputBox („ein Depot betreten, um vorbei zu suchen? “, „Filter durch DEPOT“)
    Wenn FA_Depot = "" dann
            Unterseeboot herausnehmen
        Sonst
                Selection.AutoFilter Feld: =1, Criteria1: =FA_Depot
                Strecke („A4“). Auserwählt
    Beenden wenn
Unterseeboot beenden

Privates Voropt_FA_Desig_Click ()
'Anruf ChangeBtnColor
    FA_Desig = InputBox („eine Kennzeichnung eintragen, um vorbei zu suchen? “, „Filter durch Designation“)
    Wenn FA_Desig = "" dann
            Unterseeboot herausnehmen
        Sonst
                Selection.AutoFilter Feld: =3, Criteria1: =FA_Desig
                Strecke („A4“). Auserwählt
    Beenden wenn
Unterseeboot beenden

Privates Voropt_FA_SN_Click ()
'Anruf ChangeBtnColor
    FA_SN = InputBox („eine Service-Zahl eingeben, um vorbei zu suchen? “, „Filter durch Service Number“)
    Wenn FA_SN = "" dann
            Unterseeboot herausnehmen
        Sonst
                Selection.AutoFilter Feld: =2, Criteria1: =FA_SN
                Strecke („A4“). Auserwählt
    Beenden wenn
Unterseeboot beenden
Privates VorChangeBtnColor ()
'Unterseeboot herausnehmen

 Mit frm_F_Absence.ActiveControl
 
Wenn. Name wie „opt_*“ dann 'ist es ein commandbutton
Wenn .BackColor = &H80000003 dann 'es hellblau ist
.BackColor = &H8000000D 'Änderung an der Rückstellungsfarbe
Sonst
'Änderung .BackColor = &H80000003 an hellblauem
Beenden wenn
Beenden wenn
 Mit beenden

Unterseeboot beenden

Antwort : FOKUS-UND ÄNDERUNGS-FARBE EINSTELLEN

    Haben Sie bereits das UCL und das CUWL?   7.1.5 und oben für das neue Genehmigen.  I belive, nachdem Sie verbessern, addieren Sie gerade die neue Lizenzakte und sie umwandelt der dlus in das neue System so e, wenn Sie 500 IP-Telefone haben und ich der dlus 3000 glauben, dass es gerade zurück zu 500 UCL/CUWL schalten, oder wie jede viele Sie kauften.  
     Wenn Sie smartnet haben, abrufen ich sie und sure zu bitten, 100% seit seinem neuen und nicht einer realen Anforderung bis 9.0 zu sein weiß ich nicht, wenn viele sie tun. Obwohl sie sehr viel auf der Umwandlung haben, von DLU, zum der Leute zu veranlassen, vorbei zu schalten.
Weitere Lösungen  
 
programming4us programming4us