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

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.NET~~~¿ªÊ¼µÄʱºòÈçºÎѧ»ù´¡ÈëÃŰ¡~

VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ­»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......

vb¿ØÖÆGPRS MODEM²¦ºÅ

ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ

ÎÒÀ´¶¥

¶¥Ìù

LZºÃÀ÷º¦

²»¶¥²»ÐÐ

ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ