ini contoh paling simple (dpt dr web nya jg :D )
Private Sub Form_Load()
With SmartMenuXP1.MenuItems
.Add 0, "keyFile", , "&File"
.Add "keyFile", "keyOpen", , "&Open...", Picture1.Picture, vbCtrlMask,
vbKeyO
.Add "keyFile", "keySave", , "&Save...", , vbCtrlMask, vbKeyS
.Add "keyFile", , smiSeparator
.Add "keyFile", "keyExit", , "E&xit", , vbAltMask, vbKeyQ
End With
End Sub
Private Sub SmartMenuXP1_Click(ByVal ID As Long)
With SmartMenuXP1.MenuItems
Select Case .Key(ID)
Case "keyOpen"
' - Open a file...
MsgBox "Open "
Case "keySave"
' - Save a file...
MsgBox "Save"
Case "keyExit"
' - Exit the application...
MsgBox "Exit"
End Select
End With
End Sub
BR
eriek
----- Original Message -----
From: "Shopian Iskandar" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, April 26, 2006 5:58 PM
Subject: RE: [indoprog-vb] Menu VB yg menarik
> Untuk yang satu ini saya ada filenya, cuma bingung bagaimana cara pakenya
> padahal saya udah utak-atik itu control? mungkin anda bisa memberikan saya
> contoh :)
>
> Trims
> [zZzz]
>
> -----Original Message-----
> From: [email protected] [mailto:[EMAIL PROTECTED]
> Behalf Of aries
> Sent: Wednesday, April 26, 2006 5:45 PM
> To: [email protected]
> Subject: Re: [indoprog-vb] Menu VB yg menarik
>
>
> Pake komponen Smart Menu XP aja gratis lagi, bisa di download di
> http://www.mvps.org/the_nerd/VBSmartMirror/library/smartmenuxp/smartmenuxp.h
> tm
>
> Shopian Iskandar <[EMAIL PROTECTED]> wrote: Adakah diantara
> rekan-rekan
> yang tau bagaimana caranya supaya tampilan menu
> pada aplikasi yang dibuat oleh visual basic lebih menarik, seperti menu
> pada
> windows XP, office 2000/2003.
>
> Regards,
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Forum ini berkembang dengan pesat, jika anda memiliki
> dedikasi dan waktu, silahkan mengaplikasikan diri
> menjadi moderator.
>
>
>
> SPONSORED LINKS
> Computer internet security Computer internet business Computer
> internet access Computer internet privacy securities Computer
> internet
> help Computer internet connection
>
> ---------------------------------
> YAHOO! GROUPS LINKS
>
>
> Visit your group "indoprog-vb" on the web.
>
> To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
>
>
> ---------------------------------
>
>
>
>
>
> ---------------------------------
> Yahoo! Messenger with Voice. Make PC-to-Phone Calls to the US (and 30+
> countries) for 2ยข/min or less.
>
> [Non-text portions of this message have been removed]
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Forum ini berkembang dengan pesat, jika anda memiliki
> dedikasi dan waktu, silahkan mengaplikasikan diri
> menjadi moderator.
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Forum ini berkembang dengan pesat, jika anda memiliki
> dedikasi dan waktu, silahkan mengaplikasikan diri
> menjadi moderator.
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
YAHOO! GROUPS LINKS
- Visit your group "indoprog-vb" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
