vb.net入门——使用Windows窗体实现自定义对话框

来源：巧巧读书网 作者：douces 出处：巧巧读书 2007-11-15 进入讨论组

• 关 键 词：
• windows
• vb.net
• html
• 管理软件
• nat

下一页 1 2 

上一章，我们学了vb.net入门——Windows 窗体中的提示对话后，一定会怎么使用vb.net中的对话框了吧，但是很多情况下，vb.net预定义的对话框并不能满足我们的需要，

比如在一些前台营业的管理软件中需要弹出交款的对话框，该对话框需要向用户显示应缴纳的金额，并返回用户输入的收款金额以及应找的零钱，还有类似于员工管理软件，需要在一个对话框中输入员工的信息等，譬如这样的对话框都是需要我们使用Windows窗体来自定义的。

下面我们就通过一个实例来演示如何自定义对话框，该对话框要实现的功能是：通过对话框来实现一个简单货物档案的输入，要求输入货物名称、数量、单价。

一、创建一个能实现该功能的对话框的类

1、创建一个称为“GoodsDialog”的 Windows 应用程序

2、首先添加一个名为"GoodsDialog"的Form窗体。

3、从工具箱中拖放三个Lable控件，它们的Text属性分别为：货物名称、货物数量、货物单价。

4、从工具箱中拖放三个Textbox控件，第一个的Name为"GoodsName"，Text属性为"货物名称"，第二个的Name为"GoodsNum"，Text属性为"货物数量"，第二个的Name为"GoodsPrice"，Text属性为"货物单价"。

5、从工具箱中拖放两个Button控件，一个的Name为"OK"，Text属性为"确认"，并将它的 DialogResult 属性设置为“OK”。第二个的Name为"Cancel"，Text属性为"取消"，并将它的 DialogResult 属性设置为“Cancel”

控件在窗体上的位置排列如下图一所示：

图一：各个控件的位置图示

6、为 Button 控件的每个 Click 事件创建一个事件处理程序，以关闭窗体，代码如下：

Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

Me.Close()

End Sub

Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

Me.Close()

End Sub

7、在窗体代码编辑区的头部位置找到该类的声明位置，确认它的类声明是如下代码：

Public Class GoodsDialog

如果不是，请修改成上面的声明代码

8、创建一个名为 GoodsCoordinates 的新类，在该类中添加如下代码：

Public Name As String

Public Num As Integer

Public Price As Decimal

9、返回“GoodsDialog”的代码编辑器中，在其中添加如下代码：

Public ReadOnly Property GoodsCoordinates() As GoodsCoordinates

Get

Dim gc As New GoodsCoordinates

gc.Name = Me.GoodsName.Text

gc.Num = CInt(Me.GoodsNum.Text)

gc.Price = CDec(Me.GoodsPrice.Text)

Return gc

End Get

End Property

请保留地址 http://www.qqread.com/book/myvbnet/my0005.html 更多内容请看Windows操作系统安装、Windows权限设置、Windows操作系统安全集专题，或进入讨论组讨论。

下一页 1 2 

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：vb.net入门——Windows 窗体中的提示对话框

较新的文章：vb.net入门——Windows窗体中的菜单操作