![4c1574eb47e3b055c28f762124b63c3b.png](https://i-blog.csdnimg.cn/blog_migrate/9cbae8fafcd3c0a57b0b638387ab3550.jpeg)
学习资源:《Excel VBA从入门到进阶》第62集 by兰色幻想
窗体的内容已经学习完了,这节试着用前几节窗体的内容来把入库单弄成窗体吧。
![790ca322c772787cbab0884b9c068f18.png](https://i-blog.csdnimg.cn/blog_migrate/11b2e91acd61a808ab3a28ded1279fbd.jpeg)
一、列举想实现的功能:
- 出库日期选择——添加日期控件:DTPicker
- 出库单号码——点击微调项可以递增或递减文本框的号码,和当号码不输入时,不能离开该文本框。
- 在商品代码里按回车或点击右侧的按钮可以打开价格表窗口。
- 价格表需要在窗体加载时即完成treeview控件中的单价信息导入,同时也要完成listview控件的标题行生成。
- 用鼠标单击或者按回车键后,可以把商品名称、型号以及单价输入到相应的文本框里,然后关闭该窗口回到输入主界面,并且焦点转向销售数量后面文本框里。
- 当输入数量时,自动计算销售金额。输入完成按回车,可以自动把本条信息导入到下面的listview中,并且焦点转到商品代码框中。
- 双击listview可以清空所有记录;右键单击可以提示是否删除选中的记录,如果选是则删除选中的记录。
- 点击输入,可以把listview中的数据添加到出库表中。出库单号码自动+1,焦点转到商品代码框中。
二、代码详解:
- 出库日期选择——添加日期控件:DTPicker
不多说,回顾点击以下链接,直接添加日期控件:DTPicker即可。
夏西蓝:VBA学习笔记61: 日期控件与进度条
![fb1917591049488b5cb7812451f01dea.gif](https://i-blog.csdnimg.cn/blog_migrate/d576f7a45542856e207c67c5dd3b4215.gif)
2. 出库单号码——点击微调项可以递增或递减文本框的号码,和当号码为输入时不能离开该文本框。
微调按钮的上下幅度通过Smallchange属性设置,然后数值显示用的是SpinDown事件和SpinUp事件。(复习链接↓)
夏西蓝:VBA学习笔记58:选项按钮、复选框、框架、滚动条、微调、图像与多页
不允许离开,则是Exit事件,判断语句,如果号码的文本框值为空,就禁止离开。
① SpinDown事件:点击向下的按钮出库单号码在原来的基础上+1。
Private Sub SpinButton1_SpinDown()
TextBox2.Text = Format(Val(TextBox2) + 1, "000") '点击向下的按钮出库单号码在原来的基础上加1
End Sub
② SpinUp事件:点击向上的按钮出库单号码在原来的基础上-1。
Private Sub SpinButton1_SpinUp()
TextBox2.Text = Format(Val(TextBox2) - 1, "000") '点击向上的按钮出库单号码在原来的基础上减1
End Sub
③ Exit事件:出库单号码强制输入,否则不允许离开。
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) '出库单号码强制输入,否则不允许离开
If TextBox2.Text = "" Th