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

vb³£ÓÃÄÚ²¿º¯Êý£¨Î壩£ºÎļþ´¦Àíº¯Êý


LOFº¯Êý£ºLOF£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ³¤¶È£¬³¤¶ÈÒÔ×Ö½ÚΪµ¥Î»¡£
LOCº¯Êý£ºLOC£¨ÎļþºÅ£©--·µ»ØÎļþºÅËù´ú±íÎļþµÄ¶ÁдλÖã¬LOCº¯ÊýµÄ·µ»ØÖµÎªlongÊý¾ÝÀàÐÍ¡£¶ÔÓÚËæ»úÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶ÔÎļþ½øÐжÁ³ö»òдÈëµÄ¼Ç¼ºÅ£»¶ÔÓÚ¶þ½øÖÆÎļþ£¬·µ»ØµÄΪÉÏÒ»´Î¶Á³ö»òдÈëµÄ×Ö½ÚλÖã»¶ÔÓÚ˳ÐòÎļþ£¬·µ»ØµÄÊÇÎļþµÄµ±Ç°×Ö½ÚλÖóýÒÔ128µÄÖµ£¬¶ÔÓÚ˳ÐòÎļþͨ³£²»Ê¹ÓÃLOCº¯Êý¡£
EOFº¯Êý£ºEOF£¨ÎļþºÅ£©--¸Ãº¯Êý²âÊÔµ±Ç°¶ÁдλÖü´ÎļþÖ¸ÕëÊÇ·ñλÓÚÎļþºÅËù´ú±íÎļþµÄĩβ¡£ÊÇÎļþĩβ·µ»Øtrue£¬·ñÔò·µ»Øfalse
filelenº¯Êý£ºfilelen£¨ÎļþÃû£©--º¯Êý·µ»ØÖ¸¶¨ÎļþµÄÎļþ³¤¶È£¬ÒÔ×Ö½ÚΪµ¥Î»£¬·µ»ØÖµÎªlongÊý¾ÝÀàÐÍ¡£
freefileº¯Êý£ºfreefile[£¨·¶Î§£©]--ʹÓÃfreefileº¯Êý¿É»ñµÃÉÐδ±»Õ¼ÓõÄÎļþºÅÖеÄÍ·Ò»¸ö¡£
seekº¯Êý£ºseek£¨ÎļþºÅ£©--·µ»ØÎļþºÅËùÖ¸¶¨ÎļþµÄµ±Ç°¶ÁдλÖ㬷µ»ØÖµÎªlongÊý¾ÝÀàÐÍ¡£
Curdirº¯Êý£ºcurdir[£¨Çý¶¯Æ÷ºÅ£©]--·µ»ØÒ»¸ö×Ö·û´®£¬¸Ã×Ö·û´®±íʾָ¶¨Çý¶¯Æ÷µÄµ±Ç°Â·¾¶¡£
shellº¯Êý£ºshell£¨£©--¸Ãº¯ÊýµÄ¹¦ÄÜÊÇÖ´ÐÐ×Ö·û´®ÀàÐͲÎÊýpathnameÖ¸¶¨µÄ¿ÉÖ´ÐÐÎļþ¡£
dirº¯Êý£ºdir[]--·µ»ØÒ»¸ö±íʾÎļþÃû¡¢Ä¿Â¼Ãû»òÎļþ¼ÐÃû³ÆµÄ×Ö·û´®¡£


Ïà¹ØÎĵµ£º

VB —ÍòÄêÀúʵÀý (2)

Éϼ¯ÖÐÖ»ÊÇÏÔʾÐÇÆÚ¼¸£¬²»¹»È«Ã棬ÍêÉÆºóÈçÏ£º
1¡¢´´½¨lbl1¡¢lbl2¡¢lbl3¡¢txt1¡¢cmd1¡¢Timer1
2¡¢lbl£º“ÊäÈëÄêÔÂÈÕ£¨Èç2000-8-16£©£º”£¬ÉèÖÃlbl¡¢txt1¡¢cmd1µÄ×ÖÌå´óСºÍÑÕÉ«¡£Timer1µÄEnableÊôÐÔÉèΪFalse£¬IntervalÊôÐÔÉèΪ£º1000¡£
3¡¢Ë«»÷cmd1£¬½øÈë´úÂë±à¼­´°¿Ú£¬ÇÃÈ룺
Private Sub Timer1_Timer() ......

vb³£ÓÃÄÚ²¿º¯Êý£¨ËÄ£©£ºËæ»úÊýº¯Êý


rndº¯Êý·µ»Ø»òÕß˵²úÉúÒ»¸öСÓÚ1µ«´óÓÚ»òµÈÓÚ0µÄsingleÀàÐ͵ÄËæ»úÊý¡£
²úÉúËæ»úÊý֮ǰÐèÒªÒ»¸öÖÖ×Ó¡£
·²»Í¬µÄÖÖ×Ó£¬¿ÉÊ¹Ëæ»úÊýÉú³ÉÆ÷Éú³É²»Í¬µÄËæ»úÊý£»
·ÔÚÒ»¸öÖÖ×ÓÏ£¬Éú³ÉµÄËæ»úÊýÏàͬ¡£
Ëæ»úÊýÉú³ÉÆ÷µÄÓï¾äΪrandomize¡£¸ñʽΪ£ºrandomize[x]¡£
·µ±x>0ʱ£¬Ê¹ÓÃǰһ´Îµ÷ÓÃrndº¯Êý²úÉúµÄË ......

VB¾ä±ú¸ÅÄî ²»¶®ÒÔºóÉîÈëÀí½â

×î½üÔÚѧϰwindows APIµÄʱºò·¢ÏÖÔÚ¸ö½Ð¾ä±úµÄ¸ÅÄî¸ã²»Çå³þ£¬ÓÚÊDzéÁËÒ»ÏÂÏÖÔÚ°Ñ×Ô¼ºµÄÀí½âд³öÀ´£¬ºóÃæÔÙÌùÍøÉϵĽéÉÜ¡£¾ä±úÊÇÒ»¸ö´ú±í´°¿ÚµÄÕýÕûÊý£¬µ±È»´°¿ÚµÄ¸ÅÄîÔÚÕâÀï°üº¬ÁË×ÀÃæ¡¢°´Å¥¡¢¹ö¶¯ÌõµÈ£¬Õâ¾ÍÊÇÎÒ×î¼òµ¥µÄÀí½âÁË¡£
ÒÔÏÂÊÇÍøÉϵĽéÉÜ£º
¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡Á˽â¾ä±ú
ÔÚµ÷ÓÃ ......

sql2005 + VB6.0 ÔÚVB6.0ÖÐÆ´SQL ×¢Òâ"()"

½ñÌìÔÚµ÷ÊԵĹý³ÌÖз¢ÏÖ ÔÚvbÖÐÆ´SQLµÄʱºò·¢ÏÖ"()" ×÷Óúܴó
eg: table: T_TEST col : T_KB int ,S_CD int ,Z_SU int
dim gcstrT_1 ,gcstrT_3  as integer
gcstrT_1  = 1
gcstrT_3  = 3
 strWhere = strWhere &  "……"
 strWhere = strWhere &  "AND ((T_K ......

VBÇå³ýCookies


Option Explicit
Private Const ERROR_CACHE_FIND_FAIL As Long = 0
Private Const ERROR_CACHE_FIND_SUCCESS As Long = 1
Private Const ERROR_FILE_NOT_FOUND As Long = 2
Private Const ERROR_ACCESS_DENIED As Long = 5
Private Const ERROR_INSUFFICIENT_BUFFER As Long = 122
Private Const MAX_PATH As Long ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ