일단 제가 FlexGrid 를 이용해서 자료를 하나 만들었습니다.

이름 :  텍스트박스1

학번 :  텍스트박스2

이런식으로 텍스트박스에 적으면 grid에 올라가는 식으로 만들었습니다.

근데 여기서 다 입력하고 FlexGrid의 내용을 텍스트 파일(혹은 다른파일)로 저장시키고,

그 텍스트파일을 수정에서 다시 열기를 하면 수정된상태로 FlexGrid를 보게 하기위한 프로그램을 만들고 싶습니다.

아직 지식이 없다보니.. 꾀 힘드네요.......

도와주실분을 찾습니다. 일단 프로젝트 파일 및 코드... 올려드리겠습니다.


Private Sub cmdAdd_Click()
Dim i, j, a As Integer

For a = 1 To MSFlexGrid1.Rows - 1

If txtStudent.Text = MSFlexGrid1.TextMatrix(a, 1) Then

MSFlexGrid1.TextMatrix(a, 0) = txtName.Text
MSFlexGrid1.TextMatrix(a, 1) = txtStudent.Text
MSFlexGrid1.TextMatrix(a, 2) = txtSchool.Text
MSFlexGrid1.TextMatrix(a, 3) = txtPhone.Text
MSFlexGrid1.TextMatrix(a, 4) = txtCredit.Text

txtName.Text = ""
txtStudent.Text = ""
txtSchool.Text = ""
txtPhone.Text = ""
txtCredit.Text = ""

Exit Sub
End If
Next a



MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
i = MSFlexGrid1.Rows - 1

MSFlexGrid1.TextMatrix(i, 0) = txtName.Text
MSFlexGrid1.TextMatrix(i, 1) = txtStudent.Text
MSFlexGrid1.TextMatrix(i, 2) = txtSchool.Text
MSFlexGrid1.TextMatrix(i, 3) = txtPhone.Text
MSFlexGrid1.TextMatrix(i, 4) = txtCredit.Text

txtName.Text = ""
txtStudent.Text = ""
txtSchool.Text = ""
txtPhone.Text = ""
txtCredit.Text = ""

End Sub

Private Sub Form_Load()
MSFlexGrid1.FormatString = "  Name  | Student ID | School Year | Phone Number | Credit points "
MSFlexGrid1.ColWidth(0) = 1000
MSFlexGrid1.ColWidth(1) = 1000
MSFlexGrid1.ColWidth(2) = 1500
MSFlexGrid1.ColWidth(3) = 1700
MSFlexGrid1.ColWidth(4) = 1700
End Sub