Re: [indopb] Gmn Add ActiveSkin dg Script?

[Hermawan Dephe]

Caranya ditempelin dulu OLE nya mas ke window Insert OLE - Insert Control - lalu pilih activeskin nya trus tinggal copas ini script di event ole constructornya, mo taro di window open jg bisa tinggal ilangin "parent." nya string gs_path gs_path = getcurrentdirectory() parent.ole_1.object.LoadSkin(gs_path + "\style\IcqPro.skn") parent.ole_1.object.ApplySkin (Handle(parent)) dwivindy wrote:   para master2nya PB, saya coba membuat suatu aplikasi yg saya tambahkan active skin. gmn caranya menambahkan active skin menggunakan script. saya coba scrip spt di bawah ini : Long hWnd hWnd=Handle(This) OLEObject SkinOb SkinOb = CREATE OLEObject SkinOb.ConnectToNewObject('D:\Install BPR\BPR\Res\actskin4.ocx') SkinOb.Object.LoadSkin('D:\Install BPR\BPR\Res\Web.skn') SkinOb.Object.ApplySkin(hWnd) tp g bisa saat loadskin, ada yg bisa bantu g ya? thanks b4 __._,_.___ ----------------------------------------------- IndoPB - Indonesia PB User Group http://groups.yahoo.com/group/indopb Your email settings: Individual Email|Traditional Change settings via the Web (Yahoo! ID required) Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe __,_._,___