诗人一步一步教你用窗体！

从古至今，能吟得一首好诗的人都是诗人，诗人一般都博学多才，乐于助人，到了现代，于是就变成了湿人！

而随心正好有幸结识这么一位湿人！

今天我们的湿人来给大家讲讲窗体的使用教程！

==我是分隔线，www.vbafans.com==

一、先看看效果图

==我是分隔线，www.vbafans.com==

二、制作窗体：

进入VBE环境----菜单栏---插入---用户窗体

此时，窗体是这个样子的

==我是分隔线，www.vbafans.com==

2.1添加姓名、性别、学历标签。
在工具箱中鼠标单击标签  ，放到窗体中

Caption属性设置为：姓名

==我是分隔线，www.vbafans.com==

性别、学历标签同样操作和设置Caption属性。
同时选中三个标签，鼠标右键设置：统一尺寸--两者相同；对齐---左对齐。

这只是美化的小操作，也是通过选中单个标签用鼠标随意拖动，随意选择自己的Style。

==我是分隔线，www.vbafans.com==

2.2添加姓名文字框，工具箱鼠标点击  ，名称属性设置为txtname.

(控件最好设置为有具体含义的命名，不建议使用默认的名称。）

==我是分隔线，www.vbafans.com==

2.3添加性别选项按钮，工具箱鼠标选择  ，添加选项“男”，相关属性设置如下：
名称为Optman，Caption为“男',GroupName为grpsex，Value为True(默认选择为'男')
同样操作设置选项“女'，名称为Optwoman，Caption为“女',GroupName为grpsex。
GroupName：属性设置为相同，在同一组选项按钮中只能有一个处于选择状态。

即选择了男，就不能同时选择女......

==我是分隔线，www.vbafans.com==

2.4添加学历符合框  ,名称：cbxedu，Style属性设置：2-fmStyleDropDownList

设置符合框空间只能在列表中选择，不能够输入内容。

==我是分隔线，www.vbafans.com==

2.5最后添加保存和取消按钮  
保存按钮：名称：cmsave，Caption：保存

取消按钮：名称：cmcancel，Caption：取消

==我是分隔线，www.vbafans.com==

最后窗体美化的工作大家随意了。个人审美渣，不做相关美化设置。

三、输入代码：
3.1初始化学历数据。我们上面设置了学历数据不能输入，只能下拉选择。
因此，当打开窗体的时候，就初始化学历信息，下拉选择。
Private Sub UserForm_Initialize()
    cbxedu.AddItem '博士' '学历复合框增加条目.....
    cbxedu.AddItem '硕士'
    cbxedu.AddItem '本科'
    cbxedu.AddItem '大专'
    cbxedu.AddItem '中专'
    cbxedu.AddItem '高中'
    cbxedu.AddItem '其他'
End Sub

3.2 取消按钮
取消---就是隐藏窗体
Private Sub cmcancel_Click()
    UserFrom1.Hide
End Sub


3.3保存按钮
Private Sub cmsave_Click()
    Dim strsex As String
    Dim lastrow As Long
    If txtname.Value = '' Then '一定要输入姓名
        MsgBox '请输入姓名!', vbOKOnly, '提示'
        Exit Sub
    End If
    strsex = '男' '性别默认为男，如果为女，就女
    If Optwoman.Value = '女' Then
        strsex = '女'
    End If
    If cbxedu.Value = '' Then '一定要输入学历
        MsgBox '请选择学历', vbOKOnly, '提示'
        Exit Sub
    End If
    Worksheets('登记表').Activate '激活工作表'登记表'
    lastrow = Range('a2').CurrentRegion.Rows.Count 1 '登记表最后非空行的行号 1，初始为3（动态）
    Cells(lastrow, 1) = txtname.Value '第一列录入姓名
    Cells(lastrow, 2) = strsex '第二列录入性别
    Cells(lastrow, 3) = cbxedu.Value '第三列录入学历
End Sub

3.4 插入表单控件---按钮（第一个）
调出窗体
Sub 按钮1_Click()
UserFrom1.Show
End Sub


至此，代码已经搞掂了，简单的输入窗体也制作完毕。

此文如有错误，请指正修改。