Pytanie : Kontrolny Opera Od VBA Makro-

I próbować VBA strona internetowa w Opera wyszukiwarka i wewnątrz dwa fields.
Problem być tam  być żadny Opera.application klasa jak IE (InternetExplorer.Application)
Is tam  jakkolwiek remotly Opera używać VBA?
I wierzyć że I musieć VBA ponieważ ten macro musieć ten Przodować Spreadsheet.

Private Okręt podwodny OpenSite (ByVal UserID Jako Sznurek, ByVal UserPW Jako Sznurek)
On Błąd Życiorys Next

Ćmić ie Jako Object
Ustalony ie = CreateObject ("Opera.application")
ie. Widoczny = True
ie. Żeglować (" https://somewebpage.com/ login.asp " )
Do
Jeżeli ie.readyState = 4 Then
ie. Widoczny = True
Wyjście Do
Else
DoEvents
Końcówka If
Loop

ie.document. Form.UserID.Value = UserID
ie.document. Form.UserPW.Value = UserPW
Ustalony ie = Nothing
End Sub

Odpowiedź : Kontrolny Opera Od VBA Makro-

Tutaj być przykład dlaczego "w górę" WSZYSTKIE 72 TextBoxes the ten sam wydarzenie treser przy run-time więc ty musieć ręcznie 72 różny treser w the JAŹ.

Także także być przykład dlaczego Z Lewej Strony, Dobrze, W górę i na dół guzik:
(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:

Społeczeństwo Klasowy Form1

    Intymny LastTextBox Jako TextBox = Nic

    Intymny Okręt podwodny Form1_Load (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Rękojeść MyBase.Load
        Ciemnawy tb Jako TextBox
        Ciemnawy ctls () Kontrola
        Dla i Jako Integer = (0) 71
            ctls = Me.Controls.Find ("TextBox" & i, Prawdziwy)
            Jeżeli ctls. Długość > (0) AndAlso TypeOf ctls ((0)) Być TextBox Wtedy
                tb = CType (ctls ((0)), TextBox)
                AddHandler tb.GotFocus, AddressOf tb_GotFocus
            Kończyć Jeżeli
        Następnie
    Końcówka Okręt podwodny

    Intymny Okręt podwodny tb_GotFocus (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs)
        Ciemnawy tb Jako TextBox = CType (nadawca, TextBox)
        LastTextBox = tb
    Końcówka Okręt podwodny

    Intymny Okręt podwodny btnRight_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się btnRight.Click
        Jeśli nie IsNothing (LastTextBox) Wtedy
            Ćmić i Jako Integer
            Ćmić strInt Jako Sznurek = LastTextBox.Name.Remove ((0), "TextBox". Długość)
            Jeżeli Integer.TryParse (strInt, i) Wtedy
                Jeżeli ((i + 1) Mod 9) <> (0) Wtedy
                    i = i + (1)
                    Ciemnawy ctls () Jako Kontrola = Me.Controls.Find ("TextBox" & i, Prawdziwy)
                    Jeżeli ctls. Długość > (0) AndAlso TypeOf ctls ((0)) Być TextBox Wtedy
                        Ciemnawy tb Jako TextBox = CType (ctls ((0)), TextBox)
                        tb. Ostrość ()
                    Kończyć Jeżeli
                Inny
                    LastTextBox.Focus ()
                Kończyć Jeżeli
            Kończyć Jeżeli
        Kończyć Jeżeli
    Kończyć Okręt podwodny

    Intymny Okręt podwodny btnLeft_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się btnLeft.Click
        Jeśli nie IsNothing (LastTextBox) Wtedy
            Ćmić i Jako Integer
            Ćmić strInt Jako Sznurek = LastTextBox.Name.Remove ((0), "TextBox". Długość)
            Jeżeli Integer.TryParse (strInt, i) Wtedy
                Jeżeli (i Mod 9) <> (0) Wtedy
                    i = i - (1)
                    Ciemnawy ctls () Jako Kontrola = Me.Controls.Find ("TextBox" & i, Prawdziwy)
                    Jeżeli ctls. Długość > (0) AndAlso TypeOf ctls ((0)) Być TextBox Wtedy
                        Ciemnawy tb Jako TextBox = CType (ctls ((0)), TextBox)
                        tb. Ostrość ()
                    Kończyć Jeżeli
                Inny
                    LastTextBox.Focus ()
                Kończyć Jeżeli
            Kończyć Jeżeli
        Kończyć Jeżeli
    Kończyć Okręt podwodny

    Intymny Okręt podwodny btnUp_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się btnUp.Click
        Jeśli nie IsNothing (LastTextBox) Wtedy
            Ćmić i Jako Integer
            Ćmić strInt Jako Sznurek = LastTextBox.Name.Remove ((0), "TextBox". Długość)
            Jeżeli Integer.TryParse (strInt, i) Wtedy
                Jeżeli i > 8 Wtedy
                    i = i - 9
                    Ciemnawy ctls () Jako Kontrola = Me.Controls.Find ("TextBox" & i, Prawdziwy)
                    Jeżeli ctls. Długość > (0) AndAlso TypeOf ctls ((0)) Być TextBox Wtedy
                        Ciemnawy tb Jako TextBox = CType (ctls ((0)), TextBox)
                        tb. Ostrość ()
                    Kończyć Jeżeli
                Inny
                    LastTextBox.Focus ()
                Kończyć Jeżeli
            Kończyć Jeżeli
        Kończyć Jeżeli
    Kończyć Okręt podwodny

    Intymny Okręt podwodny btnDown_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się btnDown.Click
        Jeśli nie IsNothing (LastTextBox) Wtedy
            Ćmić i Jako Integer
            Ćmić strInt Jako Sznurek = LastTextBox.Name.Remove ((0), "TextBox". Długość)
            Jeżeli Integer.TryParse (strInt, i) Wtedy
                Jeżeli i < 63="" Then="" i="i"> (0) AndAlso TypeOf ctls ((0)) Być TextBox Wtedy
                        Ciemnawy tb Jako TextBox = CType (ctls ((0)), TextBox)
                        tb. Ostrość ()
                    Kończyć Jeżeli
                Inny
                    LastTextBox.Focus ()
                Kończyć Jeżeli
            Kończyć Jeżeli
        Kończyć Jeżeli
    Kończyć Okręt podwodny

Kończyć Klasa
Inne rozwiązania  
 
programming4us programming4us