[Programmer-VB] tanya msflexgrid

Mon, 20 Mar 2006 21:12:31 -0800

Coba deh pake ini buat add/edit FlexGrid
 
Private Sub flx_KeyPress(KeyAscii As Integer)
 With flx
  Select Case KeyAscii
   Case vbKeyReturn
    If .Col + 1 <= .Cols - 1 Then
     .Col = .Cols - 1
    ElseIf .Row + 1 <= .Rows - 1 Then
     .Row = .Row + 1
     .Col = 0
    Else
     .Row = 1
     .Col = 0
    End If
   Case vbKeyBack
    If Trim(.Text) <> "" Then
     .Text = Mid(.Text, 1, Len(.Text) - 1)
    End If
     Case Is < 32
     Case Else
    If .Col = 0 Or .Row = 0 Then
     Exit Sub
    Else
     .Text = .Text & Chr(KeyAscii)
     If Val(.Text) > 100 Then
      result = MsgBox("Maaf Nilai Maksimum adl. 100", vbCritical, ".:: Informasi")
      .Text = Str(0)
      .SetFocus
     End If
    End If
   End Select
 End With
End Sub
 
Salam
 
Menurut pengalaman saya, untuk mengisi /mengedit cell pd flexgrid tidak bisa secara langsung. Biasanya saya gunakan bantuan textbox yg divisible yg dikondisikan sedemikian rupa SHG pd saat event EnterCell textboxt tsb dibuat visible. Besar,posisi dan juga isi dr flexgrid dimasukan ke textbox.
kurang lebih source seperti ini:
    Text1.Width = .CellWidth
    Text1.Height = .CellHeight
    Text1.Left = .CellLeft + .Left
    Text1.Top = .CellTop + .Top
    Text1.Visible = True
    Text1.Text = .TextMatrix(.Row, .Col)
    Text1.SetFocus
    Text1.Selstart = 0
    Text1.SelLength = Len(Text1)
 
 
----- Original Message -----
From: nur Firman
To: [email protected]
Sent: Monday, March 20, 2006 4:55 PM
Subject: [Programmer-VB] tanya msflexgrid

Ada yang tau syntacnya kalo kita klik salah satu cell di msflegrid
lagsung ke blok isi cell nya

model2 excel gitu kalo kita select langsung blok jadi kalo kita mau isi
value lain langsung kehapus

ada yang tau ?

Apakah Anda Yahoo!?
Kunjungi halaman depan Yahoo! Indonesia yang baru!

Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke