Ovako nešto prikazuje "RING" u text boxu
Code:
Private Sub Form_Load()
Dim CommPort As String
'opcije porta
MSComm1.CommPort = 4
MSComm1.Settings = "9600,N,8,1"
If CommPort <> "" Then MSComm1.CommPort = CommPort
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
'postupak za izlaz
If MSComm1.PortOpen Then
MSComm1.PortOpen = False
End If
End
End Sub
Private Static Sub MSComm1_OnComm()
Dim Buffer As Variant
'prikaz podataka sa modema
If MSComm1.CommEvent = comEvReceive Then
Buffer = Replace(MSComm1.Input, Chr(13), "")
Buffer = Replace(Buffer, Chr(10), "")
GetCallerInfo = (Buffer)
ShowData Text1, "" & (StrConv(Buffer, vbUnicode))
Debug.Print Text1, "" & (StrConv(Buffer, vbUnicode))
End If
End Sub
Private Static Sub ShowData(Text1 As Control, Data As String)
'svojstvo prikaza podataka
Text1.SelText = Data
Text1.SelStart = Len(Text1.Text)
End Sub
edit [Aleksandar Ružičić]: ubaceni [code][/code] tagovi
[Ovu poruku je menjao Aleksandar Ružičić dana 10.06.2008. u 21:09 GMT+1]
Prikaz CID-a pomoću mscomm kontrole
