Ihsana Computer - Closed Message Favorite Artikel : Membersihkan Flashdisk terinfeksi All Virus Shortcut , baca selengkapnya...!


[VB6] Tip Membuat Splash Screen
Tanggal publikasi: 2010-09-26. Penulis: Jasman. Dibaca: 3703 kali

Splash Screen adalah From yang muncul saat suatu program dijalankan. Cara membuatnya adalah sebagai berikut:

Pilih Menu Project --> Add Form, dijendela Add Form pilihlah Splash Screen dan kilk Tab Open. Ketiklah listing berikut pada bagian Form Frmsplash:

Private Sub Form_Load ()
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblProductName.Caption = App.Title
End Sub

Buatlah sebuah module dengan memilih menu Project > Add module. Atur startup object menjadi submain () dengan memilih menu Project > Project Properties > Startup Object.

Ketik listing berikut pada module1:
Sub Main()
frmSplash.Show
frmSplash.Refresh
Unload frmSplash
fMainForm.Show
End Sub

Semoga bermamfaat!

Komentar

Jika ada yang kurang jelas silahkan bertanya. Silahkan klik RSS atau Email jika ingin jawaban melalui email dan masukan No. Ponsel pada URL Anda jika ingin jawaban melalui ponsel atau Pantau Komentar Lewat Facebook.




Lama tak berkunjung kesini lagi. Sukses selalu
Dikirim oleh : Symbian Lovers pada tanggal : 2010-10-01


Iya nih sob, we.. Symbian Lovers.. dulu aq jg hobby ngoprek symbians os. sejak fokus ma komputer gak lagi. jd ingat virus love, gurdian, carbide.. avatar / smiles wkwkwkwk
Dikirim oleh : Jasman pada tanggal : 2010-10-02


ko malah,
runtime error '424'
Dikirim oleh : freezz pada tanggal : 2010-11-14


Mas udah berhasil ...
tp ko nampilin splash nya sik\ngkat bgt ...
listing buat ngejedanya gmana Mas ???
Dikirim oleh : freezz pada tanggal : 2010-11-14


Makasih kunjungannya mas.
Tinggal Nambahin timer mas, kode yg ini pada module dibuang

Unload frmSplash
fMainForm.Show


Pada form frmSplash buat listing kayak gini, jangan lupa tambahin timer dengan nama durasi dan klw pengen efek loading buat 2 buah shapes dengan nama efek dan efekback:


Dim hitung, LamaDurasi As String

Private Sub Durasi_Timer()
LamaDurasi = 100 'Ubah Angka ini

hitung = hitung + 1
Efek.Width = hitung / LamaDurasi * EfekBack.Width

If hitung = LamaDurasi Then
Unload frmSplash
fMainForm.Show
End If

End Sub

Private Sub Form_Load()
hitung = 0 'Agar text tidak kosong
End Sub

Download ini untuk sampelnya: Splash Screen
Dikirim oleh : Jasman pada tanggal : 2010-11-14

Kirim Komentar
Komentar dan jawaban akan terkirim ke Facebook jadi silahkan di like (suka) jika ingin menerima jawaban dari komentar tersebut.
Nama Anda : Fans Page Facebook
URL/Email/No. HP :
Hasil dari empat ditambah tiga ? Jawaban dengan angka

  • Backlink dofollow hanya 5 komentar pertama setiap halamannya
  • Komentar berisi link, cacian, warez dan pornograpi akan dihapus
  • BBCODE aktif hanya untuk [b]bold[/b], [i]italic[/i], [i]underline[/i] dan emotion.
[VB6] Tip Membuat Splash Screen

LINK

HTML [General]
BBCODE [phpBB, vBulletin, dan lain-lain]
Widget Radio Ihsana


PENCARIAN POPULER

Berikut ini pencarian menuju situs ini dan klik link tersebut untuk mencari artikel lama pada domain ini.

, cara uninstall 360 china, cara uninstall 360 china, cara mengotomatiskan huruf besar di word sesudah titik, , cara menghapus xiu xiu 360, , , , , , , junk virus shortcut, script deteksi ip pengunjung, script deteksi ip pengunjung,

Agar hasil pencarian lebih tepat, sobat harus pandai dalam menggunakan keywords. Silahkan sobat pahami Tips Menggunakan Keywords di Google.