Commtech wireless Mercury 8-Line Manuel d'utilisateur télécharger pdf (Page 93)

ECE 477 Final Report Spring 2004

Private Sub CmdRight_Click()

Call Menu_move(3, CurMenu)

End Sub

Private Sub CmdUp_Click()

Call Menu_move(1, CurMenu)

End Sub

Private Sub Command1_click()

Dim Items() As String

Dim Counter As Integer

Dim QTY As Integer

Dim Found As Boolean

Items = Split(Text1.Text, ",")

Found = False

For Counter = 0 To (List1.ListCount - 1)

If (Items(0) = List1.List(Counter)) And (Items(1) =

List2.List(Counter)) Then

QTY = List3.List(Counter)

QTY = QTY + 1

List3.List(Counter) = QTY

Found = True

End If

If Not Found Then

List1.AddItem (Items(0))

List2.AddItem (Items(1))

List3.AddItem ("1")

Found = False

For Counter = 0 To (Combo1.ListCount - 1)

If Items(1) = Combo1.List(Counter) Then

Found = True

End If

If Not Found Then

Combo1.AddItem (Items(1))

End If

End Sub

Public Sub Menu_move(dir As Integer, Ptr As menu_screen)

Select Case dir

Case 1: 'up

If (Not (Ptr.up.menu = "")) Then

Set Ptr = Ptr.up

End If

F-19

1 2 ... 88 89 90 91 92 93 94 95 96 97 98 ... 123 124

Pas de commentaire

Commtech wireless Mercury 8-Line Manuel d'utilisateur Page 93