[VB] Microsoft FlexGrid Control 6.0 Example

Computer/IT/VisualBasic 2006/09/12 10:39 |
 
  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
 

'Computer/IT > VisualBasic' 카테고리의 다른 글

[VB] Access OLEDB & Access Passworld, 암호 설정되어있을시 연결문자열  (0) 2006/12/09
[VB] MSN Style Notification Messages 구현소스  (1) 2006/11/08
[VB] Visual Basic 6 - IDE에서 MouseWheel 사용  (0) 2006/09/19
[VB] 키보드의 대문자만 입력  (0) 2006/09/12
[VB] Microsoft FlexGrid Control 6.0 Example  (0) 2006/09/12
[VB] 종료시 확인하기, Terminate 시 확인  (0) 2006/09/12
Posted by 싸구려코드
TAG ,
트랙백0개 : 댓글0개

Trackback Address :: http://sarangsai.com/trackback/79 관련글 쓰기

댓글을 달아 주세요