(Solo OnlIne Community)
Anda hanya bisa melihat link dan forum tersembunyi apabila anda menjadi anggota dan telah mendaftar forum Solo Online Community.
langkah Pendaftaran:
1. Isi formulir di http://www.sonicsolo.org/
2. Tunggu konfirmasi dari admin
3. daftar di forum ini agar terhubung bersama kami.

by Admin SONIC



 
IndeksPortal BeritaCalendarFAQPencarianAnggotaGroupPendaftaranLogin
Pencarian
 
 

Display results as :
 
Rechercher Advanced Search
Latest topics
» Startup di Indonesia Perlu Kolaborasi Supaya Makin Sukses
Mon Jan 25, 2016 11:41 pm by silvester

» Koperasi Bersama Startup Digital Solo Telah Terbentuk!
Mon Jan 25, 2016 12:11 pm by silvester

» Hidupkan Forum Online SONIC kembali
Mon Jan 25, 2016 12:08 pm by silvester

» Arab Saudi Ingin Akhiri Anonim Pada Twitter
Mon Apr 22, 2013 12:00 pm by Ardhy

» Malware Baru di Android
Mon Apr 22, 2013 11:44 am by Ardhy

» Info Kegiatan Solo April - Mei 2013
Wed Apr 17, 2013 2:11 pm by silvester

» WhatsApp "Lebih Besar" daripada Twitter
Wed Apr 17, 2013 1:46 pm by Ardhy

» Info Event Kota Solo April 2013
Fri Apr 05, 2013 11:03 am by Ardhy

» CEO Raksasa Game EA Mengundurkan Diri
Sat Mar 23, 2013 4:57 am by Ardhy

Official Partner
Space

Space


Share | 
 

 (VISUAL BASIC) Efek Menutup form yang keren

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Ardhy
Admin


Jumlah posting : 246
Koin : 9
Join date : 14.02.12
Lokasi : Surakarta

PostSubyek: (VISUAL BASIC) Efek Menutup form yang keren   Tue Mar 20, 2012 9:31 pm

Ketika anda membuat sebuah form dengan Visual Basic 6.0 standard, anda hanya mendapatkan close yang biasa biasa saja. bagaimana membuat sebuah form yang ditutup(close) dengan efek mengecil dan kemudian menghilang? coba gunakan demo script dibawah ini

buat project baru dengan
[-]sebuah command button

isikan scirpt dibawah ini pada form:

Private Sub Command1_Click()
Call Tutupkeren(Me, False)
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
End Sub

Sub Tutupkeren(Frm As Form, Optional Maximize As Boolean = True)
Dim i As Integer
Dim iWidth As Integer
Dim iHeight As Integer

With Frm
iWidth = .Width
iHeight = .Height

If Maximize Then
.Width = 0
.Height = 0
.Show
For i = 0 To 5000 Step 500
.Width = i
.Height = i
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
Next
.Width = iWidth
.Height = iHeight
Else
For i = 5000 To 0 Step -10
.Width = i
.Height = i
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
Next
Unload Frm
End If
End With



Bayi Homo
End Sub

_________________
INGAT!!! gw ganteng Ganteng Ganteng
Kembali Ke Atas Go down
Lihat profil user http://forum.sonicsolo.org/ardhy
silvester
Moderator Sonic


Jumlah posting : 258
Koin : 8
Join date : 15.02.12
Age : 24
Lokasi : Solo The Spirit of Java

PostSubyek: Re: (VISUAL BASIC) Efek Menutup form yang keren   Fri Mar 23, 2012 3:55 pm

ntar jadinya gmana??

_________________
Kami bukan pencari ISO. Tapi kami akan senantiasa berkontribusi membangun negeri.. Twisted Evil
Kembali Ke Atas Go down
Lihat profil user http://www.silsurya.com
Ardhy
Admin


Jumlah posting : 246
Koin : 9
Join date : 14.02.12
Lokasi : Surakarta

PostSubyek: Re: (VISUAL BASIC) Efek Menutup form yang keren   Sat Mar 24, 2012 9:56 am

silvester wrote:
ntar jadinya gmana??

KAyak slide show di presentasi

_________________
INGAT!!! gw ganteng Ganteng Ganteng
Kembali Ke Atas Go down
Lihat profil user http://forum.sonicsolo.org/ardhy
silvester
Moderator Sonic


Jumlah posting : 258
Koin : 8
Join date : 15.02.12
Age : 24
Lokasi : Solo The Spirit of Java

PostSubyek: Re: (VISUAL BASIC) Efek Menutup form yang keren   Sat Mar 24, 2012 3:59 pm

wow keren ya..

btw, koin sent

_________________
Kami bukan pencari ISO. Tapi kami akan senantiasa berkontribusi membangun negeri.. Twisted Evil
Kembali Ke Atas Go down
Lihat profil user http://www.silsurya.com
Sponsored content




PostSubyek: Re: (VISUAL BASIC) Efek Menutup form yang keren   Today at 2:23 am

Kembali Ke Atas Go down
 
(VISUAL BASIC) Efek Menutup form yang keren
Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1
 Similar topics
-
» Hanya Sebuah Kalimat Sederhana
» surprise ?
» Remodeling Option - Rear Tire Huggers
» Request Golden Priest Robe ori
» Gear design awesome

Permissions in this forum:Anda tidak dapat menjawab topik
(Solo OnlIne Community) :: Berbagi Ilmu :: Programer-
Navigasi: