Mengetahui Keyascii Keyboard dengan VB 6.0

Cara mengetahi Keyascii yang di tekan pada keyboard  berikut kodenya Private Sub Form_KeyPress(KeyAscii As Integer) Msgbox KeyAscii End Su...

Read More

[Vb6] Mengetahui Serial ID Cpu

Private Function CpuId() As String Dim computer As String Dim wmi As Variant Dim processors As Variant Dim cpu As Variant Dim cpu_ids As String     computer = "."     Set wmi = GetObject("winmgmts:" & _         "{impersonationLevel=impersonate}!\\" &...

Read More

[Vb6] Menghitung Jumlah Click Pada Button

Untuk mengetahui Jumlah Klik pada Tombol Masukan Kode Ini.. Private sub Command1_Click() dim klik as integer klik= klik+1 if klik = 3 then msgbox "Tombol Telah Di Klik 3 kali" end if Download Proj...

Read More

[Vb6] Filter Adodc dan Datagrid

Masukan kode ini di bawah ini fungsinya untuk menampilkan text yang di masukan di text box dan hanya itu saja yang keluar ... If Adodc1.Recordset.RecordCount <> 0 Then Adodc1.Recordset.Filter = "Fieldnya '*" & txtcari.Text & "*'" Else MsgBox "Data tidak Ada!!", vbExclamation End...

Read More

[VB6] Menghitung jumlah item pada listview

  Buat 1 buah command button dan masukan kode di bawah untuk menghitung jumlah item yang ada pada listview Private Sub Command1_Click() Dim i As Integer Dim Jumlah as string For i = 1 To ListView1.ListItems.Count '- 1 Jumlah = (ListView1.ListItems(i).Index) ...

Read More