[VB] Microsoft FlexGrid Control 6.0 Example

 

1. Option Explicit
3. Private Sub cmdAdd_Click()
4. Dim Rc As Integer       ' RowCount
5. Dim Kor As Integer, Eng As Integer, Math As Integer, Tot As Integer
6. Dim ave As Single
8.     If Trim(txtName) = "" Then
9.         MsgBox "이름을 입력해줄래??"
10.         Exit Sub
11.     End If
12.    
13.     Rc = FGrid1.Rows
14.     FGrid1.Rows = Rc + 1
15.    
16.     ' 입력값 계산
17.     Kor = Val(txtKor)
18.     Eng = Val(txtEng)
19.     Math = Val(txtMath)
20.    
21.     Tot = Kor + Eng + Math
22.    
23.     ave = Round(Tot / 3, 2) ' 반올림 소수 2째 자리
24.    
25.    
26.     ' Flex Grid 에 값 넣기..
27.     FGrid1.TextMatrix(Rc, 0) = txtName
28.     FGrid1.TextMatrix(Rc, 1) = txtKor
29.     FGrid1.TextMatrix(Rc, 2) = txtEng
30.     FGrid1.TextMatrix(Rc, 3) = txtMath
31.     FGrid1.TextMatrix(Rc, 4) = Tot
32.     FGrid1.TextMatrix(Rc, 5) = ave
33.    
34.     ' 입력값 공백으로...
35.     txtName = ""
36.     txtKor = ""
37.     txtEng = ""
38.     txtMath = ""
39.    
40.     txtName.SetFocus
41.    
42. End Sub
44. Private Sub Form_Load()
45.     FGrid1.Rows = 1
46. End Sub