Re: [indopb] Gmn Add ActiveSkin dg Script?

Tue, 21 Jun 2011 23:45:06 -0700



pake regsvr32 mas
saat bikin instalasi (misal pake setupbuilder) kan biasanya ada option register component, tinggal centang aja

ato bisa bikin batchfile (file text dengan extensi .bat)
yg isinya regsvr32 "lokasi\actskin4.ocx" /s  --> silent (optional)



[email protected] wrote:
 

Thanks mas Hermawan,gmn caranya agar tanpa instal Active Skin (copy activeskin.OCX) kompi yg kita tempelin hasil deploynya bisa jalan?

Powered by Telkomsel BlackBerry®

From: Hermawan Dephe <[email protected]>
Date: Wed, 22 Jun 2011 13:16:49 +0700
Subject: Re: [indopb] Gmn Add ActiveSkin dg Script?

 

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

__,_._,___

Kirim email ke