|
从古至今，能吟得一首好诗的人都是诗人，诗人一般都博学多才，乐于助人，到了现代，于是就变成了湿人！ 而随心正好有幸结识这么一位湿人！ 今天我们的湿人来给大家讲讲窗体的使用教程！ ==我是分隔线，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
至此，代码已经搞掂了，简单的输入窗体也制作完毕。
此文如有错误，请指正修改。
|
