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

ÇóÖúVBͨѶÊý¾Ýʶ±ð

VBѧµÄÓõͼ²»¾«£¬±à¸ö³ÌÐòÓÃÁ˺ܳ¤Ê±¼äÁË£¬ÏÖÔÚÕâ¸öͨѶ²¿·Ö»¹Ã»×öºÃ£¬ÇóÖú´ó¼Òһϣº
  ctrMSComm.Output = "@01R"    '¶ÁÃüÁî
   instar = ctrMSComm.Input         '¶ÁͨѶ
wy_I = val(HEX_to_DEC(Mid(instar, 29, 4))) * (20 / 4095#)
   wy = Format(5 * wy_I - 15, "0.000")
Çë½ÌһϠ(20 / 4095#) ʲôÒâË¼ÄØ£¿
"@01R"   ÓÃÕâ¸ö ¶ÁÃüÁî ¶Á½øÀ´µÄÊý¾Ý²»»áʶ±ð£¬Çë½ÌÏÂÓÐÈËÖªµÀÔõô´¦ÀíÂð£¿
лл´ó¼Ò


Ïà¹ØÎĵµ£º

VB³ÌÐòÖÐʹÓýű¾Ö§³Ö

 ÕýÔÚ¿ª·¢Ð¡ÃØÊéϵͳ²¢²»¶ÏÌá¸ßÆäÖÇÄÜˮƽ,ÆäÖÐÓõ½µÄÊǽű¾Ö§³ÖµÄ¼¼Êõ
ËäÈ»Õⲿ·Ö²»ÊôÓÚ³õѧÕßʹÓÃ,È»¶øÓÐЩÈËÏëѧÕâ¸ö¶«¶«,ÕâÀï¾Í·¢~~~²¼³öÈ¥°É!
н¨Ò»¸ö±ê×¼exe¹¤³Ì(Standard EXE);
"¹¤³Ì"(Project)-->"²¿¼þ"(Components)
Ñ¡¶¨"Microsoft Script Control 1.0" ,λÖÃÊÇC:\WINDOWS\system32\msscript.ocx
Ìí ......

VB,C#ʹÓÃVCµÄ.libºÍ.hÎļþ

——————————————————————————————————
ÔÚc#ÖÐÈçºÎʹÓÃÒÔǰc++µÄ.lib¿âºÍ.hÍ·Îļþ
zhujiang_1977£¨Öì½­ ......

(VB)FTPÒì²½ÏÂÔØ

 ¸Ã·½·¨²»ÐèҪʹÓÃAPI¼°µÚÈý·½¿Ø¼þ
ÕâÀïʹÓõÄÊÇVBµÄUserControl¿Ø¼þµÄAsyncRead·½·¨
²½ÖèÈçÏÂ:
1¡¢Ìí¼ÓÒ»¸öÓû§¿Ø¼þ£¬ÉèÖÃInvisibleAtRuntimeÊôÐÔΪtrue£¬Ä¿µÄÊÇÔËÐÐʱ¸Ã¿Ø¼þ²»ÏÔʾÓû§½çÃæ£¬¾ÍÏóTimer¿Ø¼þÒ»Ñù¡£
2¡¢µ½×Ô¶¨Òå¿Ø¼þµÄ´úÂë´°¿Ú£¬Ìí¼ÓÈçÏ´úÂë
Option Explicit
'ÏÂÔØ½á¹ûö¾Ù
Public Enum Downloa ......

VB»ñÈ¡ÍøÒ³ÏÂÎÄ×ÖµÄÁ´½ÓµØÖ·

ÌâÄ¿:
ÈçºÎ»ñÈ¡ÍøÒ³ÏÂÎÄ×ÖµÄÁ´½ÓµØÖ·
´°¿ÚÓÐWebBrowser1£¬ºÍÒ»¸öText1
ÏÖÔÚ
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
´ò¿ª´°ÌåÏÔʾ°Ù¶ÈµÄÊ×Ò³£¬ÒªÇ󻬶¯Êó±êµ½“ÐÂÎŔʱ
Text1ÀïÏÔʾhttp://news.baidu.com/
»¬¶¯µ½“Ìû°É”ʱ
Text1ÀïÏÔʾÇå¿ ......

VBÏÔÊ¾ÍøÒ³Ô´Âë»òÄÚÈÝ

 http://blog.donews.com/sloo/archive/2006/01/29/711269.aspx
1.ÓÃMicrosoft Internet Transfer Control ¿Ø¼þ£¨ÔÚ²¿¼þÖÐÌí¼Ó£©£¬´úÂë·Ç³£¼òµ¥£¬ÈçÏ£¨ÔÚformÉÏÌí¼ÓÒ»¸öInet1ºÍText1ºÍCommand1£©£º
Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.vbgood.com/")
End Sub
2.Èç¹ûÊÇʹÓà W ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ