技术

二、系统设计方法
（一）界面设计
1．创建和设计MDI窗体 
    打开VB6.0，选择“新建”菜单下的“标准EXE”，然后单击“打开”按钮，新建一个标准EXE程序。见图3-9。

 图3-9 新建工程图3-10 工程属性 

    选择“工程”菜单中的“添加MDI窗体”命令，添加一个MDI窗体。然后选择“工程”菜单中的“属性”命令，弹出如图3-10所示“工程属性”对话框，在“启动对象”的下拉表中选择刚才创建的MDI窗体为启动对象，设置完毕后单击“确定”按钮，退出属性设置。利用“工具”菜单下的“菜单编辑器”命令编辑如图3-2所示的菜单，并且利用ToolBar控件为MDI窗体添加工具栏，利用StatusBar控件添加状态栏，具体设计方法可以参考VB程序设计方面的书籍，此处不再赘述。
2．创建和设计MDI子窗体 
    首先创建一个新的普通窗体，然后将它的MDIChild属性设置为True，取名为frmDocument，用来存取APT源程序、CL文件、NC程序等。在这个窗体上添加一个RichTextBox控件，用以显示文档。另外，再创建一个MDI子窗体，用来显示图形，取名为frmDisply。在这个窗体上添加一个Picture控件，用以显示图形。 
    为了使frmDocument子窗体同时存取不同的文档，在主窗体中添加如下代码：
    Private Sub LoadNewDoc() 
    Static lDocumentCount As integer 
    Dim frmD As frmDocument 
    lDocumentCount = lDocumentCount + 1 
    Set frmD = New frmDocument 
    frmD.Caption = "Document " & lDocumentCount 
    frmD.Show 
    End Sub 

    这样，在存取不同的文档时，就可以首先调用LoadNewDoc函数，生成一个子窗体，然后在这个子窗体中存取需要的文档。
3．部分菜单设计 
    文件菜单的子菜单主要包括：新建、打开、关闭、保存、另存为、全部保存、打印、退出等，用来对文档进行操作。下面详细介绍一下新建、打开、保存、打印和退出菜单的代码设计。

(1) 新建子菜单的代码设计：
Private Sub mnuFileNew_Click()
LoadNewDoc
End Sub
(2) 打开子菜单的代码设计：
Public N0 As Integer，WI As Integer, CL(200,7) As Single,
Public BS(200) As String, UnSaveChange As String
Private Sub mnuFileOpen_Click()
On Error Resume Next
LoadNewDoc
With dlgCommonDialog
.DialogTitle = "打开"
.CancelError = False
.Filter = "所有文件 (*.*)|*.*"
.ShowOpen
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
ActiveForm.rtfText.LoadFile sFile
If Right$(sFile, 3) = ".CL" Then‘打开CL文件
N0 = 0
Open sFile For Input As #1
Do While Not EOF(1)
N0 = N0 + 1
Input #1, CL(N0, 1),CL(N0, 2),CL(N0, 3),CL(N0, 4),CL(N0, 5),CL(N0, 6),CL(N0, 7)
Loop
Close #1
Else
WI = 1
Open sFile For Input As #1‘打开APT源程序
Do While Not EOF(1)
Line Input #1, BS(WI)
WI = WI + 1
Loop
Close #1
End If
ActiveForm.Caption = sFile
UnSaveChange = False
End Sub
（3）保存子菜单的代码设计：
Private Sub mnuFileSave_Click()
If Left$(ActiveForm.Caption, 8) = "Document" Then
With dlgCommonDialog
.DialogTitle = "保存"
.CancelError = False
.Filter = "所有文件 (*.*)|*.*"
.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
ActiveForm.rtfText.SaveFile sFile, rtfText
Else
sFile = ActiveForm.Caption
ActiveForm.rtfText.SaveFile sFile, rtfText
End If
UnSaveChange = False
End Sub
（4）打印子菜单的代码设计：
Private Sub mnuFilePrint_Click()
On Error Resume Next
If ActiveForm Is Nothing Then Exit Sub
With dlgCommonDialog
.DialogTitle = "Print"
.CancelError = True
.Flags = cdlPDReturnDC + cdlPDNoPageNums
If ActiveForm.rtfText.SelLength = 0 Then
.Flags = .Flags + cdlPDAllPages
Else
.Flags = .Flags + cdlPDSelection
End If
.ShowPrinter
End With
If Err <> MSComDlg.cdlCancel Then
ActiveForm.rtfText.SelPrint .hDC
End If
End Sub
（5）退出子菜单的代码设计：
Private Sub mnuFileExit_Click()
Unload Me
End Sub
    编辑菜单的子菜单包括：撤销、剪切、复制、粘贴等，具体代码可以参考有关书籍，在此不再叙述。 
    视图菜单主要是对工具栏和状态栏的操作，具体代码不再叙述。 
    窗口菜单主要包括层叠、纵向平铺、横向平铺、排列图标等，其主要功能是对子窗体进行各种操作，具体代码可以参考有关书籍，在此不再叙述。