Cara Input Data Di Mshflexgrid Control

Kali ini penulis akan me-share trik untuk menginput data di dalam Mshflexgrid. Dalam penginputan ini kita akan coba dengan bantuan komponen DTPicker, Textbox dan Combobox control

Sample project ini sebenarnya penulis dapatkan di forum vb-bego.com dengan sedikit pengembangan...dengan penambahan control DTPickerpada project ini, gak apa-apa kan disebut pengembangan :P Hueheee..

Ok, Langsung saja...seperti biasa, kita buka project baru pada visual basic 6.0 ( VB6 ).

1. Design tampilan form kita dengan menambahankan komponen-komponen yang kita butuhkan
• 1 MshFlexGrid
• 1 TextBox
• 1 DTPicker
• 1 Combobox
• 1 Command Button
Design Penulis


2. Ketikan source berikut :

Pengaturan saat load form

Private Sub Form_Load()
'Mengatur Lebar MSHFLEXGRID
    With Me.MSHFlexGrid1
        .ColWidth(0) = 2200
        .ColWidth(1) = 2000
        .ColWidth(2) = 2000
        .RowHeightMin = Me.Combo1.Height
       
'Mengatur penama-an column mshflexgrid
        .TextMatrix(0, 0) = "TANGGAL"
        .TextMatrix(0, 1) = "JENIS"
        .TextMatrix(0, 2) = "JUMLAH PENGELUARAN"
               
    End With
'Pengaturan lainnya
    Me.Text1.Height = Me.Combo1.Height
    Me.DTPicker1.Height = Me.Combo1.Height
    Me.Text1.Width = 2000
'Pengisian list di combobox
    Me.Combo1.AddItem "Beban"
    Me.Combo1.AddItem "Sewa"
    Me.Combo1.AddItem "Lainnya"
   
    Me.Combo1.Width = 2000
'Sembunyikan control
    Me.Text1.Visible = False
    Me.Combo1.Visible = False
    Me.DTPicker1.Visible = False
   
End Sub

 Pengaturan saat Mshflexgrid di double click

Private Sub MSHFlexGrid1_DblClick()
'Pengaturan saat Mshflexgrid di klik 2x
    If Me.MSHFlexGrid1.Col = 0 Then
    If Me.MSHFlexGrid1.Text = "" Then
    Me.DTPicker1.Value = Format(Now - 1, "dd MMMM yyyy")
    Else
        Me.DTPicker1.Value = Format(Me.MSHFlexGrid1.Text, "dd MMMM yyyy")
        End If
        Me.DTPicker1.Left = Me.MSHFlexGrid1.Left + Me.MSHFlexGrid1.CellLeft
        Me.DTPicker1.Top = Me.MSHFlexGrid1.Top + Me.MSHFlexGrid1.CellTop
        Me.DTPicker1.Visible = True
        Me.DTPicker1.SetFocus
 
    ElseIf Me.MSHFlexGrid1.Col = 1 Then
    Me.Combo1.Text = Me.MSHFlexGrid1.Text
        Me.Combo1.Left = Me.MSHFlexGrid1.Left + Me.MSHFlexGrid1.CellLeft - 3
        Me.Combo1.Top = Me.MSHFlexGrid1.Top + Me.MSHFlexGrid1.CellTop - 3
        Me.Combo1.Visible = True
        Me.Combo1.SetFocus
       
        ElseIf Me.MSHFlexGrid1.Col = 2 Then
        Me.Text1.Text = Me.MSHFlexGrid1.Text
        Me.Text1.Left = Me.MSHFlexGrid1.Left + Me.MSHFlexGrid1.CellLeft - 3
        Me.Text1.Top = Me.MSHFlexGrid1.Top + Me.MSHFlexGrid1.CellTop - 3
        Me.Text1.Visible = True
        Me.Text1.SetFocus
    End If
End Sub

Untuk Pengaturan Textbox

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        Me.MSHFlexGrid1.Text = VBA.Replace(VBA.Format$(Text1.Text, "##,##0"), ",", ".")
        Me.Text1.Visible = False
    End If
End Sub

Private Sub Text1_LostFocus()
    Me.Text1.Visible = False
End Sub

 Untuk Pengaturan Combobox

Private Sub Combo1_Click()
    Me.MSHFlexGrid1.Text = Me.Combo1.Text
    Me.Combo1.Visible = False
End Sub

Private Sub Combo1_LostFocus()
    Me.Combo1.Visible = False
End Sub

Untuk Pengaturan DTPicker

Private Sub DTPicker1_Change()
Me.MSHFlexGrid1.Text = Format(Me.DTPicker1.Value, "dd MMMM yyyy")
Me.DTPicker1.Visible = False
End Sub

Private Sub DTPicker1_LostFocus()
Me.DTPicker1.Visible = False
End Sub

Untuk Funsi Command Button

 Private Sub Command1_Click()
'Untuk Menambah baris pada Mshflexgrid
    Me.MSHFlexGrid1.Rows = Me.MSHFlexGrid1.Rows + 1
End Sub

 Selesaii....
Oya, sebelumnya penulis minta maaf, karena lupa pembuat project ini aslinya siapa....jadi kalau pembuat atau ada yang tau pembuat project ini...silahkan kabarin penulis saja :D

Untuk sample project....menyusul