Artikel kali ini Admin ingin berbagi trik dan tips yaitu bagaimana cara membuat aplikasi yang hanya boleh di Jalankan hanya satu saja tidak boleh di buka lebih dari dua aplikasi yang sama dengan menggunakan kode VB6.
Biasanya aplikasi ini dibuat sengaja oleh programer untuk menghindari load memori yang terlalu besar sehingga hanya boleh dibuka satu dalam satu aplikasi, selain itu juga bertujuan untuk menghindari duplikasi data.
Bagi Anda yang penasaran bagaimana proses pembuatan dan outputnya seperti apa ikuti langkah-langkah dibawah ini :
1. Buka Form VB6 Standar
2. Pada Form1 ketik kode dibawah ini :
Private Sub Form_Load()
Call Cekaplikasi(Form1)
End Sub
Public Sub Cekaplikasi(x As Form)
On Error GoTo Pesan
Dim SaveTitle$
If App.PrevInstance Then
SaveTitle$ = App.Title
MsgBox "Aplikasi Sedang diJalankan!", _
vbCritical, "Pesan"
App.Title = ""
x.Caption = ""
AppActivate SaveTitle$
SendKeys "%{ENTER}", True
End
End If
Exit Sub
Pesan:
End
Exit Sub
End Sub
3. Sampai pada langkah ini, jangan jalankan dulu program Anda,Disini anda harus menyimpan terlebih dahulu Project Anda dan membuat foder penyimpanan.
Setelah anda membuat folder penyimpanan dan project ini telah tersimpan,langkah selanjutnya adalah:
4. Membuat aplikasi Make Project caranya tekan File >> Make Project >> Ketik nama Project Anda, disini saya menyimpan make project dengan nama aplikasi dan simpan di folder yang sama
5. Langkah terakhir jalankan Project Anda dengan cara doubel klik make project yang anda buat tadi maka form1 akan terbuka kemudian doubel klik lagi make project yang anda buat tadi maka pada dobel klik yang kedua kali ini akan ada muncul peringatan
Demikian tips dan trik dari saya pada hari ini tentang cara membuat aplikasi yang hanya boleh di Jalankan hanya satu saja tidak boleh di buka lebih dari dua aplikasi yang sama.
Semoga artikel ini bermanfaat buat kita semua.amin
No comments:
Post a Comment