New Software
Medical Dictionary Lihat Detail





Active@ Boot Disk
Lihat Detail













New Software

Pengikut

facebook

menu utama cantik

Membuat menu utama keren……………
Maaf yach kalo aku ga tau menjelaskan coz aku ga tau harus mulai dari mana,
sebenarnya aku juga malu memposting tutor ini, mungkin ini terlalu simple dan
sederhana. Kita langsung aja yach Buatlah sebuah form dengan nama frmutama,
seperti gambar yang ada di bawah…
Komponen-komponen yang digunakan sebagai berikut :
6 buah container
11 buah label
3 buah image……………………

untitled9

Object : Frmutama Procedur : Tampil
LOCAL _selec
_selec=0
DEFINE POPUP menúcontex SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 2 OF menúcontex PROMPT ".::. Cari Istilah Biologi"
DEFINE BAR 5 OF menúcontex PROMPT ".::. Cari Nama Ilmiah"
DEFINE BAR 7 OF menúcontex PROMPT ".::. Input Data"
ON SELECTION BAR 2 OF menúcontex _selec=2
ON SELECTION BAR 5 OF menúcontex _selec=5
ON SELECTION BAR 7 OF menúcontex _selec=7
ACTIVATE POPUP menúcontex
DO case
CASE _selec=2
CASE _selec=5
CASE _selec=7
ENDCASE

Object : Frmutama Procedur : Lihat
LOCAL _selec
_selec=0
DEFINE POPUP menúcontex SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 2 OF menúcontex PROMPT ".::. Programmer"
DEFINE BAR 5 OF menúcontex PROMPT ".::. Browser KwK Initial"
DEFINE BAR 7 OF menúcontex PROMPT ".::. Readme"
ON SELECTION BAR 2 OF menúcontex _selec=2
ON SELECTION BAR 5 OF menúcontex _selec=5
ON SELECTION BAR 7 OF menúcontex _selec=7
ACTIVATE POPUP menúcontex
DO case
CASE _selec=2
CASE _selec=5
CASE _selec=7
ENDCASE

Object : Frmutama Procedur : klik
LOCAL _selec
_selec=0
DEFINE POPUP menúcontex SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 2 OF menúcontex PROMPT ".::. Change Background application"
DEFINE BAR 5 OF menúcontex PROMPT ".::. Change Background Time"
DEFINE BAR 6 OF menúcontex PROMPT ".::. Change Background Date"
DEFINE BAR 7 OF menúcontex PROMPT ".::. Refresh"
DEFINE BAR 9 OF menúcontex PROMPT ".::. Date"
DEFINE BAR 12 OF menúcontex PROMPT ".::. Time"
DEFINE BAR 14 OF menúcontex PROMPT ".::. Exit Application"
ON SELECTION BAR 2 OF menúcontex _selec=2
ON SELECTION BAR 5 OF menúcontex _selec=5
ON SELECTION BAR 6 OF menúcontex _selec=6
ON SELECTION BAR 7 OF menúcontex _selec=7
ON SELECTION BAR 9 OF menúcontex _selec=9
ON SELECTION BAR 12 OF menúcontex _selec=12
ON SELECTION BAR 14 OF menúcontex _selec=14
ACTIVATE POPUP menúcontex
DO case
CASE _selec=2
LOCAL iFoto
ifoto=Getfile("jpg|bmp|gif|png")
if!empty(iFoto)
thisform.image2.picture=iFoto
ENDIF
CASE _selec=5
CASE _selec=6
CASE _selec=7
CASE _selec=12
CASE _selec=14
Endcase

Object : Frmutama Procedur : Init
DECLARE INTEGER InvalidateRect IN user32;
INTEGER hwnd, INTEGER lpRect,;
INTEGER bErase
_screen.Visible= .F.
lcLastSetPath = SET('PATH')
lcLastSetDir = SET('DIRECTORY')
lcLastSetTalk = SET('TALK')
SET TALK OFF
lcSys16 = SYS(16)
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
CD LEFT(lcProgram, RAT("\", lcProgram))
CD LEFT(lcProgram, RAT("\", lcProgram))
PUBLIC _up, _down

Object : Frmutama Procedur : Activate
thisform.calender1.Height=163

Object : site_link Procedur : Click
thisform.Activate
LOCAL lcFileName,lcWorkDir,lcOperation
tcFileName="http://www.kwkinitial.wordpress.com"
IF EMPTY(tcFileName)
RETURN -1
ENDIF
lcFileName=ALLTRIM(tcFileName)
lcWorkDir=IIF(TYPE("tcWorkDir")="C",ALLTRIM(tcWorkDir),"")
lcOperation=IIF(TYPE("tcOperation")="C" AND NOT
EMPTY(tcOperation),ALLTRIM(tcOperation),"Open")
DECLARE INTEGER ShellExecute ;
IN SHELL32.DLL ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
RETURN ShellExecute(0,lcOperation,lcFilename,"",lcWorkDir,1)

download selengkapnya

menu utama cantikSocialTwist Tell-a-Friend

0 komentar:

Computers Web Directory
Blog Directory Dr.5z5 Open Feed Directory Computers (Linux) - TOP.ORG blog search directory Blog Search: The Source for Blogs free web site traffic and promotion
MyFreeCopyright.com Registered & Protectedintellectual property