ÎÒÏë×Ô¼º¶¨ÖÆÒ»¸öä¯ÀÀÆ÷£¬½á¹û·¢ÏÖ¼òµ¥ÉèÖÃWebBrowser¿Ø¼þ²»ÄÜ´ïµ½ÎÒµÄÐèÇ󣬽á¹ûÎÒÔÚÂÛ̳Çë½Ì£¬ÓÐÈËÖ¸µãÁËÈçÏ´úÂ룺
ÕâÀïÃæÓõ½Á˺ܶÔCOM½Ó¿ÚµÄ֪ʶ£¬ÈçDispatch Invoke ÕâЩӦµ±ÊÇCOMµÄ½Ó¿Ú°É¡£ÎÒʵÔÚ¿´²»¶®£¬ÎÒÏëÇëÎÊ£º
1¡¢Ò»¸öVB³ÌÐòÔ±Ïë¿´¶®ÏÂÃæµÄ´úÂ룬ÐèҪѧϰЩÄÄ·½ÃæµÄ֪ʶ£¿
2¡¢ÏÖÔÚÄܲ鵽µÄCOM½Ó¿ÚÏêϸһµãµ ......
text1=1138.15
text2=1139.3
Private Sub Command1_Click()
MsgBox Val(Text1) - Val(Text2)
End Sub
Õâ¼ÆËã½á¹û Ó¦¸ÃÊÇ1.15
¶øÎÒÕâµçÄÔ³öÀ´µÄ½á¹ûÊÇ -1.14999999999986
Õâ¸öÕý³£,ÒòΪ¼ÆËã»úÊÇÒÔ¶þ½øÖÆ´æ´¢ÖµµÄ,²»ÐÅÄãÖ±½Ó
debug.print 1139.3-1138.15
½á¹ûÒ²ÊÇ
1.1499999999998 ......
¸Õ¸Õ½Ó´¥VB.NET£¬¶Ô.NET»ù±¾Ê²Ã´Ò²²»¶®£¬Çë¸ßÊÖ¸øÒ»¶Î½ÏÍêÕû´´½¨accessÊý¾Ý¿âµÄʾÀý´úÂ룬ÈÃÎÒѧϰһÏ¡£
Ëùν½ÏÍêÕû´´½¨Êý¾Ý¿âʱ¶¨Òå¸÷¸ö×Ö¶ÎÀàÐ͵ıíʾ·½·¨£¬ÈçÕûÊýÐÍ£¬¸¡µãÐÍ£¬×Ö·ûÐÍ£¨¶¨Ò峤¶ÈÈçºÎ±íʾ£©¡£Ð»Ð»£¡
ÎÒÒ²ÏëÖªµÀ´ð°¸£¬°ïÄã¶¥!!!!!!!!!!!!!!!!!!!!!!
......
vb stringÀàÐͱäÁ¿ÔÚÄÚ´æµÄ±íʾ£¿
1
Ò»°ãÀ´Ëµ£¬vb×Ö·û´®¶¼Ê¹ÓÃUNICODE±íʾ£¬²»¹Üºº×Ö»¹ÊÇÓ¢ÎÄ×Ö·û¶¼Ó¦¸ÃÊÇÁ½¸ö×Ö½Ú¡£
eg.Ò»¸ö×Ö·û´®ÔÚÄÚ´æÖУ¬Õ¼µÄ×Ö½ÚÊýÓ¦¸ÃÊÇ ×ÜÄÚ´æ=×Ö·û¸öÊý*2×Ö½Ú
2
ÄÚ´æ·Ö²¼Ó¦¸ÃÊǺº×ÖÁ½¸ö×Ö½Ú£¬Ó¢ÎÄÒ»¸ö×Ö½Ú
eg.
dim string*10
¡°ÎÒ123456789¡±
ÄÚ´æ·Ö²¼Ó ......
±ÈÈç aaaa,bbbbbb,dddgdfdf,ddseeÕâ¸ö×Ö·û´®£¬ÎÒҪȡ̤µÚÒ»¸ö¶ººÅÇ°ÃæµÄaaaa¾ÍºÃÁË
²»¹ýÕâ¸ö×Ö·û´®»á±ä£¬Ò²¿ÉÄÜÊÇaaaaaaaa,dfdfdfd,ddaa,ddd»òÕßdbdfdfldjdglgdg,dfi,ddld,ddeʲôµÄ
Ìõ¼þÊÇ£¬Èç¹ûÕâ¸ö×Ö·û´®°üº¬¶ººÅ£¬¾ÍÈ¡µÚÒ»¸ö¶ººÅÇ°ÃæµÄ£¬Èç¹û²»°üº¬¶ººÅ¾ÍÈ¡Õû¸ö×Ö·û´®
Çë¸ßÊÖ °ï°ï棬ллÁË
......
ÈçºÎ°ÑÏÂÃæµÄVBת»»³ÉVB½Å±¾ Dim str
str = TextBox1.Text
Dim msg() As String
If (str.Contains(",")) Then
msg = Split(str, ",")
Else
msg = Split(str, "")
End If ......