VBÈçºÎ×ö¸ö¼òµ¥µÄÁÄÌ칤¾ß?
¾ÍÊÇË«·½¿ÉÒÔ»¥·¢ÐÅÏ¢¾Í¿ÉÒÔÁË,×îºÃÓÐÏֳɴø×¢Ê͵Ä,ÕâÑù¾Í¿ÉÒÔÂýÂýÑо¿ÁË.
Ò»·WinsockµÄÖ÷ÒªÊôÐÔ¡¢Ê¼þºÍ·½·¨
WinsockÊDz»¿É¼û¿Ø¼þ£¬¿Ø¼þÎļþÃûÊÇMSWINSCK.OCX£¬È«³ÆÎªMcirosoft winsock control£¬Ê¹ÓÃʱҪ½«´Ë¿Ø¼þµ÷È빤¾ßÏä¡£
1·ÊôÐÔ£º¢ÙProtocol=0 //ʹÓÃTCPÐÒ飻
¢ÚRemoteHost //×¼±¸Á¬½ÓÔ¶³Ì»úµÄIPµØÖ·
¢ÛRemotePort //Á¬½ÓÔ¶³Ì»úµÄIP¶Ë¿ÚºÅ £¨1024—65535Ö®¼ä£©
¢ÜLocalPort //±¾µØ»ú¼àÌýIP¶Ë¿ÚºÅ±ØÐëÓëºô½Ð»ú¶Ë¿ÚºÅÏàͬ
2··½·¨£º¢Ùconnect //ÉêÇëÁ¬½ÓÔ¶³Ì»ú
¢Úlisten //ÉèÖüàÌý
¢Ûaccept //½¨Á¢Êµ¼ÊÁ¬½Ó
¢Üsenddata //·¢ËÍÊý¾Ý
¢Ýgetdata //½ÓÊÕÊý¾Ý
¢Þclose //¹Ø±ÕÁ¬½Ó
3·Ê¼þ£º¢Ùconnectionrequest //Ò»·½ÇëÇóÁ¬½ÓʱÁíÒ»·½²úÉú
¢Úconnect //Ò»·½»ú½ÓÊÜÁ¬½ÓʱÁíÒ»·½²úÉú
¢Ûclose //Ò»·½»ú¹Ø±ÕÁ¬½ÓʱÁíÒ»·½²úÉú
¢ÜdataArrival //Ò»·½·¢ËÍÊý¾ÝÁíÒ»·½²úÉú
¢Ýerror //ÇëÇóÁ¬½Óʧ°Üʱ²úÉú
¶þ·ÖÆ×÷·½·¨
¢Å ÔÚÒ»¹¤³ÌÖÐÌí¼ÓÁ½¸ö±íµ¥form1£¨Ä£Äâ¿Í»§¶Ë£©¡¢form2£¨Ä£Äâ·þÎñÆ÷¶Ë£©¡£
form1ÖÐ×°Èë¿Ø¼þ£º
¿Ø¼þÃû
Ö÷ÒªÊôÐÔ
Óà ;
VB.Form form1
caption=¡±À×ÃÈÁÄÌìÊÒ¡±
controlbox=0 ¡®False
Ä£Äâ¿Í»§»ú±íµ¥
VB.Textbox text1
multiline=-1 ¡®True
scrollbars=3 ¡®Bath
ÓÃÓÚÊäÈë·¢ÍùÁÄÌìÊÒµÄÐÅÏ¢
VB.Textbox text2
locked=
Ïà¹ØÎÊ´ð£º
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......