hello all vb expert. i had develop a GUI using vb 6.0. did anybody know how to make text "your exceed limit. please reenter your value' when user enter the our of range value for X and Y. this is my source code for that GUI. i'm really appreciate! i'm trying to finish my final year project. i want to modified it!
[CODE=vb]
Private Sub Form_Load()
Dim Xvalue As Long
Dim Yvalue As Long
For Xvalue = 0 To 15
cboXvalue.AddIt em CStr(Xvalue)
Next Xvalue
cboXvalue.ListI ndex = 0
For Yvalue = 0 To 15
cboYvalue.AddIt em CStr(Yvalue)
Next Yvalue
cboYvalue.ListI ndex = 0
MSComm1.CommPor t = 1
MSComm1.Setting s = "9600,N,8,1 "
MSComm1.DTREnab le = False
MSComm1.PortOpe n = True
End Sub
Private Sub cmdSend_Click()
Dim Xvalue As Long
Dim Yvalue As Long
Xvalue = cboXvalue.ListI ndex
Yvalue = cboYvalue.ListI ndex
MSComm1.Output = Chr$(255) & Chr$(Xvalue) & Chr$(Yvalue)
End Sub
Private Sub Form_Unload(Can cel As Integer)
MSComm1.PortOpe n = False
End Sub[/CODE]
[CODE=vb]
Private Sub Form_Load()
Dim Xvalue As Long
Dim Yvalue As Long
For Xvalue = 0 To 15
cboXvalue.AddIt em CStr(Xvalue)
Next Xvalue
cboXvalue.ListI ndex = 0
For Yvalue = 0 To 15
cboYvalue.AddIt em CStr(Yvalue)
Next Yvalue
cboYvalue.ListI ndex = 0
MSComm1.CommPor t = 1
MSComm1.Setting s = "9600,N,8,1 "
MSComm1.DTREnab le = False
MSComm1.PortOpe n = True
End Sub
Private Sub cmdSend_Click()
Dim Xvalue As Long
Dim Yvalue As Long
Xvalue = cboXvalue.ListI ndex
Yvalue = cboYvalue.ListI ndex
MSComm1.Output = Chr$(255) & Chr$(Xvalue) & Chr$(Yvalue)
End Sub
Private Sub Form_Unload(Can cel As Integer)
MSComm1.PortOpe n = False
End Sub[/CODE]
Comment