StartUpPosition = 3 'Windows Default
Begin Visual Basic.CommandButton Command2
Caption = "取 消"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 9
Top = 2040
Width = 975
End
Begin Visual Basic.CommandButton Command1
Caption = "确 定"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3600
TabIndex = 8
Top = 1200
Width = 975
End
Begin Visual Basic.OptionButton Option1
Caption = "1 - Transparent"
Height = 195
Index = 0
Left = 720
TabIndex = 7
Top = 720
Width = 2175
End
Begin Visual Basic.OptionButton Option1
Caption = "7 - Diagonal Cross"
Height = 195
Index = 6
Left = 720
TabIndex = 6
Top = 2160
Width = 2175
End
Begin Visual Basic.OptionButton Option1
Caption = "6 - Cross"
Height = 195
Index = 5
Left = 720
TabIndex = 5
Top = 1920
Width = 2175
End
Begin Visual Basic.OptionButton Option1
Caption = "5 - Downward Diagonal"
Height = 195
Index = 4
Left = 720
TabIndex = 4
Top = 1680
Width = 2175
End
Begin Visual Basic.OptionButton Option1
Caption = "4 - Upward Diagonal"
Height = 195
Index = 3
Left = 720
TabIndex = 3
Top = 1440
Width = 2175
End
Begin Visual Basic.OptionButton Option1
Caption = "3 - Vertical Line"
Height = 195
Index = 2
Left = 720
TabIndex = 2
Top = 1200
Width = 2175
End
Begin Visual Basic.OptionButton Option1
Caption = "2 - Horizontal Line"
Height = 195
Index = 1
Left = 720
TabIndex = 1
Top = 960
Width = 2175
End
Begin Visual Basic.Frame Frame1
Caption = "剖面线形式"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2175
Left = 360
TabIndex = 0
Top = 360
Width = 3015
End
End
Attribute Visual Basic_Name = "Form2"
Attribute Visual Basic_GlobalNameSpace = False
Attribute Visual Basic_Creatable = False
Attribute Visual Basic_PredeclaredId = True
Attribute Visual Basic_Exposed = False
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 6 Step 1
If Option1(i).Value Then
Form1.Shape1.FillStyle = i
End If
'改变剖面线的形式
Next
Form2.Hide
'隐藏窗体Form2
Form1.Show
'显示窗体Form1
End Sub
Private Sub Command2_Click()
Form2.Hide
'隐藏窗体Form2
Form1.Show
'显示窗体Form1
End Sub
窗体Form2的代码如下：
Begin Visual Basic.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin Visual Basic.CommandButton Command2
Caption = "结束运行"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2640
TabIndex = 1
Top = 2400
Width = 1215
End
Begin Visual Basic.CommandButton Command1
Caption = "选择剖面线"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 360
TabIndex = 0
Top = 2400
Width = 1215
End
Begin Visual Basic.Shape Shape1
FillStyle = 6 'Cross
Height = 1695
Left = 480
Shape = 4 'Rounded Rectangle
Top = 360
Width = 3495
End
End
Attribute Visual Basic_Name = "Form1"
Attribute Visual Basic_GlobalNameSpace = False
Attribute Visual Basic_Creatable = False
Attribute Visual Basic_PredeclaredId = True
Attribute Visual Basic_Exposed = False
Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub Command2_Click()
End
'结束程序的运行
End Sub
Private Sub Form_Load()
Form2.Hide
'隐藏窗体Form2
End Sub
3.5 小 结
在应用程序的设计和运行过程中，很重要的一个方面就是程序如何能够更好的与程序员和用户进行交流，所以笔者特意把程序与用户和程序员的交流单独的列出一章来。
程序与用户或者程序员的交流的手段是很多的，在本章中介绍了一种常用的方法，那就式用户自己设计的设计输入输出对话框以及自定义对话框和公共对话框。对话框的设计技术并不是特别难，关键是如何合理的实现对话框在整个程序中的功能，并且对话框的风格和工程项目的特色一致。