Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: kontrolka w run-time na kontrolce w run-time ??
kenazam




Typ: neutral
Postów: 19
Zarejestrowany: Mar 2005
kontrolka w run-time na kontrolce w run-time ??

Do tej pory "bawiłem" się VBA i teraz próbuję to wszystko przenieść do VB.
Utkwiłem na takim oto problemie:

'mam formę Form1
'i odpowiednio w klasach:
Class1
Public Withevents fme As VB.Frame
Class2
Public Withevents lbl As VB.Label

'i odpowiednio w module:
Public fme1 As New Class1
Public lbl1 As New Class2

Public Sub buduj()
Set fme1.fme = Form1.Controls.Add _("VB.Frame", "fme11"
With fme1.fme
  'tu odpowiednie właścowości
End With
Set lbl1.lbl = " ?????????????" _("VB.Label", "lbl11"
With fme1.fme
  'tu odpowiednie właścowości
End With
End Sub

... i tak bez bicia nie wiem co wstawić w miejsce znaków zapytania,
aby Label był utworzony na utworzonym chwilę wcześniej Frame ???

W VBA stosowałem:
Set lbl1.lbl = Form1!fme11.Controls.Add("MSForms.Label.1", "lbl11"
ale w VB "Form1!fme11" nie działa ...

Przeglądałem forum ale jakoś nie trafiłem na dodawanie kontrolki na kontrolkce w run-time..
..no może źle patrzyłem

30-03-2005 11:44
Pokaż profil kenazam  Wyślij email do kenazam        723065
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Najpierw dodaj na formie, potem przez lbl.lbl1.container = fme11 osadzisz go na kontrolce.

Możliwe że form1.fme11 zadziała.


_____________________________________________
www.mob.abc.pl - moja strona o VB

30-03-2005 17:27
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
kenazam




Typ: neutral
Postów: 19
Zarejestrowany: Mar 2005

dzięki bisiek ......... ale

już próbowałem w ten sposób:
Set lbl1.lbl = Form1.Controls.Add("VB.Label", "lbl11"
'i odpowiednio dalej
With lbl1.lbl
.Container = fme11 'program zatrzymuje się w tym miejscu
'a także:
.Container = fme1.fme 'program zatrzymuje się w tym miejscu
End With

w efekcie run-time error '438' obiekt nie obsługuje... bla bla
... no i tkwię w tym miejsc bo dalej pomysłu brak

30-03-2005 19:45
Pokaż profil kenazam  Wyślij email do kenazam        723065
HejHo




Typ: neutral
Postów: 66
Zarejestrowany: Apr 2003

sprobuj uzyć Set .Container = fme11.fme

30-03-2005 20:11
Pokaż profil HejHo  Wyślij email do HejHo        6384729
kenazam




Typ: neutral
Postów: 19
Zarejestrowany: Mar 2005

... dzięki HejHo

... poszło jak po maśle

30-03-2005 20:41
Pokaż profil kenazam  Wyślij email do kenazam        723065
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1