配料的调制是一些工业生产当中用到的必要过程，因此带来一些相关的信息管理问题，比如每天生产的产品，使用怎样的配料单如何制作，如何下发配料情况等等。
本节粗略介绍一下，制作一个窗体配料单的过程和方法。
如下图所示，可以根据相应的表格，将相关配料信息，添加到工作表当中。
此表单中应用了6种控件类型，熟悉掌握的情况下，要对每一个控件的属性和事件有一个清晰的认识。
6类型控件分别为：文本框(TextBox)、组合框(ComboBox)、按钮(CommandButton)、标签(Label)、框架(Frame)、列表框(ListBox)
实际上是6种常见控件，分别实现不同的功能。
通过这些控件的应用，可以把配料表中的一些字段以窗体形式表现出来，最终要把这些控件里的值进行一个对等保存，保存到工作表当中去。
配料管理当中，重点还是对各类配料数据的一个选择和提取，严格来说，此项工作要有相应的技术，不然，配比结果会十分不好，差之毫厘，失之千里。
本示例只是一个配料管理当中配料表制作环节，根据不同功能，可以自如导入相应的配料模版，很多产品在生产过程当中，会稍微修改一下基础配料的多少即可投入生产。
为了提高配制的效率，所以，引入了基础配料模版样式，在配制过程当中，只需要导入相关基础配料模版，稍加修改即可生成配料单。
表单制作没有任何技术性，都是纯手工添加的控件，唯一可以拿出来的代码内容，就是对不同控件的一个赋值过程。
添加列表框函数
Private Function AddListItems(xListObj As Object, l1 As String, l2 As Single)
'添加列表
With xListObj
.AddItem
.List(.ListCount - 1, 0) = .ListCount
.List(.ListCount - 1, 1) = l1
.List(.ListCount - 1, 2) = l2
End With
End Function
控件默认值设置过程
Private Sub SetTextValue()
Dim xobj As Object
For Each xobj In Me.Controls
Select Case VBA.TypeName(xobj)
Case "TextBox"
xobj.Value = 0
Case "ComboBox"
xobj.Value = ""
Case "ListBox"
xobj.Clear '清除列表值
End Select
Next xobj
With Me
With .TextBox2
.Value = VBA.Format(VBA.Date, "yyyy-mm-dd")
End With
With .TextBox3
.Value = VBA.Format(VBA.Date, "yyyy/mm/dd")
End With
With .TextBox14
.Value = "PL-"
End With
GetListxSum Me.ComboBox4
GetListxSum Me.ComboBox6
GetListxSum Me.ComboBox8
End With
Set xobj = Nothing
End Sub
更多内容在下一节进行详细介绍，欢迎关注、收藏。
---END---
