Frage : using den Knopf, zum der area per informazioni zu steuern

vb.net 2008

What, das ich habe:
I haben 72 area per informazioni auf einem form.
textbox0 textbox71

9 across
8 zum down


For, jetzt, das ich einen Knopf benötige, rechts „“ zu gehen  --->


Problem:
This arbeitet, bis ich an das „texbox2“ dann stops



In das Gotfocus Ereignis jeder area per informazioni gelange, die ich habe:
Private behandelt VorTextBox0_GotFocus (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) Handgriffe TextBox0.GotFocus
MyName ()
Ende Sub
privates Handgriffe TextBox1.GotFocus
MyName ()
Ende Sub

des Unterseeboot-TextBox1_GotFocus (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) privates Handgriffe TextBox2.GotFocus
MyName ()
Ende Sub

des Unterseeboot-TextBox2_GotFocus (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) privates Unterseeboot TextBox3_GotFocus (ByVal Absender als Gegenstand, ByVal e als System.EventArgs) TextBox3.GotFocus
MyName ()
Ende Sub


Public currentLocation während Integer

Public Funktion MyName ()
auf Störungs-Zusammenfassung Next
verdunkeln myPointer als Integer
schwaches ctlCurrentControl als TextBox
ctlCurrentControl = ActiveControl
myPointer = mittler (ctlCurrentControl.Name, 8)

End Function

Any Vorschläge?
Thanks
fordraiders

Antwort : using den Knopf, zum der area per informazioni zu steuern

Ist hier ein Beispiel von, wie man „herauf“ ALLE 72 area per informazioni zur gleichen Ereigniszufuhr an Laufzeit verdrahtet, also müssen Sie manuell 72 verschiedene Zufuhren nicht im IDE herstellen.

Auch eingeschlossen Beispiele von, wie man nach links nach rechts auf und ab Knöpfe einführt:
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:
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:

Allgemeine Kategorie Form1

    Privates LastTextBox als area per informazioni = nichts

    Private Handgriffe MyBase.Load des Unterseeboot-Form1_Load (ByVal Absender als System.Object, ByVal e als System.EventArgs)
        Schwache TB als area per informazioni
        Schwache ctls () als Steuerung
        Für i als ganze Zahl = 0 bis 71
            ctls = Me.Controls.Find („area per informazioni“ u. i, zutreffend)
            Wenn ctls. Länge > 0 AndAlso TypeOf ctls (0) ist area per informazioni dann
                TB = C (ctls (0), area per informazioni)
                AddHandler tb.GotFocus, AddressOf tb_GotFocus
            Beenden wenn
        Zunächst
    Enden-Unterseeboot

    Privates Vortb_GotFocus (ByVal Absender als Gegenstand, ByVal e als System.EventArgs)
        Schwache TB als area per informazioni = C (Absender, area per informazioni)
        LastTextBox = TB
    Enden-Unterseeboot

    Privates VorbtnRight_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnRight.Click
        Wenn nicht IsNothing (LastTextBox) dann
            I als ganze Zahl verdunkeln
            strInt als Schnur = LastTextBox.Name.Remove verdunkeln (0, „area per informazioni“. Länge)
            Wenn Integer.TryParse (strInt, i) dann
                Wenn ((i + 1) Umb. 9) <> 0 dann
                    I = i + 1
                    Schwache ctls () als Steuerung = Me.Controls.Find („area per informazioni“ u. i, zutreffend)
                    Wenn ctls. Länge > 0 AndAlso TypeOf ctls (0) ist area per informazioni dann
                        Schwache TB als area per informazioni = C (ctls (0), area per informazioni)
                        TB. Fokus ()
                    Beenden wenn
                Sonst
                    LastTextBox.Focus ()
                Beenden wenn
            Beenden wenn
        Beenden wenn
    Unterseeboot beenden

    Privates VorbtnLeft_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnLeft.Click
        Wenn nicht IsNothing (LastTextBox) dann
            I als ganze Zahl verdunkeln
            strInt als Schnur = LastTextBox.Name.Remove verdunkeln (0, „area per informazioni“. Länge)
            Wenn Integer.TryParse (strInt, i) dann
                Wenn (i Umb. 9) <> 0 dann
                    I = i - 1
                    Schwache ctls () als Steuerung = Me.Controls.Find („area per informazioni“ u. i, zutreffend)
                    Wenn ctls. Länge > 0 AndAlso TypeOf ctls (0) ist area per informazioni dann
                        Schwache TB als area per informazioni = C (ctls (0), area per informazioni)
                        TB. Fokus ()
                    Beenden wenn
                Sonst
                    LastTextBox.Focus ()
                Beenden wenn
            Beenden wenn
        Beenden wenn
    Unterseeboot beenden

    Privates VorbtnUp_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnUp.Click
        Wenn nicht IsNothing (LastTextBox) dann
            I als ganze Zahl verdunkeln
            strInt als Schnur = LastTextBox.Name.Remove verdunkeln (0, „area per informazioni“. Länge)
            Wenn Integer.TryParse (strInt, i) dann
                Wenn i > 8 dann
                    I = i - 9
                    Schwache ctls () als Steuerung = Me.Controls.Find („area per informazioni“ u. i, zutreffend)
                    Wenn ctls. Länge > 0 AndAlso TypeOf ctls (0) ist area per informazioni dann
                        Schwache TB als area per informazioni = C (ctls (0), area per informazioni)
                        TB. Fokus ()
                    Beenden wenn
                Sonst
                    LastTextBox.Focus ()
                Beenden wenn
            Beenden wenn
        Beenden wenn
    Unterseeboot beenden

    Privates VorbtnDown_Click (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt btnDown.Click
        Wenn nicht IsNothing (LastTextBox) dann
            I als ganze Zahl verdunkeln
            strInt als Schnur = LastTextBox.Name.Remove verdunkeln (0, „area per informazioni“. Länge)
            Wenn Integer.TryParse (strInt, i) dann
                Wenn i < 63="" Then="" i="i"> 0 AndAlso TypeOf ctls (0) area per informazioni dann ist
                        Schwache TB als area per informazioni = C (ctls (0), area per informazioni)
                        TB. Fokus ()
                    Beenden wenn
                Sonst
                    LastTextBox.Focus ()
                Beenden wenn
            Beenden wenn
        Beenden wenn
    Unterseeboot beenden

Kategorie beenden
Weitere Lösungen  
 
programming4us programming4us