VB ±à³ÌÖÐÈçºÎʹ´°¿ÚÓÒÉϽǵĹرհ´Å¥(X)ʧЧ
1¡¢Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
Cancel = True
End Sub
2¡¢Private Sub
Form_Unload(Cancel As Integer)
Cancel = True
End Sub
Ïà¹ØÎĵµ£º
VBѧµÄÓõͼ²»¾«£¬±à¸ö³ÌÐòÓÃÁ˺ܳ¤Ê±¼äÁË£¬ÏÖÔÚÕâ¸öͨѶ²¿·Ö»¹Ã»×öºÃ£¬ÇóÖú´ó¼Òһϣº
ctrMSComm.Output = "@01R" '¶ÁÃüÁî
instar = ctrMSComm.Input '¶ÁͨѶ
wy_I = val(HEX_to_DEC(Mid(instar, 29, 4))) * (20 / 4095#)
&n ......
MSComm¿Ø¼þÌṩÁËÁ½ÖÖ´¦ÀíͨÐŵķ½Ê½£ºÒ»ÖÖΪʼþÇý¶¯·½Ê½£¬¸Ã·½Ê½Ï൱ÓÚÒ»°ã³ÌÐòÉè¼ÆÖеÄÖжϷ½Ê½¡£µ±´®¿Ú·¢Éúʼþ»ò´íÎóʱ£¬MSComm¿Ø¼þ»á²úÉúOnCommʼþ£¬Óû§³ÌÐò¿ÉÒÔ²¶»ñ¸Ãʼþ½øÐÐÏàÓ¦´¦Àí¡£±¾ÎĵÄÁ½¸öÀý×Ó¾ù²ÉÓø÷½Ê½¡£ÁíÒ»ÖÖΪ²éѯ·½Ê½£¬ÔÚÓû§³ÌÐòÖÐÉè¼Æ¶¨Ê±»ò²»¶¨Ê±²éѯ MSComm¿Ø¼þµÄijЩÊôÐÔÊÇ·ñ·¢Éú±ä»¯£¬´Ó¶øÈ ......
½¨Ò»¸öÄ£¿é
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt ......