ActiveX²¿¼þ²»ÄÜ´´½¨¶ÔÏó£¬ÔÙÔõô×ö£¬Çëָʾ°¡£¡£¡£¡ windyhero1983ÀÏʦ£¬¾ßÌåÔõôд´úÂë,ÇëÄúָʾ°¡£¡£¡£¡Ð»Ð»°¡ °Ñaa.dllÏÈ×¢²á¡£ regsvr32 /u Private Declare Function aa Lib "aa.DLL" (ByVal PortNumber As Integer, ByVal baudrate As Integer) As Integer 'µ÷ÓÃaa.DLLµÄÃüÁî ÊÔÒ»ÊÔ: (1)ÏȰÑdllÎļþ·ÅÔÚSystem32ÏÂ,È»ºó²Ëµ¥——>¹¤³Ì——>ÒýÓà >¹´Ñ¡ÄãdllÎļþ. (2)Dim obj as aa set obj=NEW aa
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ Type ID number As Single score As Integer name As String * 6 End Type Dim personl As ID, i% Private Sub Command1_Click() i = 0 &nbs ......