Buat IDE VB 6.0 Transparant

Ingin Tampilan IDE VB 6.0 anda Transparan ???

Buka Program VB anda

• Masuk Menu Tools->Options
• Pilih Tab Advance
• Centang "SDI Development Environment"
• Klik OK
• Tutup Lembar Kerja VB anda
• Hasil akan Terlihat Jika Program di buka kembali

Selamat Mencoba

Baca Selengkapnya..

Membatasi Program Hanya RUN 1x

ketik listing seperti di bawah ini :

Private Sub Form_Load()

If App.PrevInstance = True Then

MsgBox "Program Telah Aktif !! "

End

End If

End Sub

Selamat Mencoba

Baca Selengkapnya..

Efek Shadow Dengan Visual Basic 6.0

pertama - tama buat prosedur seperti di bawah ini :

Public Sub shadow(kontrol As Control)
Dim X As Integer
Dim Y As Integer
Const warna = &H404040
Const lebar = 3
X = Me.DrawWidth
Y = ScaleMode
Me.ScaleMode = 3
Me.DrawWidth = 1
Me.Line (kontrol.Left + lebar, kontrol.Top + lebar)-Step(kontrol.Width, _
kontrol.Height), warna, BF
Me.DrawWidth = X
Me.ScaleMode = Y
End Sub

setelah itu, pada prosedur Form_Paint inisilisasi kontrol yang anda ingin berikan efek shadow, contoh :

Private Sub Form_Paint()
shadow( Command1)
shadow (Text1)
End Sub

selamat mencoba

Baca Selengkapnya..

Create dan Delete File

desain form seperti gambar di atas

lalu ketik listing seperti dibawah ini

Private Sub Command1_Click()
x = InputBox("Lokasi Dan nama Folder baru : ")
NewFolder (x)
End Sub

Private Function FolderExists(path) As Boolean
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
FolderExists = True
Else
FolderExists = False
End If
End If
End Function

Private Function NewFolder(path)
Dim fso
Set fso = _
CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
MsgBox "Folder Sudah ada !", vbInformation + vbOKOnly, "Informasi"
Else
fso.createfolder (path)
End If
End If
End Function

Private Function deleteFolder(path)
Set fso = CreateObject("Scripting.FileSystemObject")
If Len(path) > 3 Then
If fso.FolderExists(path) Then
fso.deleteFolder (path)
Else
MsgBox "Folder tidak ada !", vbInformation + vbOKOnly, "Informasi"
End If
End If
End Function

Private Sub Command2_Click()
y = InputBox("Lokasi Dan nama Folder Yng akan Dihapus : ")
deleteFolder (y)

End Sub

Selamat Mencoba

Baca Selengkapnya..