Masih Seputar Visual Basic tentunya, kesempatan kali ini saya coba mempergunakan untuk ngebahas Masalah Folder yaitu Cara Membuat dan Menghapus Folder dengan VB dan ini juga merupakan salah satu request dari sahabat yang melayangkannya lewat email. Saya rasa hal ini pun sangat penting dalam membangun sebuat Aplikasi.

Langsung aja kita kepokok pembahasan bagaimana dengan pembuatan Coding nya, nah bagi yang tertarik silakan ikuti langkah - langkah berikut ini

Ketik Coding Berikut ini pada Module Project

Option Explicit

Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryA" (ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

'Fungsi mencek keberadaan folder
Public Function DirectoryExist(DirPath As String) As Boolean
DirectoryExist = Dir(DirPath, vbDirectory) <> ""
End Function

'Fungsi untuk membuat Folder
Public Sub CreateNewDirectory(NewDirectory As String)
Dim sDirTest As String
Dim SecAttrib As SECURITY_ATTRIBUTES
Dim bSuccess As Boolean
Dim sPath As String
Dim iCounter As Integer
Dim sTempDir As String

sPath = NewDirectory

If Right(sPath, Len(sPath)) <> "\" Then
sPath = sPath & "\"
End If

iCounter = 1

Do Until InStr(iCounter, sPath, "\") = 0
iCounter = InStr(iCounter, sPath, "\")
sTempDir = Left(sPath, iCounter)
sDirTest = Dir(sTempDir)
iCounter = iCounter + 1
'create directory
SecAttrib.lpSecurityDescriptor = &O0
SecAttrib.bInheritHandle = False
SecAttrib.nLength = Len(SecAttrib)
bSuccess = CreateDirectory(sTempDir, SecAttrib)
Loop
End Sub

'Fungsi Untuk Menghapus folder
Public Sub DelDirectory(sName as String)
On Error Resume Next
Dim Fso
Set Fso = CreateObject("Scripting.FileSystemObject")
If Dir(sName, vbDirectory) <> "" Then
Fso.DeleteFolder sName
End If
Set Fso = Nothing
End Sub

Nah sekarang tinggal menggunakan fungsi-fungsi tersebut kedalam Form Project sebagai contoh membuat sebuah folder di drive C dengan nama Database coding nya seperti dibawah ini

'Coding untuk mebuat Folder
'Cek dulu Folder
If DirectoryExist("C:\Database") <> True Then
'Jika Folder yg dimaksud belum ada maka akan dibuat
Call CreateNewDirectory("C:\Database\")

'Coding Menghapus Folder
'Kalau Folder yang dimaksud ditemukan langsung dihapus
Call DelDirectory ("C:\Database\")

Cukup sekian dulu tutorial singkat ini mudah-mudahan kalau ada umur panjang akan saya lanjutkan pada topik yang lain, semoga dapat membantu dan bermamfaat, selamat mencoba dan salam.

Agar tidak ada kesalahan pada pengisian data atau kata-kata pada from .
Contohnya from login .
Maka ada baiknya kita membuat isi text tersebut menjadi huruf besar atau kecil semuanya .

Untuk membuat text default huruf BESAR, biasa saya menggunakan Key Ascii.. nah Kodingnya seperti ini :

Private Sub Text1_KeyPress(Keyascii As Integer)
    Keyascii = Asc(UCase(Chr(Keyascii)))
End Sub

Dengan koding diatas, tulisan yang anda tulis di Text 1 menjadi besar semua, walaupun anda tdak menekan tombol CAPS LOCK pada Keyboard anda. Semoga bermanfaat :)

Mungkin sobat pengentau gimana cara membuat shortcut di desktop atau dimana yang kita inginkan, tapi belum ketemu juga, sudah mondar mandir ke situs vb lainnya, tapi juga tidak ketemu .

Nah, kali ini saya mau membantu anda dan sobat semuanya .

Informasi lebih lanjut:

Utilitas ini memungkinkan Anda untuk dengan cepat membuat shortcut untuk setiap file pada desktop atau tempat lain di sistem anda.

  Catatan Penting: 
Contoh ini membutuhkan Stkit432.dll file dll (didistribusikan dengan VB4) atau vb5Stkit.dll (didistribusikan dengan VB5).. Jika Anda memiliki vb5stkit.dll pada sistem Anda, tetapi tidak stkit432.dll, Anda harus mengubah deklarasi API dalam kode.
VB6 tampaknya tidak memiliki file analog, melainkan hanya mengandalkan API Shell (yang juga digunakan dalam contoh ini) untuk menyediakan jenis fungsi. Jika Anda tidak memiliki stkit432.dll atau vb5stkit.dll pada sistem Anda, pergi ke CD3 dari Visual Studio 6.0 dan melihat proyek di COMMON \ TOOLS \ VB \ UNSUPPRT \ SHELLLNK subdirektori. Proyek ini melakukan hal yang sama dengan menggunakan API Shell, tanpa memerlukan toolkit setup. Dll.

Download Source Code 

Teman-teman, iseng2 nih datang ke freevbcode.com, saya dapat source code game bagus ni.
 Namanya Black Jack Winter 2 .

Saya rasa ini bagus untuk yang pengen membuat game sendiri .

Informasi lebih lanjut:
 

Musim Dingin Black 2 (BW2) adalah penembak ruang kedua dalam seri, menampilkan senjata utama banyak, senjata side, senjata khusus, berbagai musuh, dan reguler end-of-tingkat bos. Dibandingkan dengan BW1, saat ini permainan menggunakan 24-bit grafis, gambar masking (bltblt), efek suara, musik latar, dan ledakan yang realistis. Musuh tidak lagi menembak peluru membosankan yang bergerak secara linear ke bawah. Permainan ini ditulis dengan baik berkomentar kode, panduan tutorial untuk membantu programmer untuk membangun sebuah penembak ruang dasar, dan printer ramah manual untuk gamer yang ingin referensi cepat pada senjata dan statistik kapal.
Membaca User Manual sangat dianjurkan sebelum bermain. Pengguna WinXP dapat menemukan layar mereka sedikit misaligned, tapi itu tidak akan mempengaruhi gameplay.

Download Black Jack Winter 2 

Siapa bilang membuat  aplikasi harus bisa coding, dengan activex EcoEngine ini anda akan dipermudahkan dengan setting  dan memasukan parameter aja

Versi 1.0.6 keatas ke atas akan Include Handles Style Mac OS

*Fitur Handles yang ada di versi EcoEngine 1.0.1
Merubah secara otomatis form dan control yg ada  menjadi Style vista , XP-Luna,XP-Royale dan Office2007
Merubah secara otomatis  jenis font semua control yang ada di form
Merubah Secara Otomatis Bahasa yg digunakan(Multi bahasa)
Menjadikan secara otomatis Form dan control yg ada menjadi AutoSize
setting Handles perpindahan control saat  mengisi data(saat enter auto tab)

*Fitur Handles yang ada di versi EcoEngine 1.0.2
menyempurnakan versi sebelumnya
setting Handles perpindahan control saat  mengisi data(saat enter auto tab)
setting handles warna BackColor  isian
setting handles control yang mana aja yg isianya harus angka
setting handles control yang mana aja yg isianya harus format uang dan disertakan terbilangnya
setting handles control combobox  auto size kolom isian
setting handles tombol posisi tombol Proses saat terjadi Tambah simpan edit batal cetak
Dan lain-lain

*Fitur Handles yang ada di versi EcoEngine 1.0.3
menyempurnakan versi sebelumnya dan tampilan baru
saat setfocus control text dan combo selalu blok text yg ada
Handles Karakter SqlInjection
format isian numeric dan currency bisa diatur sendiri
format isian teks apakah huruf besar , kecil atau  huruf besar pada awalan kata
dan lain-lain

*Fitur Handles yang ada di versi EcoEngine 1.0.4
menyempurnakan versi sebelumnya dan Pengelompokan setting
sudah stabil jika  autosize, tidak terjadi garis lagi
setting handles control yang mana aja yg isianya harus type tanggal dan Time
sudah bisa digunakan di system windows yg rootnya selain di drive c
fasilitas status dalam coding untuk mematikan fitur event pada salah satu control(EcoEngine1.sEventActive = False)
dan lain-lain

*Fitur Handles tambahan yang ada di versi EcoEngine 1.0.5
menyempurnakan versi sebelumnya
menambah handles tab/enter control di checbox dan option
menambah setting handles pengisian combobox
menambah menu Utilty (Save setting to file dan Load Setting from file)
untuk mempermuda jika ada pengantian versi sehingga tidak harus setting ulang
dan lain-lain

*Fitur Handles tambahan yang ada di versi EcoEngine 1.0.6
menyempurnakan versi sebelumnya
saat diload lebih cepat dan ringan dari sebelumnya (optimasi tahap 1)
menyempurnakan handles multi bahasa
sudah bisa  handles object  di MDIform
menambah handles Tampilan Menjadi  Style  MAC OS
ukuran file EcoEngine.Ocx  Lebih Kecil dari sebelumnya
dan lain-lain

keutungan mengunakan EcoEngine
-mempermuda dalam mengembangkan project karena hal2 kecil yang sering kali menggangu programer sudah tidak dipikirkan lagi
-tampilan lebih elegan dan profesional dengan mengunkan fasilitas style ecoEngine
-dapat dengan cepat menyelesaikan project dan akurat handles controls nya sehinga programmer lebih maksimal memikirkan alur system
-ukuran aplikasi kecil karena coding sedikit karena sudah dihandles oleh Activex Ecoengine.ocx
-dll

*Fitur Handles yang ada di versi EcoEngine 1.0.7
menyempurnakan versi sebelumnya
saat diload lebih cepat dan ringan dari sebelumnya (optimasi tahap 2)
sudah bisa autosize image di dalam picture dan background form
fitur atur form transparan dengan prosentasi
handles control mana aja yg tidak boleh kosong saat pengisian
isi pesan pengiisian tidak sesuai dg type text(date,time,isian tidak boleh kosong) bisa diatur  sendiri
dan lain-lain

*Fitur Handles yang ada di versi EcoEngine 1.0.8
menyempurnakan versi sebelumnya
saat diload lebih cepat dan ringan dari sebelumnya (optimasi tahap 3)
saat autosize control lebih ringan dan halus dari sebelumnya
sudah bisa autosize control dalam tab yg sebelumnya tidak sempurna
menyempurnakan jika pemanggilan form  oleh form lain dan saat menutup form
sudah bisa handles skin combobox style simple combo
fitur membuat form tampil center screen
fitur setting isian combobox yg read only
dan lain-lain

Download Activex EcoEngine.ocx  ver 1.0.1

Download Activex EcoEngine.ocx  ver 1.0.2 

Download Activex EcoEngine.Ocx Ver 1.0.3

Download Activex EcoEngine.ocx ver 1.0.4

Download Activex EcoEngine.Ocx ver 1.0.5

Download Activex EcoEngine.Ocx Ver 1.0.6

Download Activex EcoEngine.Ocx Ver 1.0.7

Download Activex EcoEngine.Ocx Ver 1.0.8

Sumber Info : https://ekojimmyy.wordpress.com/2011/11/05/activex-ecoengine-ocx/

Activex EcoCollection.dll
Bagi para programer pasti sudah tidak asing lagi dengan yang namanya FRAMEWORK,
apa itu FRAME WORK? jika diterjemahkan dalam bahasa indonesia artinya adalah kerangka kerja,
Kerangka kerja yang merupakan sekumpulan script atau code program yang telah ditata sedemikian rupa
sehingga memudahkan kita dalam proses pemanggilan dan penggunaanya.
Jadi dengan kata lain FRAMEWORK adalah sekumpulan perintah-perintah yang sudah dikemas
dan diuji dan sudah diatur agar mudah digunakan.
Mengapa membutuhkan FRAMEWORK? banyak jawaban untuk menjawab pertanyaan ini.
Pertama dengan menggunakan framerwork program lebih simple ,
programmer tidak lagi memikirkan algoritma melainkan fokus memikirkan konsep dan proses bisnis,
misalnya saja jika seorang programer harus membuat suatu algortima tentang solver quadratic programing
programer akan kesulitan,
kedua dengan menggunakan FRAMEWORK proses pengerjaan project semakin cepat
, mudah dan yang lebih penting hasilnya semakin akurat.

karena alasan itu kami membuat  activex dll, dimana activex ini adalah
bagian dari FRAMEWORK, Activex ini kami beri nama EcoCollection.dll yang isinya
kumpulan fungsi-fungsi yang sudah kami uji dan sering kami gunakan dalam pengembangan
aplikasi yang pernah kami buat

Dengan  ActiveX program Anda akan lebih modular dan kode-kode yang sering Anda gunakan akan tertata,
sehingga Anda dapat memprogram dan mengembangkan program anda kapan pun dan oleh siapapun dengan mudah dan cepat

Download  Activex EcoCollection v1.0.1  Free disini

Download  Activex EcoCollection v1.0.2  Free disini

Info by : https://ekojimmyy.wordpress.com/2012/09/20/activex-ecocollection-untuk-vb6/

Mungkin bagi sobat yang aplikasinya ada atau banyak yang menggunakan ActiveX Control, dan untuk meregistrasikannya secara otomatis butuh code tapi anda tidak tahu codenya .

Pada tutorial kali ini, saya akan membantu anda dalam hal itu . Jika pada Windows XP Semua ActiveX Control dapat di registrasikan secara otomatis jika apkilasi dibuka, tapi pada Windows Seven/7 cara ini tidak berlaku, untuk itu, saya buatkan aplikasi untuk meregistrasi ActiveX Controlnya dengan Bantuan dari M.Visual Basic. Anda juga dapat download aplikasinya di bawah ini .

Bantuan :
Cara meregister Ocx dengan visual basic
Cara membuat aplikasi untuk meregister file Ocx
Cara register file Ocx dan dll pada windows 7
Download aplikasi untuk register file Ocx dan dll

Bagi yang suka menggambar atau mengedit-edit gambar, tapi tidak punya softwarenya.
Nih saya ada source code aplikasi untuk mengedit gambar. Aplikasi ini seperti Paint dari Microsoft .
Namun, tampilannya saja yang berbeda dan juga ada fitur yang belum lengkap di dalamnya .

Bagi sobat yang ingin source code aplikasi nya, ada bisa download setelah anda membaca ini dulu .
Oh iya, ini Screenshot aplikasi nya .

Semoga dapat membantu . :)

Sobat, saya ada source code lagi nih, kali ini berhubungan dengan membuka gambar .
Mungkin diantara sobat yang ingin membuka image dengan program buatan kita sendiri, inilah saatnya .

Mungkin masih sederhana, dan akan masih banyak perubahan.
Untuk lebih lanjut, lihat saja gambar dibawah ini :

Jika sobat ingin mengembangkan aplikasi ini, sobat bisa download gratis di bawah ini .

Mungkin diantara blog-blog indonesia, sudah banyak yang memostingkan tentang ini, tapi apa salahnya saya juga mempostingkan posting yang sama (wkwkwkw).
Langsung saja, pembahasan pada hari ini adalah mengenai cara membuka email, atau sebuah link di project vb anda. Walau pun tutorial yang sama sudah saya berikan yaitu Cara Membuka Emil dan Link, tapi kali ini saya menggunakan source codenya, agar bisa di pahami sendiri oleh anda .

Seperti judul di atas, source code ini berfungsi untuk membuka link atau email, codenya mudah di mengerti dan saya rasa mudah di hapal oleh anda .

Mungkin tidak ada salahnya ika saya memberikan screenshootnya .

Dan lihat juga codenya ...

Selesai juga tutorial nya.
Semoga dapat membantu teman-teman semuanya ..
Jangan lupa di koment yang ..

Download Source Code

Jika kita ingin membuat form login di visual basic, pasti kita ingin kalau kita ingin text passwordnya menjadi tidak bisa terbaca oleh user yang login atau yang lainnya . Nah, jika anda ingin membuat karakter password charnya unik, Cukup perhatikan saja langkah-langkah nya berikut ini ..

Daftar karakter lain yang bisa Anda coba :

Bentuk	Font	PasswordChar
Titik besar	Webdings	=
Listrik	Webdings	~
Tools	Webdings	@
Tengkorak	Wingdings	N
Menulis	Wingdings	?
Smiley	Wingdings	J
Jempol	Wingdings 2	<
Contreng	Wingdings 2	P

Jika menginginkan bentuk karakter yang lain, Anda bisa memanfaatkan aplikasi Character Map (Start > All Programs > Accessories > System Tools > Character Map). Pilih salah satu karakter yang diinginkan, kemudian copy-paste ke dalam properti PasswordChar lalu sesuaikan properti Font dengan nama Font yang telah dipilih dari aplikasi Character Map.

CATATAN : Jika karakter tidak jelas karena terlalu kecil, Anda tinggal mengubah ukuran / size dari properti Font-nya.

Jika anda ingin coba-coba untuk membuat menghitung waktu mundur seperti yang ada di warnet-warnet dan di tempat rental lainnya, saya akan memberikan tipsnya. Cukup panjang sih, tapi coba pelajari ya sobat .

Masukkan ke dalam Form tersebut 1 kontrol Label, 1 kontrol Tombol / Button, dan 1 buah kontrol Timer (Enabled=False; Interval=1000), lalu ketikkan kode-kode berikut

Pada VB6 :
Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00:00:00"

Di bagian 'Command1_Click' ketikkan :

'nilai awal (0 s/d 59)

Jam = 0

Menit = 1
Detik = 10

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

Timer1.Enabled = True
Command1.Enabled = False

Di bagian 'Timer1_Timer' ketikkan :

Detik = Detik - 1
If Detik < 0 Then
Detik = 59
   
Menit = Menit - 1

If Menit < 0 Then

Menit = 59

Jam = Jam - 1

End If

End If

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

If Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Command1.Enabled = True
   
MsgBox "Waktu Habis !!!"
End If

Pada VB.NET

Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam, Menit, Detik As Integer

Di bagian 'Form1_Load' ketikkan :

Label1.Text = "00:00:00"

Di bagian 'Button1_Click' ketikkan :

'nilai awal (0 s/d 59)

Jam = 0

Menit =1
Detik = 10

Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

Timer1.Enabled = True
Button1.Enabled = False

Di bagian 'Timer1_Tick' ketikkan :

Detik -= 1
If Detik < 0 Then
Detik = 59

Menit -= 1

If Menit < 0 Then

Menit = 59

Jam -= 1

End If

End If

Label1.Text = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

If Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Button1.Enabled = True

MsgBox("Waktu Habis !!!")
End If

CATATAN : Kode diatas mencakup Jam, Menit, dan Detik. Namun bila Anda menginginkan hanya Menit dan Detik saja, tinggal menghapus kode-kode yang berwarna merah.

Terkadang programmer ingin membuat file yang penting-penting seperti ActiveX Control atau Dll menjadi hidden atau tersembunyi . Tujuannnya agar user tidak mengutak-atik isi data pada aplikasi nya . Nah, karena itu saya memberika tutorialnya sebagai berikut :

Langkah 1 : membuat folder menjadi hidden, tapi tidak tersembunyi .

Pada VB6 :
 - SetAttr "Lokasi File atau Folder", vbHidden

Pada VB.NET
- SetAttr("Lokasi File atau Folder", FileAttribute.Hidden)

Langkag 2 : Membuat folder hidden dan tersembunyi (tidak tampak pada explorer)

Pada VB6 :
- SetAttr "Lokasi File atau Folder", vbHidden Or vbSystem

Pada VB.NET
- SetAttr("Lokasi File atau Folder", FileAttribute.Hidden Or FileAttribute.System)

Jika kita sudah mempelajari menyembunyikan folder, sekarang kita beralih untuk memunculkan file yang sudah kita sembunyikan tadi. Simak saja berikut ini .

Pada VB6
- SetAttr "Lokasi File atau Folder", vbNormal 'memunculkan file

Pada VB.NET
- SetAttr("Lokasi File atau Folder", FileAttribute.Normal) 'memunculkan file

Sudah selesai .
Semoga dapat membantu ... :)