購物系統(Form 1)

Public 衣服號碼 As Integer '第四題會用到

Private Sub Command1_Click(Index As Integer)
    List1.AddItem Label1(Index) & vbTab & Combo1(Index) & "*" & Combo2(Index) & vbTab & Label4(Index) * Combo2(Index)
    List2.AddItem Combo2(Index) * Label4(Index)
    Label5 = Label5 + Combo2(Index) * Label4(Index)
End Sub

'1.初始化與訂購2.取消訂購3.限時打折4.大圖
'第一題
Private Sub Form_Load()
    For i = 0 To 2
        Combo1(i).Clear
        Combo1(i).AddItem "L"
        Combo1(i).AddItem "M"
        Combo1(i).AddItem "S"
        Combo2(i).Clear
        Combo1(i).ListIndex = 0
        For j = 0 To 20
            Combo2(i).AddItem j
        Next
        Combo2(i).ListIndex = 0
    Next
End Sub


'第二題
Private Sub List1_DblClick() 'double click
    a = List1.ListIndex
    Label5 = Label5 - List2.List(a)
    List1.RemoveItem a
    List2.RemoveItem a

End Sub
'第三題
Private Sub Label5_Change()
'Get Time : Hour(Now)
    If Val(Hour(Now)) >= Text1 And Val(Hour(Now)) <= Text2 Then
        Label8 = Label5 / 2
    Else
        If Label5 >= 5000 Then
            Label8 = Label5 * 0.9
        Else
            If Label5 >= 3000 Then
                Label8 = Label5 * 0.95
            Else
                If Label5 >= 1000 Then
                Label8 = Label5
                Else
                    Label8 = Label5 + 60
                End If
            End If
        End If

    End If
End Sub
'第四題
Private Sub Image1_Click(Index As Integer)
    衣服號碼 = Index
    Form2.Show
End Sub