Script Membuat Tanggal,Bulan dan Tahun Dengan ComboBox VB 6 Snau Online: Script Membuat Tanggal,Bulan dan Tahun Dengan ComboBox VB 6

Sunday, January 6, 2013

Script Membuat Tanggal,Bulan dan Tahun Dengan ComboBox VB 6

Setelah pusing nyari tutorial buat nampilin tanggal di combo box.akhirnya nemu juga. Buat penggemar Visual Basic 6. Sedot gan...
berikut layoout_nya :
Ada dua cara untuk membuat item-item yang ada di ComboBox :
  1. secara manual : yaitu, klik kanan pada combobox, pilih Edit Items.
  2. dengan code script : Double Klik pada combobox, misalkan pada Jurusan, kita akan membuat 3 buat items, yaitu “Sistem Informasi, Sistem Komputer dan Management Komputer”. Ketikkan code berikut  :
ComboBox1.Items.Add(“Sistem Informasi”)
ComboBox1.Items.Add(“Sistem Komputer”)
ComboBox1.Items.Add(“Management Komputer”)
Membuat Script pada Tanggal Bulan dan Tahun :
1. Double klik pada Form. Kenapa pada form ? karena pada saat form dijalankan data tanggal, bulan dan tahun akan terisi secara automatis pada combobox2 nya. berikut script code_nya :
Private Sub latihan1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'membuat tanggal
        Dim i As Integer
        For i = 1 To 31
            cmbhari.Items.Add(i)
        Next

        'membuat bulan
        cmbbulan.Items.Add("Januari")
        cmbbulan.Items.Add("Februari")
        cmbbulan.Items.Add("Maret")
        cmbbulan.Items.Add("April")
        cmbbulan.Items.Add("Mei")
        cmbbulan.Items.Add("Juni")
        cmbbulan.Items.Add("Juli")
        cmbbulan.Items.Add("Agustus")
        cmbbulan.Items.Add("September")
        cmbbulan.Items.Add("Oktober")
        cmbbulan.Items.Add("November")
        cmbbulan.Items.Add("Desember")

        'membuat tahun
        Dim j As Integer
        For j = 1900 To 2020
            cmbtahun.Items.Add(j)
        Next
    End Sub
Membuat sebuah pesan pada saat mengklick tombol Button OK :
-> berikut tampilannya :

double klik pada Button Ok, ketikkan script berikut :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Nama Anda Adalah : " & txtnama.Text & "", MsgBoxStyle.Information, "Pesan")
    End Sub
Script tombol Close/ Keluar :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
== SELAMAT MENCOBA ==

Share It

 

Translate

English French German Spain Italian Dutch

Russian Portuguese Japanese Korean Arabic Chinese Simplified

Followers

Snau Online Copyright © 2014 -Design by Ixcan_Fauzi | Blogger Theme by Ixcan_Fauzi -