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

vb±ê×¼£¨Ò»£©£ºÓû§½çÃæµÄÉè¼Æ

·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔ­Ôò
    ·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐΪÌØÐÔ
         ·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó¦¸ÃËõ·Å
         ·fixed dialog ´øÓй̶¨±ß¿òµÄ´°Ìå¿ÉÒÔ£¨²¢Ó¦¸Ã£©ÓµÓÐÒ»¸ö±êÌâÀ¸£¬²¢ÇÒ¿ÉÒÔÓÐÒ»¸ö¿Ø¼þ²Ëµ¥¿ò
         ·none ûÓб߿òºÍ±êÌâÀ¸£¨Ê¹ÓõÄÇé¿ö¼«ÉÙ£©
         ·fixed single ¿ÉÒÔ×îС»¯ºÍ×î´ó»¯
         ·sizable ÓÃÓÚËõ·Å´°ÌåÖеÄÄÚÈÝ£¨Õâ¸ö´°ÌåʹÓõÄʱºòÒªÌرð×¢Òâ×î´ó»¯Ê±ºòµÄºÜ´óµÄ»ÒÉ«ÇøÓòÎÊÌ⣩
         ·¹Ì¶¨¹¤¾ß´°¿ÚºÍ¿ÉËõ·Å¹¤¾ß´°¿Ú£¨²»»á¾­³£Ê¹Ó㩱êÌâÀ¸ºÍ±êÌâÀ¸µÄÎı¾±ÈÆÕͨµÄ´°¿Ú¸üϸ
    ·Ê¹¿Ø¼þ¾ß±¸±ê×¼Íâ¹Û
         ·Ê¹Îı¾¿òºÍÆäËû“µ¥Ðпؼþ”µÄ¸ß¶ÈÓë±ê×¼×éºÏ¿òÏàͬ
         ·Ñ¡¶¨Ò»¸ö×éºÏ¿ò£¬È»ºóÀ©´óÑ¡Ôñ·¶Î§ÒÔ±ã°üÀ¨ËùÓÐÎı¾¿ò
         ·²»ÒªÏòÓû§Òþ²Ø°´Å¥£¬¶øÓ¦¸ÃÈ¡ÏûÆ伤»î״̬£¬±íʾÕâʱÕâЩ°´Å¥²»ÄÜʹÓÃ
    ·Ôڹ涨µÄÇé¿öÏÂʹÓÃ×î¼Ñ½çÃæ×é¼þ
    ·Ìṩ±ãÓÚÀí½âºÍʹÓõIJ˵¥
    ·¾¡¿ÉÄÜʹÓÃϵͳÑÕÉ«


Ïà¹ØÎĵµ£º

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (StringByte)

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ Ç°ÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо­³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......

VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)


VBΪ×Ô¼ºµÄ³ÌÐòÉ趨ÏûÏ¢(¿É½ÓÊÕ´¦Àí)
Posted by JiaJia 5 March,2009 (0)Comment
¡¡¡¡ÓÃAPIº¯Êý SetWindowLong Ö¸¶¨´¦ÀíÏûÏ¢µÄ´°¿Ú¹ý³ÌΪ×Ô¶¨ÒåµÄº¯Êý WindowProc£¬²¶»ñÏûÏ¢IDΪ WM_USER+1 µÄ×Ô¶¨ÒåÏûÏ¢»òϵͳÏûÏ¢¡£²¢ÇÒ£¬ÎªÁ˱£Ö¤´°¿ÚÄÜÕýÈ·µÄÏìÓ¦ÏûÏ¢£¬ÐèÒª±£´æÔ­À´Ä¬ÈϵĴ°¿Ú¹ý³Ì²¢ÔÚ×Ô¶¨Ò庯ÊýWindowProcÖе÷Óᣠ......

VBÖеÄת»»º¯Êý

Asc º¯Êý
     
·µ»ØÒ»¸ö Integer£¬´ú±í×Ö·û´®ÖÐÊ××ÖĸµÄ×Ö·û´úÂë¡£
Óï·¨:
Asc(string)
±ØÒªµÄ string ²ÎÊý¿ÉÒÔÊÇÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string ÖÐûÓаüº¬ÈκÎ×Ö·û£¬Ôò»á²úÉúÔËÐÐʱ´íÎó¡£
˵Ã÷:ÔÚ·Ç DBCS ϵͳÏ£¬·µ»ØÖµ·¶Î§Îª 0 – 255 ¡£ÔÚ DBCS ϵͳÏ£¬ÔòΪ -32768 &ndas ......

VB¼ì²éºÏ·¨IPµØÖ·

Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
    On Error GoTo Handler
    Dim varAddress As Variant, n As Long, lCount As Long
    varAddress = Split(strIPAddress, ".", , vbTextCompare)
    If IsArray(varAd ......

vb±ê×¼£¨Î壩£º±äÁ¿

·¶¨ÒåÍêÉƵıäÁ¿¾ßÓÐÃ÷È·¹æ¶¨µÄÊý¾ÝÀàÐͺÍ×÷ÓÃÓò
   ·ÒªÕýȷʹÓñäÁ¿£¬±ØÐëʹÓñíÒåÐÔÇ¿µÄ±äÁ¿ÃûÀ´ËµÃ÷ÕâЩ±äÁ¿£¬²¢ÇÒ±ØÐëΪËüÃǸ³Óè½¹µã
·±à³ÌÔ­Ôò
   ·¶¨ÒåÓн¹µãµÄ±äÁ¿£¨·þÎñÓÚÒ»¸ö¶¨ÒåÃ÷È·µÄÄ¿µÄ£©
   ·Îª±äÁ¿¸³Óè±íÒåÐÔÇ¿µÄÃû×Ö
   ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ