回复 12楼好难注册的帖子
您好，
这个帖子处理的是加载保存出去的文件的问题：
1.以下代码用于逐一加载 1.txw 至 27.txw 文件：
- Private Sub Command1_Click()
- For i = 1 To 27 Step 1
- FileName = App.Path + "\kj\" + CStr(i) + ".txw"
-
- TXTextControl1.Load FileName, 2, 3, True
- TXTextControl1.SelStart = -1
-
- Next
- End Sub
到这里一切运行正常，效果如图：
2.以下代码用于保存出步骤一加载进来的文件：
- Private Sub Command2_Click()
-
- Me.TXTextControl1.Save App.Path + "\kj\" + "combine.tx", 0, 3
- Me.TXTextControl1.Save App.Path + "\kj\" + "combine.txw", 0, 3
-
- End Sub
可以正常保存。
3.加载步骤2 中保存的文件，这里会报错：
|
陕公网安备：61019002000258