文件操作.txt

用VB6.0进行solidworks的二次开发

新建
Const conBtns As Integer = vbYesNoCancel + vbExclamation _
                            + vbDefaultButton3 + vbApplicationModal
    Const conMsg As String = "Do you want to save the current document?"
    Dim intUserResponse As Integer
    If blnChange = True Then        'text box was changed since last save
        intUserResponse = MsgBox(conMsg, conBtns, "Editor")
        Select Case intUserResponse
            Case vbYes              'user wants to save current file
                Call mnuFileSave_Click
                If blnCancelSave = True Then
                    Exit Sub
                End If
            Case vbNo               'user does not want to save current file
            
            Case vbCancel           'user wants to cancel New command
                Exit Sub
        End Select
    End If
    txtEdit.Text = ""               'clear text box
    blnChange = False               'reset variable
    frmEdit.Caption = "Document - Text Editor"
    dlgEdit.FileName = ""


打开
Const conBtns As Integer = vbYesNoCancel + vbExclamation _
                            + vbDefaultButton3 + vbApplicationModal
    Const conMsg As String = "Do you want to save the current document?"
    Dim intUserResponse As Integer
    On Error GoTo OpenErrHandler
    dlgEdit.CancelError = True
    If blnChange = True Then                'document was changed since last save
        intUserResponse = MsgBox(conMsg, conBtns, "Editor")
        Select Case intUserResponse
            Case vbYes                      'user wants to save current document
                Call mnuFileSave_Click
                If blnCancelSave = True Then    'user canceled save
                    Exit Sub
                End If
            Case vbNo                       'user doesn't want to save current document
                'process instructions below End If
            Case vbCancel                   'user wants to cancel Open command
                Exit Sub
        End Select
    End If
    dlgEdit.Filter = "Text Files(*.txt)|*.txt|All Files(*.*)|*.*"
    dlgEdit.FileName = ""
    dlgEdit.ShowOpen
    Open dlgEdit.FileName For Input As #1
    txtEdit.Text = Input(LOF(1), 1)
    Close #1
    blnChange = False
    frmEdit.Caption = dlgEdit.FileName & " - Text Editor"
    Exit Sub
    
OpenErrHandler:


保存 
If frmEdit.Caption = "Document - Text Editor" Then
        Call mnuFileSaveAs_Click    'new document
    Else                            'existing document
        Open dlgEdit.FileName For Output As #1
        Print #1, txtEdit.Text
        Close #1
        blnChange = False
    End If

另存为
On Error GoTo SaveErrHandler
    dlgEdit.CancelError = True
    dlgEdit.Flags = cdlOFNOverwritePrompt + cdlOFNPathMustExist
    dlgEdit.Filter = "Text Files(*.txt)|*.txt"
    dlgEdit.ShowSave
    Open dlgEdit.FileName For Output As #1
    Print #1, txtEdit.Text
    Close #1
    frmEdit.Caption = dlgEdit.FileName & " - Text Editor"
    blnChange = False
    blnCancelSave = False
    Exit Sub
    
SaveErrHandler:
    blnCancelSave = True

通用声明
Dim strSearchFor As String
Dim blnChange As Boolean, blnCancelSave As Boolean

DrawContrl控件充斥整个窗口
txtEdit.Height = frmEdit.ScaleHeight
    txtEdit.Width = frmEdit.ScaleWidth

窗体加载
blnChange = False
    blnCancelSave = False

窗体卸载
Const conBtns As Integer = vbYesNoCancel + vbExclamation _
                            + vbDefaultButton3 + vbApplicationModal
    Const conMsg As String = "Do you want to save the current document?"
    Dim intUserResponse As Integer
    If blnChange = True Then                'document was changed since last save
        intUserResponse = MsgBox(conMsg, conBtns, "Editor")
        Select Case intUserResponse
            Case vbYes                      'user wants to save current document
                Call mnuFileSave_Click
                If blnCancelSave = True Then    'user canceled save
                    Cancel = 1              'return to document-don't unload form
                End If
            Case vbNo                       'user does not want to save current document
                'unload form and exit
            Case vbCancel
                Cancel = 1                  'return to document-don't unload form
        End Select
    End If


我的软件界面中使用DrawingControl控件引入了visio文件，当我操作完visio文件后需要保存，但我不知在我的“文件”菜单下的“保存”和“另存为”菜单项里如何填写我的代码。
我知道用CommonDialog控件来做，但是理论上在“保存”和“另存为”的代码里需要将DrawingControl控件里显示的visio文件的内容写入要保存的文档。比如若界面上有TextBox控件，现在需要保存控件中新编辑的txt文档，则用以下几句代码实现：
Open dlgEdit.FileName For Output As #1
        Print #1, txtEdit.Text
        Close #1
以上几句中dlgEdit是CommonDialog控件，txtEdit是TextBox控件，可以看到上面第二句就是将TextBox控件中的内容保存到txt文件里的意思。但是TextBox控件有Text属性，而DrawingControl控件似乎没有类似属性，所以我不知道怎么将上面例句中的代码修改后移植到我的软件中。这就是我的问题所在。请指教！
附件里有相关工程文件，可用VB6.0打开。

Dim vsoApplication As Visio.Application
            vsoApplication = AxDrawingControl1.Window.Application()

            vsoApplication.ActiveDocument.SaveAs(pathOfProject & "\[2]系统分析\系统分析图.vsd")




1. 小木虫（http://emuch.net/）
推荐理由：里边有不少学术科研用得到的资料，且全部为免费(需虚拟金币)的。

2. 国家自然科学基金（http://www.nsfc.gov.cn/Portal0/default40.htm）
推荐理由：堪称中国科学研究的风向标。

3. 台湾博硕士论文网（http://etds.ncl.edu.tw/theabs/index.jsp）
推荐理由：有近10万的博士、硕士毕业论文全文可以下载；当然，下载的前提是你得搞到一个台湾身份证号来注册一个帐号。

4. 中国学术会议在线（http://211.68.23.76/a.asp）
推荐理由：大量学术会议征文信息，有的被三大检索收录。

5. 华军软件园（http://www.newhua.com/index.htm）
推荐理由：下载的软件基本能用。

6. 研学论坛(http://bbs.matwav.com/)

7. 网上读书园地（http://www.readfree.net/bbs/index.php ）


8. 零点花园（http://www.soudoc.com/）



9. 博研联盟（http://www.bylm.net/forum/index.php）



10. 阿果论坛（www.agpr.net）



11. 中国经济学教育科研网（http://www.cenet.org.cn/cn/）



12. 人大经济论坛（http://www.pinggu.org/bbs）
推荐理由：经济学资源下载、学习交流的网站。

13. 丁香园（http://www.dxy.cn/portal）

推荐理由：医学、药学、生命科学专业论坛。

14. 中国生命科学论坛（http://bbs.bioon.com/）推荐理由：医学、药学、生命科学专业论坛。