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

VB¼¼ÊõÄÑÌâ,ÓÐ×ö¹ýµÄÅóÓѽøÀ´Ìáµã½¨Òé!~~

ÏÖÔÚ×öÒ»¸öÏîÄ¿,ÒªÇóÉÏλ»úÓÃVB±à³Ìͨ¹ýÍøÂçµÄ·½Ê½Ó뵥Ƭ»ú½Ó¿Ú,µ¥Æ¬»ú¿ØÖÆ»úе²¿·Ý(ÉÙÁ¿µÄÊý×ÖÁ¿ÊäÈëÊä³ö¿ØÖÆ),µ¥Æ¬»úÓÐÍø¿Ú²¢·ÖÅäÓÐIPµØÖ·,ÉÏλ»úÈçºÎͨ¹ý½»»»»úÀ´Ó뵥Ƭ»ú½Ó¿Ú,Çë½ÌÓöµ½¹ýÕâÖÖÏîÄ¿µÄÅóÓÑÄܹ»Ö¸ÒýÒ»ÏÂ!~~~
Winsock+TCP/IP

¶Ô

¾ÍÖ±½Óͨ¹ýwinsock¿Ø¼þÓ뵥Ƭ»ú½øÐÐͨѶ£¬ÕâÀïÎÒÃÇ×öµÄÊǺÜÓÐÎóÇø¡£Ö»Òª×ñÑ­tcp\ipЭÒ飬±ðµÄÎÊÌⶼ²»Òªµ£ÐÄ£¬ÎÒÃÇÖ»ÐèÒª×ñѭЭÒé¸ñʽ¾Í¶ÔÁË

ÒòΪÒÔÇ°ÊÇÓÃwinsock¿Ø¼þ×öµÄ¿Í»§¶ËºÍ·þÎñÆ÷µÄ·½Ê½,µ«ÊÇÓÐʱºòʵʱµÄÊý¾ÝÎÞ·¨´«µ½·þÎñÆ÷ÉÏ,¹À¼ÆÕâ´Î¸úµ¥Æ¬»úͨѶÊý¾ÝÁ¿»á¸ü´ó,ÒòΪͨѶµÄÕâ¿éµ¥Æ¬»úҪͬʱ¿ØÖÆ4¿éµ¥Æ¬»ú²¢ÉÏ´«Êý¾Ýµ½ÉÏλ»ú,ËùÓлῼÂÇÊý¾Ý¶ªÊ§µÄÎÊÌâ¡£

VBÓÃwinsockͨ¹ýTCP»òUDPЭÒ鶼¿ÉÒÔ£¬Ö÷Òª¿´ÏÂλ»úµÄЭÒéÊÇʲô¶ø¶¨
Ö±½Óͨ¹ý½»»»»úÓëÏÂλ»úͨÐÅ£¬¶ªÊ§Êý¾Ý¿ÉÄÜÐÔ½ÏС£¬µ«Òª×¢Ò⼸µã£º
1¡¢ÉÏÒ»ÌõÊý¾ÝÓëÏÂÒ»ÌõÊý¾Ý·¢ËͼäÒª×ö0.05Ãë×óÓÒµÄÑÓʱ
2¡¢¶ÔÊý¾Ý×öCRCУÑé»ò¼òµ¥µÄºÍУÑé¡£


Ã÷°×,ллָµã!~

ллÌṩÁ´½Ó.


Ïà¹ØÎÊ´ð£º

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

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

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

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

vbµÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËƺõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵ģ¬µ«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......

VB Çë½Ì¸ßÊÖ¹ØÓÚÓû§¿Ø¼þÎÊÌâ

ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ

    Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
    objExt.Visible = True

³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ