创建输入数据窗体

第一节创建输入数据窗体
一、问题陈述
瑞丰农业科技有限公司仓库管理部需要一个接收入库商品登记的应用程序，详细信息包括：产品名称、数量、价格、进货日期、生产厂名及产品类型。

产品类型用组合框中显示，仓库管理员在输入入库商品信息后，按保存按钮时，程序应能够检查所有信息都已填写，然后显示出相关信息。

二、任务单
三、任务实施过程
1、确定程序中用于存储数据的变量
下表列出用于接收用户操作细节的信息所需变量
2、确定用于接收用户输入信息的控件
3、
4、代码设计
组合框列表内容：
Private Sub Form2_Load
boBox1.Items.Add("杀菌剂")
boBox1.Items.Add("杀虫剂") End Sub
验证文本框输入内容不为空
Private Sub TextBox6_Leave
If Me.TextBox6.TextLength <= 0 Then MsgBox("文本框不能为空！")
Me.TextBox6.Focus()
End If
End Sub
其它步骤分组讨论完成。

四、独立实践：
要求：验证从文本框输入内容到第一列表框时，文本框不能为空；从第一个列表框选择内容添加到第二个列表框中时，如果第二列表框中已经有第一列表框选择项时不能添加内容的验证方法。

如图所示：
程序设计：
以下是参考程序：
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If TextBox1.Text <> ""Then
ListBox1.Items.Add(Trim(TextBox1.Text))
MsgBox("添加产品成功，见列表")
Else
MsgBox("请输入产品名称")
End If
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
ListBox1.Items.Add("电脑")
ListBox1.Items.Add("电视")
ListBox1.Items.Add("冰箱")
ListBox1.Items.Add("洗衣机")
End Sub
Dim ff As Integer = -1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' ListBox1.Items.Add(ListBox2.SelectedItem)
If ListBox1.SelectedIndex >= 0 Then
Dim u As Integer = 0
For u = 0 To ListBox2.Items.Count - 1
ListBox2.SetSelected(u, True)
If ListBox1.SelectedItem = ListBox2.SelectedItem Then ff = -1
Exit For
Else
ff = 0
End If
MsgBox(u & ff)
Next
If ff = 0 Or Me.ListBox1.Items.Count = 0 Then
ListBox2.Items.Add(ListBox1.SelectedItem)
ff = -1
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Remove(ListBox1.SelectedItem)
End Sub
End Class。