Membuat Tray Icon Dengan Foxpro

Assalamualaikum, apa kabar nih? he moga sehat lahir batin yaa, Ok hari ni saya akan membahas cara membuat tray icon, tau kan tray icon?Ya, icon yang muncul di taksbar bawah kiri dekat jam itu he, Naa bagaimana cara menampikan icon disana menggunakan foxpro, di solution sample sudah ada penjelasannya tapi kali ini saya coba dengan cara berbeda yaitu menggunakan Ocx namanya foxtray.ocx, untuk mendapatkannya anda bisa download di sini https://www.mediafire.com/?g29kdgy98leaxmd , ok cara menggunakannya, pertama Registrasi Ocx tersebut dengan cara Regsvr32 “C:\foxtray.ocx” jika sukses, selanjutnya perhatikan langkah langkah berikut

1. Buat Form Baru, kemudian Form Control pilih Active Control dan Drag ke Form kosong, maka akan muncul kotak dialog seperi ini

Untitled

pilih FoxTrayCtl.cFoxTray dan OK

2. Buat Method pada form dengan nama addtrayctrl, selanjutnya isi kodingnya

LOCAL lErr

ON ERROR lErr = .T.
*THIS.AddObject("FoxTray", "TFoxTray")
ON ERROR
IF lErr
= MessageB("ActiveX control belum di register " + Chr(13) +;
"Class: FoxTrayCtl.cFoxTray " + Chr(13) +;
"File: FoxTray.ocx " + Chr(13) +;
"VB support: msvbvm60.dll ", 48, " FoxTray Control")
ENDIF

3. dobel klik pada olecontrol foxtray tadi dan isi kodingnya seperti dibawah ini

BeforePopupActivate


lResult = .T.

Init


#defin ccIcon "image\appico.ico"
WITH THIS
.IconSource = ccIcon
.IconTip = "FoxPro App"
.ShowIcon

* setting popup items, max number = 5
.GetPopupItem(1).Caption = "Exit"
.GetPopupItem(2).Caption = "About"
*!* .GetPopupItem(3).Caption = "-" && separator
*!* .GetPopupItem(4).Caption = "Close form"
*!* .GetPopupItem(5).Caption = "\Exit" && item disabled
ENDWITH

OnPopupItemSeleced

*** ActiveX Control Event ***
LPARAMETERS lnitem, lccaption
DO CASE
CASE lnItem = 2
= MessageB("System Tray Icon and Menu Control ", 64, " About")
CASE lnItem = 4
ThisForm.Release
CASE lnItem = 5
IF MessageB("Exit FoxPro? ", 32+4, " FoxTray Control") = 6
QUIT
ENDIF
OTHER
if MessageB("Anda Yakin Ingin Keluarkan Aplikasi Sms Gateway",36,"Konfirmasi")=6
quit
ENDIF
ENDCASE

4. Pada Form.Init kasih koding seperti ini


#defin ccIcon "image\appico.ico"
THIS.addtrayctrl
WITH ThisForm.olecontrol1
.IconSource = ccIcon
.ShowIcon
ENDWITH

Naa selanjutnya anda bisa run, dan liat hasilnya di tray icon

Untitled

 

Ok Moga sukses aja yaa, oprek aja terus

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: