MEMBUAT STATE DENGAN VB 6

Tutorial VB saya kali ini membahas bagaimana caranya membuat daftar wilayah dengan VB menggunakan combobox. Wilayah disini dimaksudkan bukan berdasarkan tentang daerah sekitar kita, melainkan berupa wilayah bagian negara. Seberapa penting sih membuat form visual basic ini?. Seperti halnya kita ingin membuat sebuah program aplikasi tentang penjualan dengan geo target negara, sudah selayaknya menyediakan negara asal si pemesan berasal. Code ini penting sekali buat menunjang kompleksitas dari struktur program kita.

Dari mana Data wilayah tersebut didapatkan?
Contoh yang saya ambil menggunakan Operating System Windows.
Pernah instal ulang windows?jangan tanyakan versi dan sp-nya ke saya, karena windows modern saat ini sama saja tujuannya.
Pernah lihat ada pilihan kita harus menset jam didalam komputer kita beserta negara kita berasal?. Kalau belum pernah menginstall ulang komputer, saya saranin coba dahulu saja, biar kedepannya kamu menjadi familiar dengan kata-kata barusan.
lanjut....
Data tersebut didapatkan asli murni dari OS yang kita install barusan. Intinya...Kita akan belajar bagaimana mendapatkan informasi dari dalam Windows dan menampilkannya di program utama kita.


Desain State dengan VB


Isi Visual Basic:
- form1.frm
- Module1

Syarat komponen yang dibutuhkan:
- Combo box
- Image (buat banner)

Syarat komponen tambahan:

- Tidak ada


Membuat State dengan VB

- Kenapa hanya ada combo box saja didalam form? kan disini saya hanya akan mengajarkan kepada kamu, sebagian desain menggunakan komponen tersebut. Untuk pengembangannya, kamu bisa melakukannya sendiri.


- Isikan Code ini pada form_load. Terdapat penjelasan juga.


'Kenapa ditaruh di form_load?kenapa tidak ditaruh pada combo1 saja?
'karena diprogram ini kita akan belajar seni melompat pada variabel. Melompat maksudnya Looping

Private Sub Form_Load()

MsgBox "Kunjungi saya di www.tutorial-vb.com", vbOKOnly, " ^,..,^"


Dim intStateFileNbr As Integer
Dim strBS As String
Dim strStateAbbrev As String
Dim strStateName As String

strBS = IIf(Right$(App.Path, 1) = "\", "", "\")
intStateFileNbr = FreeFile
'Kode dibawah ini adalah untuk mencari file yang berupa STATES.DAT
'Karena keberhasilan program utama kita ini terletak pada file bawaan windows tersebut

Open (App.Path & strBS & "STATES.DAT") For Input As #intStateFileNbr
'Setelah didapatkan file tersebut, maka program kita akan melakukan pemanggilan menggunakan bahasa visual basic
'Yang berupa singkatan nama wilayah, dan nama wilayahnya
Do Until EOF(intStateFileNbr)
Input #intStateFileNbr, strStateAbbrev, strStateName
'Dibawah ini contohnya adalah AK-ALASKA
'memberikan kesan ada pembatas pada variabel file tersebut berupa garis minus (-)
Combo1.AddItem strStateAbbrev & " - " & strStateName
Loop

Close #intStateFileNbr

Combo1.ListIndex = 0

SetDropDownWidth Combo1

End Sub



- Isikan Code ini pada module1. terdapat penjelasan juga.

'Karena kita akan melakukan pemanggilan dalam komputer kita, maka file yang diperlukan adalah user32
'Yang diterbitkan dengan sendmessageA
'Kenapa harus menggunakan Const? karena bilangan didalam PC harus menggunakan nilai konstanta
Option Explicit

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
Private Const CB_SETDROPPEDWIDTH As Long = &H160
'ini adalah pemanggilan sub pada type file diatas
'-----------------------------------------------------------------------------
Public Sub SetDropDownWidth(mCombo As ComboBox)
'-----------------------------------------------------------------------------

Dim RetVal As Long
Dim PixelWidth As Long
Dim MaxWidth As Long
Dim LoopCounter As Long
Dim lWidth As Long

For LoopCounter = 0 To mCombo.ListCount - 1
lWidth = mCombo.Parent.TextWidth(mCombo.List(LoopCounter))
If lWidth > MaxWidth Then
MaxWidth = lWidth
End If
'Ini sebagian rumus yang akan kamu masukan didalam module agar program tersebut stabil
Next LoopCounter
MaxWidth = MaxWidth + (23 * Screen.TwipsPerPixelX)
If MaxWidth > (mCombo.Width * 2) Then
MaxWidth = (mCombo.Width * 2)
ElseIf MaxWidth < mCombo.Width Then
MaxWidth = mCombo.Width
End If

PixelWidth = (MaxWidth \ Screen.TwipsPerPixelX)
RetVal = SendMessage(mCombo.hwnd, CB_SETDROPPEDWIDTH, PixelWidth, 0)

End Sub

Subscribe to receive free email updates:

0 Response to "MEMBUAT STATE DENGAN VB 6"

Poskan Komentar