Znalazłem rozwiązanie, tyle tylko, że jest ono trochę dziwne :|?
' deklarujemy tablice
Dim Zmienna(20) As Control
' przypisujemy obiekty
Set Zmienna(0) = UserForm1.TextBox1
Set Zmienna(1) = UserForm1.ComboBox1
Set Zmienna(2) = UserForm1.ComboBox2
Set Zmienna(3) = UserForm1.ComboBox3
Set Zmienna(4) = UserForm1.CheckBox1
' teraz, aby zmienić Value w TextBox1 mozemy użyć naszej zmiennej
Zmienna(0).Value = "cos tam"
' powyższa linijka będzie miała taki sma efekt jak:
UserForm1.TextBox1.Value = "cos tam"
... no i fajne to działa tyle, że czegoś tu nie kumam :P
Dim Zmienna as ComboBox
Set Zmienna = UserForm1.ComboBox1
To działa znakomicie, wszystko tak ja trzeba !
Natomiast
Dim Zmienna as TextBox
Set Zmienna = UserForm1.TextBox1
...już wywala błąd !?
No i o co tu chodzi ? Czemu to nie działa ? W czym problem ?
Po drugie kiedy deklarujemy zmienna jako Control, to przy odwoływaniu się do tej zmiennej (zmienna.) na rozwijanej liście własności nie ma czegoś takiego jak Value - trzeba ją na siłe wpisać!
Podsumowując, po wielu dniach przeszukiwania netu, prób i błędów mam to, o co mi chodziło :)
Mam nadzieje, że rozwiązania kiedyś komuś się przydadzą. |