Fråga : Hur till räddningen VPNNA profilerar för återinkoppling

Konfigurerad avlägsen beställare VPN för hälsningeveryone

I precis som tar fram min fönsterserver 2003 och som är kompetent till reserven och som fungerar på aktier w2k3. , om nu beställarna startar om deras bärbar dator eller inaktiverar VPN-anslutningen anslutningen, de som är van vid, förbinder är nu borta. Om jag omaktiverar den cisco vpnbeställaren mig, måste manuellt att komma in igen IPen address i rekvisitafönstren av Internetet Protocol (TCP/IP). Finns det a långt till räddningen detta, så de måste inte att komma in igen denna information hela tiden?

Other än det nr.problem som tar fram
Thanks för aktier etc.… " klar "

Svar : Hur till räddningen VPNNA profilerar för återinkoppling

Är här ett exempel av hur ”binder upp” ALLA 72 textBoxesna till den samma händelseförlagehanteraren på run-time, så du måste inte manuellt att skapa 72 olika förlagehanterare i IDEN.

Också inklusive är exempel av hur man genomför lämnat, rätten, knäppas upp och ner:
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:
36:
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:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:

Allmänhet klassificerar Form1

    Privata LastTextBox som TextBox = ingenting

    Den privata suben Form1_Load (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar MyBase.Load
        Dunkel tb som TextBox
        Dunkla ctls () som kontrollerar
        För I som heltal = 0 till 71
            ctls = Me.Controls.Find (”TextBox” & I som är riktigt)
            Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                tb = CType (ctls (0), textBoxen)
                AddHandler tb.GotFocus, AddressOf tb_GotFocus
            Avsluta om
        Därefter
    Avsluta suben

    Privat undertb_GotFocus (den ByVal avsändaren som anmärker, ByVal e som System.EventArgs)
        Dunkel tb som textBoxen = cTypen (avsändare, TextBox)
        LastTextBox = tb
    Avsluta suben

    Privat underbtnRight_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnRight.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om ((I + 1) ändring 9) <> 0 därefter
                    i = I + 1
                    Dunkla ctls () som kontrollerar = Me.Controls.Find (”TextBox” & I som är riktigt)
                    Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

    Privat underbtnLeft_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnLeft.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om (I-ändring 9) <> 0 därefter
                    i = I - 1
                    Dunkla ctls () som kontrollerar = Me.Controls.Find (”TextBox” & I som är riktigt)
                    Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

    Privat underbtnUp_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnUp.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om I > 8 därefter
                    i = I - 9
                    Dunkla ctls () som kontrollerar = Me.Controls.Find (”TextBox” & I som är riktigt)
                    Om ctls. Längden > 0 AndAlso TypeOf ctls (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

    Privat underbtnDown_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar btnDown.Click
        Om inte IsNothing (LastTextBox) därefter
            Dunkelt I som heltal
            Dunkel strInt som stränger = LastTextBox.Name.Remove (0, ”textBoxen”. Längd)
            Om Integer.TryParse (strInt, I) därefter
                Om ctls < 63="" Then="" i="i"> för I 0 AndAlso TypeOf (0) är textBoxen därefter
                        Dunkel tb som textBoxen = cTypen (ctls (0), textBoxen)
                        tb. Fokusera ()
                    Avsluta om
                Annars
                    LastTextBox.Focus ()
                Avsluta om
            Avsluta om
        Avsluta om
    Avsluta suben

Avsluta klassificerar
Andra lösningar  
 
programming4us programming4us