VBÖÐ and ÔËËãʵ¼ÊÒâÒå
ÏÂÃæÊÇÒ»¸öÓÎÏ·ÐÞ¸ÄÆ÷ÖÐÄóöÀ´µÄÒ»¶Î³ÌÐò£º
'ת»»Êý×ÖΪ×Ö·û´®ºó½øÐÐÄÚ´æËÑË÷
Private Function ConvertNumberToString(number As Double) As String
If number < 256 Then
ConvertNumberToString = Chr(number)
Exit Function
End If
If number < 65536 Then
ConvertNumberToString = Chr(number And 255) & Chr((number And 65280) / 256)
Exit Function
End If
b4 = number And 255: number = Int(number / 256)
b3 = number And 255: number = Int(number / 256)
b2 = number And 255: number = Int(number / 256)
b1 = number And 255: number = Int(number / 256)
ConvertNumberToString = Chr(b4) & Chr(b3) & Chr(b2) & Chr(b1)
End Function
ÉÏÃæµÄ³ÌÐòÖÐÕâ¸öAND ÔËËãÓÐʲôʵ¼ÊÒâÒ壬¾ÍÊÇ˵´ïµ½ÁËÔõôÑùµÄÒ»¸ö½á¹û£¬ÎÒÖªµÀÊÇλÔËË㣬ÎÒ»áËãÕâ¸ö½á¹û£¬µ«²»Ã÷°×Óë255 AND ºóÕâ¸ö½á¹ûÓÐʲôÒâÒ壿
Çë´ó¼ÒÖ¸½Ì£¬Ð»Ð»
http://topic.csdn.net/t/20001202/19/44649.html
http://www.google.cn/search?hl=zh-CN&source=hp&q=vb6+%E4%BA%8C%E8%BF%9B%E5%88%B6+and+%E8%BF%90%E7%AE%97&aq=f&oq=
×Ðϸ¿´¿´¾ÍÃ÷°×ÁË
×ªÔØ vb and or λ²Ù×÷
ǰ¼¸Ì죬ÔÚºÜÔ¶ºÜÔ¶ÓÖÊÇÄÇôԶµÄµØ·½£¬ÓÐÎ»ÍøÓÑÀ´ÐÅÎÊһЩÓйØÎ
Ïà¹ØÎÊ´ð£º
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......