COMBOBOX MULTI COLUMN & VB CLASSIC TUTORIAL


Sekarang  Visual Studio  telah  samapai Visual Studio .net 2015, tapi saya masih ogah-ogahan untuk beralih ke .Net dan masih lebih suka vb Classic Sementara ini. Karena sementara ini semua keperluan program saya masih bisa dipenuhi oleh vb classic selain itu banyak sekali tutorial dan yang  pasti tidak makan memori hahaaaa.
OsenXpsuite adalah Active X yang saya sering gunakan agar tampilan design VB Classic lebih segar.

Tutorial VB Classic  dan OsenXP yang akan saya bahas adalah OsenXP ComboBox , hebatnya OsenXP ComboBox bisa mempunyai multi column,Mau???. Ikuti langkahnya berikut ini:
      1. > Pastikan anda sudah install OsenXPSuite
      2. > Buat project baru
      3. > Tambahkan Control OsenXPSuiter melalui menu Project>Component, Pilih Osenxpsuite
      4. > Tambahkan Referense Microsoft Active Data Recored 2.0
      5. > Buat Modul untuk modul koneksi
      6. > Tambahkan OsenXPComboBox, OsenXPButton,dan 4 OsenXPtextbox
          Code Form 1
          Private Sub Form_Load()
          ''Membuka Database
          Koneksi
          
          ''Merubah Color Schema Form
          OsenXPForm1.ColorScheme = xpBlue
          End Sub
          
          
          Private Sub OsenXPButton1_Click()
          ''Membersihkan Kolom dan Isi combobox
          OsenXPComboBox1.Clear
          OsenXPComboBox1.ClearColumns
          
          ''Mengisi combobox melalui Query
          Query = "Select * from Barang"
          OsenXPComboBox1.InsertItemBySQL Conn, Query, True
          
          ''Menambahkan 4 kolom,mengatur lebar dan memformat column
          OsenXPComboBox1.AddColumn "Kode"
          OsenXPComboBox1.AddColumn "Nama Barang"
          OsenXPComboBox1.AddColumn "Harga"
          OsenXPComboBox1.AddColumn "Jumlah"
          OsenXPComboBox1.ColumnWidth(1) = 50
          OsenXPComboBox1.ColumnFormat(3) = "Rp #,###.0"
          End Sub
          
          
          Private Sub OsenXPComboBox1_RowClick(lRow As Long, vData As String)
          ''Mengambil Nilai dari row berdasarkan id baris (Lrow) dan id kolom(0,1,2,3)
          OsenXPTextBox1.Text = OsenXPComboBox1.TextMatrix(lRow, 0)
          OsenXPTextBox2.Text = OsenXPComboBox1.TextMatrix(lRow, 1)
          OsenXPTextBox3.Text = OsenXPComboBox1.TextMatrix(lRow, 2)
          OsenXPTextBox4.Text = OsenXPComboBox1.TextMatrix(lRow, 3)
          End Sub 

          Module Koneksi
          Public Conn As ADODB.Connection
          Public Rs As ADODB.Recordset
          Public Query As String
          
          Public Sub Koneksi()
          Set Conn = New ADODB.Connection
          Dim dblocation As String
          dblocation = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\latihan.mdb;"
          Conn.ConnectionString = dblocation
          Conn.Open
          End Sub

          Sekian Jika Kurang Jelas Tonton Videonya dan Silahkan dikomentari



          Download Source Code
          Download OsenXP Suite 2006 Setup
          Download OsenXp Suite 2006 Key




          Baca juga

          Post a Comment