二、系統設計方法
（一）界面設計
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
編輯菜單的子菜單包括：撤銷、剪切、複製、粘貼等，具體代碼可以參考有關書籍，在此不再敘述。
視圖菜單主要是對工具欄和狀態欄的操作，具體代碼不再敘述。
窗口菜單主要包括層疊、縱向平鋪、橫向平鋪、排列圖標等，其主要功能是對子窗體進行各種操作，具體代碼可以參考有關書籍，在此不再敘述。
