本來(lái)通過(guò)ERP中基礎分類(lèi)檔案的每級編碼規則控制來(lái)展現MSFlexGrid控件的使用技巧,大家只要向控件添加一個(gè)MSFlexGrid及Combo控件就好了,源碼如下:
Option Explicit
Private Sub Combo1_Click()
MSFlexGrid1.text = Combo1.text
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then
Combo1.Visible = False
MSFlexGrid1.SetFocus
Exit Sub
End If
If KeyAscii = vbKeyReturn Then
MSFlexGrid1.text = Combo1.text
Combo1.Visible = False
MSFlexGrid1.SetFocus
End If
End Sub
Private Sub Combo1_LostFocus()
Combo1.Visible = False
MSFlexGrid1.SetFocus
Exit Sub
End Sub
Private Sub Form_Load()
Dim i As Integer
Dim width, text, Archives
width = Array("400", "2100", "800", "800", "800", "800", "800", "800", "800", "800", "800")
text = Array("序號", "檔案名稱(chēng)", "第1級", "第2級", "第3級", "第4級", "第5級", "第6級", "第7級", "第8級", "第9級")
Archives = Array("null", "科目", "項目分類(lèi)", "固定資產(chǎn)分類(lèi)", "部門(mén)分類(lèi)", "員工分類(lèi)", "供應商分類(lèi)", "客戶(hù)分類(lèi)", "銷(xiāo)售商分類(lèi)", "地區分類(lèi)", "出入庫類(lèi)別", "存貨分類(lèi)", "預留12", "預留13", "預留14", "預留15", "預留16", "預留17", "預留18", "預留19", "預留20")
With MSFlexGrid1
.Rows = 21
.Cols = 11
.FixedCols = 2
.FixedRows = 1
End With
For i = 1 To 9
Combo1.AddItem i
Next i
For i = 0 To 10
MSFlexGrid1.ColWidth(i) = width(i)
MSFlexGrid1.TextMatrix(0, i) = text(i)
Next i
For i = 1 To 20
With MSFlexGrid1
.TextMatrix(i, 0) = i
.TextMatrix(i, 1) = Archives(i)
.RowHeight(i) = 300
End With
Next i
End Sub
Private Sub MSFlexGrid1_Click()
Dim c As Integer, r As Integer
With MSFlexGrid1
c = .col
r = .row
If c > 1 And r > 0 Then
Combo1.Left = .Left + .ColPos(c) + 50
Combo1.Top = .Top + .RowPos(r) + 50
Combo1.width = .ColWidth(c)
Combo1.text = .text
Combo1.Visible = True
Combo1.SetFocus
End If
End With
End Sub
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Call MSFlexGrid1_Click
End If
End Sub
