Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB Êý×鳤¶È

ÔÚVBÖÐÇóµÃ
Dim Buffer As Variant           
Buffer = MSComm1.Input
ÕâʱÓÃʲôº¯Êý·µ»Ø Buffer ÓжàÉÙλ
Ubound


ÓÃlbound(Êý×éÃû)ºÍubound(Êý×éÃû)À´»ñµÃÊý×éµÄϱêºÍÉϱê

¿É²»¿ÉÒÔÏÈÉè³É¶¯Ì¬Êý×飬REdim <±äÁ¿1>£¨Ï±êto±äÁ¿2£©as <ÀàÐÍ>£¬·µ»Ø±äÁ¿Öµ2¼´¿É
³õÀ´£¬»¹ÍûÖ¸½Ì

UBound(Buffer)-LBound(Buffer)+1

·¹ý...

VB code:

Dim Buffer As Variant
Dim Bytbuff() As Byte
Dim L As Long
Buffer = MSComm1.Input
bytbuff = buffer
L = Ubound(bytbuff) + 1



Buffer ÓжàÉÙλ£¿ÄÇÓ¦¸ÃÊÇ
Len£¨Buffer£©
»òÕß
LenB£¨Buffer£©

¹ØÓÚlenºÍlenb£¬ÄãÉÏB»òGËÑËÑ...


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

vbÈçºÎµ÷ÓÃIllustrator£¨´ËÇ°IllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ