Penggunaan AddNew di Recordset

Prosedur 'AddNew' di Recordset merupakan alternatif dari perintah SQL 'Insert', yang digunakan untuk menambahkan suatu record. Tapi mungkin banyak yang kurang tahu bagaimana menggunakan prosedur 'AddNew' dengan tepat, berikut caranya :

Sebagai contoh kita ingin memasukkan record berikut,
Field 'ID' = "01"
Field 'Nama' = "Joko"
Field 'Alamat' = "Lamongan"
Maka kodenya adalah :

Adodc1.Recordset.AddNew Array("ID", "Nama", "Alamat"), Array("01", "Joko", "Lamongan")

CATATAN : Cara diatas juga bisa diterapkan dalam prosedur 'Update'.

Kontrol XP

Tidak dapat dipungkiri bahwa tampilan kontrol bawaan VB 6.0 bisa terbilang "jadul".
Banyak cara digunakan programmer agar aplikasinya tampak lebih menarik meskipun hanya menggunakan VB 6.0 . Salah satu caranya adalah dengan menambahkan file manifest ke dalam aplikasinya.
Download source code-nya disini.

Membuka File dengan DragDrop

Tutorial ini menunjukkan bagaimana cara ketika Anda men-drag file dari Windows Explorer kemudian men-drop-nya di aplikasi Anda, maka file tersebut akan dibuka atau dijalankan oleh aplikasi Anda.

Buat Form baru dengan sebuah kontrol TextBox (OLEDropMode=Manual) didalamnya. Di bagian 'Text1_OLEDragDrop' ketikkan :

Text1.Text = "Anda telah membuka file " & (Data.Files(1))

Sekarang coba Anda men-drag sebuah file yang ada di Windows Explorer, kemudian drag di atas kontrol TextBox aplikasi Anda.

Lalu bagaimana men-drag file yang lebih dari satu, sebagai contoh buat sebuah kontrol ListBox (OLEDropMode=Manual) dan ketikkan kode berikut di bagian 'List1_OLEDragDrop'.

For i = 1 To Data.Files.Count
List1.AddItem Data.Files(i)
Next i

Sekarang coba Anda men-drag beberapa file yang ada di Windows Explorer, kemudian drag di atas kontrol ListBox aplikasi Anda.

Jika Anda memerlukan proses filter jenis / ekstensi file, Anda bisa mengkombinasikannya dengan fungsi pemeriksaan ekstensi.

Menghilangkan PopUp Menu di TextBox

Berikut ini kode yang digunakan untuk menghilangkan PopUp Menu (menu yang muncul bila di klik kanan) pada kontrol TextBox. Buat Form baru dengan sebuah kontrol TextBox.

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Di bagian 'Text1_MouseDown'.

If Button = vbRightButton Then
SendMessage Me.hwnd, &H204, 0, 0
End If

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Di bagian 'TextBox1_MouseDown'.

If e.Button = Windows.Forms.MouseButtons.Right Then
SendMessage(Me.Handle.ToInt32, &H204, 0, 0)
End If

Mengetahui Ekstensi File

Ekstensi digunakan untuk memudahkan identifikasi jenis dari suatu file. Misalnya file musik biasanya ber-ekstensi mp3, wav, aac. Sedangkan untuk file gambar ber-ekstensi jpeg, gif.

Berikut fungsi yang digunakan untuk mengetahui atau mengambil ekstensi dari file.

Function Extension(ByVal FileName As String) As String
Extension = Split(FileName, ".")(Len(FileName) - Len(Replace(FileName, ".", "")))
End Function

Contoh penggunaannya :

s = Extension("Lokasi File")

Menonaktifkan Tombol Close

Tombol close merupakan tombol yang digunakan untuk menutup Form. Tombol ini terdapat di pojok kanan atas, bertuliskan huruf "X", dan biasanya berwarna merah.

Buat sebuah Module dan ketikkan :
[ VB 6.0 ]

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Public Sub DisableCloseBtn(ByVal Frm As Form)
Dim h As Long
h = GetSystemMenu(Frm.hwnd, 0)
RemoveMenu h, 6, &H400
RemoveMenu h, 5, &H400
End Sub

[ VB .NET ]

Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer

Public Sub DisableCloseBtn(ByVal Frm As Form)
Dim h As Integer
h = GetSystemMenu(Frm.Handle.ToInt32, 0)
RemoveMenu(h, 6, &H400)
RemoveMenu(h, 5, &H400)
End Sub

Untuk menggunakannya ketikkan kode berikut di bagian 'Form_Load'

DisableCloseBtn Me

CATATAN : Selain dapat diterapkan pada Form standar, cara diatas dapat juga diterapkan pada Form MDI.

Snake

Anda pasti sudah tau dan cara bermain permainan ini. Dalam permainan ini terdapat 7 level yang berbeda dan juga terdapat fitur misteri.
Download source code-nya disini.