پاسخ : مشکل برنامه نویسی در vb لطفا کمکم کنید
دوست عزیز
شما یه کمبو باکس و یه کلید به فرم اضافه کن.و شماره پورت ها را در کمبو باکس قرار بده و برای کلید که گذاشتی از کد زیر استفاده کن
Private Sub Command1_Click()
MSComm1.CommPort = Combo1.Text
MSComm1.PortOpen = True
If Err.Number = 0 Then
MsgBox "Open"
Else
MsgBox "close"
End If
End Sub
وقتی که شماره پورت را انتخاب کنی و کلید را بزنی پورت مورد نظر در صورت وجود باز میشه
دوست عزیز
شما یه کمبو باکس و یه کلید به فرم اضافه کن.و شماره پورت ها را در کمبو باکس قرار بده و برای کلید که گذاشتی از کد زیر استفاده کن
Private Sub Command1_Click()
MSComm1.CommPort = Combo1.Text
MSComm1.PortOpen = True
If Err.Number = 0 Then
MsgBox "Open"
Else
MsgBox "close"
End If
End Sub
وقتی که شماره پورت را انتخاب کنی و کلید را بزنی پورت مورد نظر در صورت وجود باز میشه
دیدگاه