| 发表于:2007-11-13 15:46:342楼 得分:0 |
private sub command1_click() dim filenum filenum = freefile open app.path & "\savedata.txt" for output as #filenum print #filenum, text1 close end sub private sub form_load() dim strdata as string dim filenum filenum = freefile open app.path & "\savedata.txt" for binary as #filenum line input #filenum, strdata close text1 = strdata end sub | | |
|