Djuliar Heart's I'm Not Special, But I'm Just Limited Edition
Home
Product Sales
Programming
Daftar Isi
TentangQ
Contact Me
21 September 2011
StatusBar Codejock Comm CommandBars andBars 13.0.0 Melanjutkan postingan Mainmenu Form Codejock CommandBars 13.0.0 dengan Tampilan Office 2007,, k ali ini kit a akan membuat status yang berada dibawah 2007 dibawah halaman halaman Mainmenu Form. Form. StatusBar berikut terdiri dari : 1. Username 2. Penanda Caps Lock 3. Penanda Num Lock
INFORMASI SEBAGIAN BESAR LINK DOWNLOAD DI BLOG INI MASIH BELUM AKTIF ATAU EXPIRED MOHON MAAF SEBELUMNYA BAGI PARA PENGUNJUNG
4. Penand Penanda a Scroll Lock 5. Hak Akses
POTRET
6. Tanggal 7. Jam 8. Title/Info Berjalan
Caranya sebagai berikut: Membuatt StatusBar itu sendiri : Pertama, Membua
Private Sub CreateStatusBar() Dim pane As StatusBarPane Set StatusBar = CommandBars.StatusBar StatusBar.Visible = True
Set pane = StatusBar.AddPane(ID_USERNAME) pane.Text = "Username" pane.Font.Bold = True pane.Alignment = xtpAlignmentCenter pane.Button = False pane.Width = 150 pane.ToolTip = "User Yang Melakukan Login"
Translate MySite
Set pane = StatusBar.AddPane(ID_INDICATOR_CAPS) pane.Width = 50 pane.Alignment = xtpAlignmentCenter pane.Button = False 'pane. Set pane = StatusBar.AddPane(ID_INDICATOR_NUM) pane.Width = 50
Facebook-Q
pane.Alignment = xtpAlignmentCenter pane.Button = False
Don't Forget to Like Me
Set pane = StatusBar.AddPane(ID_INDICATOR_SCRL)
Find us on Facebook
pane.Width = 50 pane.Alignment = xtpAlignmentCenter
Djuliar Heart's
pane.Button = False
Like Set pane = StatusBar.AddPane(ID_AKSES)
104 people like Djuliar Heart's. Heart's.
pane.Text = "Akses" pane.Font.Bold = True pane.Alignment = xtpAlignmentCenter pane.Button = False
D h an a
R agiel
D ik a
S ut utri
We Wi Wit h
D jj-S em em
F ri ris ar ard
H en end riri
P ap apa nk nk
A h ma ma d Luk
R ez ez a
M ul ul y aw aw a n
pane.Width = 125 pane.ToolTip = "Lama User Melakukan Login"
Set pane = StatusBar.AddPane(ID_TANGGAL) pane.Text = "dddd, dd/MM/yyyy" pane.Font.Bold = True pane.Alignment = xtpAlignmentCenter pane.Button = False
Facebook social plugin
pane.Width = 125
Set pane = StatusBar.AddPane(ID_JAM)
ADVERT ADV ERTISE ISE
pane.Text = "hh-mm-ss" pane.Font.Bold = True pane.Alignment = xtpAlignmentCenter pane.Button = False pane.Width = 125
Set pane = StatusBar.AddPane(ID_INFO) pane.Text = "
.::
--Library for School 3.0--
::.
"
pane.Font.Bold = True pane.Alignment = xtpAlignmentCenter pane.Button = False pane.Width = 335
'Set Pane = StatusBar.AddPane(0) 'Pane.Style = SBPS_STRETCH Or SBPS_NOBORDERS
StatusBar.RibbonDividerIndex = 6 StatusBar.ToolTipContext.Style = xtpToolTipOffice2007 StatusBar.EnableCustomization False End Sub
Kedua, Tambahkan dua Timer, beri nama Timer1 dengan tmrJam dan interval 1, Sedangkan Timer2 beri nama dengan tmrAnimasi dan interval 250 (bisa diubah sesuai kebutuhan). lalu dobleklik tmrJam beri script berikut:
Ads Powered by:KumpulBlogger.com by:KumpulBlogger.com Tertarik Beriklan? Klik Disini
If Weekday(Date) = 1 Then CommandBars.StatusBar.FindPane(ID_TANGGAL).Text CommandBars.StatusBar.FindPane(ID_TA NGGAL).Text = "Minggu" & Format(Date, ", d
BLOG ARCH ARCHIVE IVE
d-mm-yyyy") ElseIf Weekday(Date) = 2 Then CommandBars.StatusBar.FindPane(ID_TANGGAL).Text CommandBars.StatusBar.FindPane(ID_TA NGGAL).Text = "Senin" & Format(Date, ", dd
► 2012 (9) ▼ 2011 (37)
-mm-yyyy")
► Desember (4)
ElseIf Weekday(Date) = 3 Then
► November (5)
CommandBars.StatusBar.FindPane(ID_TANGGAL).Text CommandBars.StatusBar.FindPane(ID_TA NGGAL).Text = "Selasa" & Format(Date, ", d d-mm-yyyy") ElseIf Weekday(Date) = 4 Then CommandBars.StatusBar.FindPane(ID_TANGGAL).Text CommandBars.StatusBar.FindPane(ID_TA NGGAL).Text = "Rabu" & Format(Date, ", ddmm-yyyy") ElseIf Weekday(Date) = 5 Then CommandBars.StatusBar.FindPane(ID_TANGGAL).Text CommandBars.StatusBar.FindPane(ID_TA NGGAL).Text = "Kamis" & Format(Date, ", dd -mm-yyyy") ElseIf Weekday(Date) = 6 Then CommandBars.StatusBar.FindPane(ID_TANGGAL).Text CommandBars.StatusBar.FindPane(ID_TA NGGAL).Text = "Jum'at" & Format(Date, ", d
► Oktober (3) ▼ September (2) StatusBar Codejock StatusBar CommandBars 13.0.0 Mainmenu Form Codejock CommandBars 13.0.0 dengan T... ► Agustus (1) ► Juli (2)
d-mm-yyyy")
► Juni (2)
Else
► Mei (2) CommandBars.StatusBar.FindPane(ID_TANGGAL).Text CommandBars.StatusBar.FindPane(ID_TA NGGAL).Text = "Sabtu" & Format(Date, ", dd
► April (5)
-mm-yyyy")
► Maret (2)
End If
► Februari (5)
CommandBars.StatusBar.FindPane(ID_JAM).Text CommandBars.StatusBar.FindPane(ID _JAM).Text = Format(Time, "hh:mm:ss")
► Januari (4) ► 2010 (6)
Sedangkan Sedang kan untuk tmrAnimasi beri sc ript animasi berjalan berikut:
► 2009 (2)
CommandBars.StatusBar.FindPane(ID_INFO).Text CommandBars.StatusBar.FindPane(ID _INFO).Text = Mid(CommandBars.StatusBar.FindPane(
ARTIKLE ART IKLE POPU POPULER
ID_INFO).Text, 2, Len(CommandBars.StatusBar.FindPane(ID_INFO).Text) - 1) & Left(Co mmandBars.StatusBar.FindPane(ID_INFO).Text, mmandBars.StatusBar.FindPane(ID_I NFO).Text, 1)
Setting Kertas Struk untuk Printer LX300
Sekian dulu yah, tungguin mungkin ada lanjutan tentang Codejock CommandBar...
Berbagai Skin dan Style untuk Visual Basic 6
Oleh Djuliar Heart's Kateg ori: CodeJock CodeJock,, Pemro grama n , Visual Basic
O
Like
Automatic Bell for School 2.0 (Aplikasi Bel Sekolah Otomatis)
Tweet
Related Posts
Aplikasi Mini Market v1.0 Mempercantik Tampilan VB6 dengan OsenXP Os enXP Suite 2006
1 komentar: Anonim mengatakan... mengatakan... Sourcecode untk mngetahui UserName yg sdang Login dan brpa lama User Login na gmn mas bro?? mhon tutorial na.
KATEGORI
trimaksih..
CodeJock Favorit
29 April 2012 21:41
Pemrograman Software
:) :-O /:) 8-7 (:| 2):)
:( X( = )) I-) =P~ X _X
;) :7 O:-) 8-| :-? :!!
:D B-) :-B L-) #-o \m/
;;-) :-S =; :-a = D7 :-q
:-/ #:-S :-c :-$ :-S S :-bd
:x 7:) :)] [-( @-) ^ #(^
:P :(( ~X ( :O) :^o :a r!
:-* :)) :-h 8-} :-w
=(( :| :-t 2:-P 7:P
Musik OsenXPSuite
Visual
Basic TUKAR LINK
Copy Paste kode di bawah ini untuk menampilkan menamp ilkan logo djuliar.blogspot.com |
Poskan Komentar
Djuliar Heart's di blog kamu
Masukkan komentar Anda...
LINK SAHABAT Iseng - Iseng Nge'Blog Dhieka Blog's Dzhenway Bang Ron's yudy-zulkarnain nGOpre-X Community Diajar.com Coding4ever's Blog
profile... Beri komentar sebagai: Select profile...
Publikasikan
Pratinjau
KOMUNITAS Pos ting Lebih Baru »
« Posting Lama
Langganan: Poskan Komentar (Atom)
PENGIKUT Join this site w ith Google Friend Connect
Membe rs (10) (10)
Already a mem ember? ber? Sign in
INGAT WAKTU
PENGUNJUNG
