MSFlexGrid进行Combox,Check,ListBox等的绑定实例.docVIP

Download by Option Explicit Private Sub Form_Load() Dim x As Integer With FlxGd .ColAlignment(-1) = 1 all Left alligned For x = 1 To .Cols - 1 .TextMatrix(0, x) = Col + Str(x) Next For x = 1 To FlxGd.Rows - 1 .TextMatrix(x, 0) = Row + Str(x) Next .Row = 1 .Col = 1 .CellBackColor = HC0FFFF lt. yellow End With Combo1_Load List1_Load Check1_Load End Sub Private Sub cmdAddRow_Click() AddGridRow End Sub Private Sub cmdDelRow_Click() DeleteGridRow End Sub Private Sub FlxGd_EnterCell() FlxGd.CellBackColor = HC0FFFF lt. yellow FlxGd.Tag = clear temp storage End Sub Private Sub FlxGd_LeaveCell() If FlxGd.Col = 2 Then FlxGd = Format$(FlxGd, #) alpha-number format Else If FlxGd.Col = 3 Then this is for Checkboxes If Check1.Value = 0 Then FlxGd.Text = No End If End If FlxGd = Format$(FlxGd, 0.00) End If FlxGd.CellBackColor = End Sub Private Sub FlxGd_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 46 Del, clear cell FlxGd.Tag = FlxGd assign to temp storage FlxGd = End Select End Sub Private Sub FlxGd_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 13 ENTER key Advance_Cell advance new cell Case 8 Backspace If Len(FlxGd) Then FlxGd = Left$(FlxGd, Len(FlxGd) - 1) End If Case 27 ESC If FlxGd.Tag Then only if not NULL FlxGd = FlxGd.Tag restore original text End If Case Else FlxGd = FlxGd + Chr(KeyAscii) End Select End Sub Private Sub FlxGd_Click() If Combo1.Visible = True Then Combo1.Visible = False FlxGd.CellBackColor = white