Commtech wireless Mercury 8-Line Manual de usuario descargar pdf (Pagina 94)

ECE 477 Final Report Spring 2004

Case 2: 'down

If Not (Ptr.down Is Nothing) Then

Set Ptr = Ptr.down

End If

Case 3: 'right

If Not (Ptr.item = "") Then 'Item Order Screen

Text1.Text = Ptr.item + ",1"

Call Command1_click

Text1.Text = ""

Set Ptr = item_menu(0)

ElseIf Not (Ptr.right Is Nothing) Then

Set Ptr = Ptr.right

End If

Case 4:

'Set Ptr = item_menu(0)

If Not (Ptr.left Is Nothing) Then

Set Ptr = Ptr.left

End If

End Select

Call SendToSerial(Ptr.menu)

End Sub

Private Sub Dir1_Change()

Dir1.Path = Drive1.Drive

File1.Path = Dir1.Path

' File1.Pattern = "*.txt"

End Sub

Private Sub Drive1_Change()

ChDrive Drive1.Drive

Call Dir1_Change

End Sub

Private Sub File1_Click()

Text2.Text = File1.Path + "\" + File1.FileName

End Sub

Private Function Trunc_Width(TruncMe As String) As String

Dim TempStr As String

If Len(TruncMe) > 21 Then

TempStr = Mid(TruncMe, 1, 21)

TempStr = TempStr + " "

Trunc_Width = TempStr

Else

TempStr = TempStr

End If

End Function

Private Sub Form_Load()

F-20

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

Comentarios a estos manuales

Sin comentarios

Commtech wireless Mercury 8-Line Manual de usuario Pagina 94

Comentarios a estos manuales