Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: A czy wy wiecie ?
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002
A czy wy wiecie ?

... że można tworzyć kontrolki podczas run-time i na dodatek nie trzeba ich zaznaczać w Componentsach. Prosty przykład:

Private Sub Form_Load()
Set Media = Controls.Add("MediaPlayer.MediaPlayer", "Media", Me)
Media.Visible = True
End Sub


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

29-04-2003 11:45
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

na tej samej zasadzie odbywa sie tworzenie obiektow AX w VBS i ASP

Dim AX
Set AX = CreateObject("MediaPlayer.MediaPlayer"

;]


_____________________________________________
www.KURDE.pl

29-04-2003 23:13
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

o a czy ty wiesz ze mozna zrobic takie cos:

Option Explicit
Private WithEvents cmdTest As CommandButton

Private Sub Form_Load()
Set cmdTest = Controls.Add("VB.CommandButton", "cmdTest", Me)

With Me!cmdTest
    .Visible = True
    .Move ScaleWidth / 2 - .Width / 2, ScaleHeight / 2 - .Height / 2
    .Caption = "Kliknij mnie "
End With
End Sub

Sub cmdTest_Click()
    MsgBox "Obsluga zdarzenia OnClick w utworzonym dynamicznie przycisku!"
End Sub

Tak w lasnie odbywa sie to w VB.Net... tyle ze kod generuje sie podczas rysowania kontrolek na formularzu ... ciekawe


_____________________________________________
www.KURDE.pl

30-04-2003 11:46
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Chudy
[TLHW]Wiktor



Typ: moderator
Postów: 574
Zarejestrowany: Aug 2002

No cóż nie widziałem jeszcze VB.Neta


_____________________________________________
Projekt "Thunder Cannons" nadchodzi...

30-04-2003 15:20
Pokaż profil Chudy  Wyślij email do Chudy   Odwiedź stronę Chudy       1220895
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002


na tej samej zasadzie odbywa sie tworzenie obiektow AX w VBS i ASP

Dim AX
Set AX = CreateObject("MediaPlayer.MediaPlayer"

;]



Ten kawałek kodu nie chodzi mi ani w VBScipt (w pliku HTML) ani w VB. Moze ktoś się tym pobawić ?? Bo był by to fajny sampel nadający się do wrzucenia na VB4all, zagadnienie to jest bardzo ciekawe i powinno być kilka sampli z tego zagadnienia na VB4all :-)


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

01-05-2003 10:55
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

hm.. w VBS (jak i asp) mozna ta technika tworzyc kazde komponenty activex (czy tam COM i COM+) na dwa sposoby.. .albo za pomoca wlasnie skryptu:

Dim Obj
Set Obj = CreateObject("Forms.CommandButton.1" (np )

tutaj uzywa sie ProgID.... mozna tez za pomoca takich tagow (tu trzeba CLSID)

<object classid="clsid7053240-CE69-11CD-A777-00DD01143C57" id="CommandButton1" runat=server (lub client)></object>

ta technologia jest bardzo 'niebezpieczna'... latwo wyobrazic sobie ze mozna poszukac takiego komponentu (CLSID wystarczy znalezc) ktory omija zabezpieczenia Internet Explorera... byl gdzies sampel ktory odwolywal sie do tzw 'pustej' klasy.. i w ten sposob zawieszal ie... oto jak latwo jest zabawic sie komponentem ActiveX w VBScripcie pokazuje ten sampel:

<SCRIPT language=VBScript>
<!--
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
        For i = 0 to colCDROMs.Count - 1
                colCDROMs.Item(i).Eject
        Next ' cdrom
End If
-->
</SCRIPT>

ie 'broni sie' przed niektorymi komponentami wyswietlajac powiadomienie (np przy tworzeniu Scripting Runtime ostrzega przed niebezpiecznymi komponentami - tylko po stornie klienta na szczescie) ale jak wiadomo.... Microsoft zostawia mase dziur


_____________________________________________
www.KURDE.pl

01-05-2003 12:10
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Jelcyn
Admin forum




Typ: admin
Postów: 895
Zarejestrowany: Apr 2002

ten drugi listing jest całkiem spoko :-)


_____________________________________________
Jelcyn
vb4all(małpka)canpol.pl
http://www.coderscity.pl/no-vb4all * http://www.jelcyn.com

01-05-2003 12:18
Pokaż profil Jelcyn  Wyślij email do Jelcyn   Odwiedź stronę Jelcyn       270849979    6237704
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

sampel gotowy... komu poslac?


_____________________________________________
www.KURDE.pl

01-05-2003 18:01
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Wszystkich odpowiedzi: 7 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1