수다닷컴

Option Explicit
Private introw As Integer
Private Sub cmdexit_Click()
End
End Sub
Private Sub cmdinput_Click()
Dim inttotal As Integer
If flexstudent.Rows = introw Then
flexstudent.Rows = flexstudent.Rows + 1
End If
flexstudent.TextMatrix(introw, 0) = txtname.Text
flexstudent.TextMatrix(introw, 1) = txtkor.Text
flexstudent.TextMatrix(introw, 2) = txteng.Text
flexstudent.TextMatrix(introw, 3) = txtmat.Text
inttotal = CInt(txtkor.Text) + CInt(txteng.Text) + CInt(txtmat.Text)
flexstudent.TextMatrix(introw, 4) = inttotal
txtname.Text =
txtkor.Text =
txteng.Text =
txtmat.Text =
txtname.SetFocus
introw = introw + 1
End Sub
Private Sub cmdnext_Click()
Form1.Show
End Sub
Private Sub Form_Load()
flexstudent.Cols = 5
flexstudent.Rows = 2
flexstudent.TextMatrix(0, 0) = 이름
flexstudent.TextMatrix(0, 1) = 국어
flexstudent.TextMatrix(0, 2) = 영어
flexstudent.TextMatrix(0, 3) = 수학
flexstudent.TextMatrix(0, 4) = 총점
introw = 1
End Sub
Private Sub MSHFlexGrid1_Click()
End Sub

이렇게 소스를 짰습니다...이렇게 짜면 행으로 늘어납니다.
커맨드 제거 버튼을 만들어 누르면 행으로 삭제하는 방법을 알고 싶습니다...

신청하기