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

ÓÀÔ¶µÄħÁé by ¹ùÎÀ VB³ÌÐòÉè¼ÆÔ´ÂëÈ«¼Ò¸£

 
 
'*************************************************************************
**˵ Ã÷£ºÓÀÔ¶µÄħÁé by icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail   £ºicecept@163.com QQ£º543375508
'**Íø Ö·£ºhttp://hi.baidu.com/icecept http://icecept.jimdo.com
'*************************************************************************
ÎҵļòÀúÏÂÔØ
10 API ¸ã¶¨×¢²á±íÖÕ¼¶ÍêÃÀ°æ
»Ö¸´.txtµÄĬÈϹØÁª
×ÊÔ´ÎļþÖÆ×÷·½·¨¼°µ÷Óò½Öè
Õûµã±¨Ê±Ô´Âë
ÉèÖôÅÅ̱³¾°Í¼Æ¬
¾«Á鶯»­ÓïÒô¼¼Êõ
¿ÉÒÔ²úÉú¹ØÁªµÄÍêÕûµÄflashÔ´Âë
Èþ«Áé˵»°µÄÇý¶¯ºÍ²é¿´Æ÷£¬Íâ¼ÓʾÀý³ÌÐò
Êó±êÈ¡´ÊÀʶÁ¾«ÁéÍêÃÀ°æ
ÔÚ״̬À¸¶¯Ì¬ÏÔʾ²Ëµ¥Ìáʾ×îÖÕ°æ
ÓÃVB±äÏà¸øÎ¢ÈíµÄ¼Çʱ¾¼ÓÃÜ
ÓÃAPIÒ»´Îɾ³ý¡¢Òƶ¯¡¢¸´ÖÆ¡¢¸ÄÃûº¬ÓÐÎļþ¼°×ÓĿ¼µÄÎļþ¼Ð
ÅúÁ¿Éú³É×ÊÔ´Îļþ¹¤¾ß
FSOÎļþϵͳ¶ÔÎļþºÍÎļþ¼ÐµÄÏêϸ²Ù×÷
Êý×ÖÆ´Í¼
ÈýÖÖ·½·¨ÊµÏÖ¼Çʱ¾×Ô¶¯±£´æ
µ÷ÓÃhtmlhelp°ïÖúµÄAPI
Windws script host ¾«½âʾÀý
»ñÈ¡windwosÖеÄËùÓпɼûĿ¼
¶þÖÖ·½·¨ÊµÏÖËæ»úÊýÒ»´ÎÈ¡³É
Ïò¼Çʱ¾·¢ËÍ×Ö·ûpostmessage£¬sendmessage£¬keybd_even £¬SendKeys·½·¨
ADOÊý¾Ý×é¼þ¾«½âʾÀý
ʹ´°Ìå×î´ó×îС»¯¹Ø±Õ°´Å¥²»¿ÉÓÃ
VBÎļþ²Ù×÷ÃüÁî
Ó¦ÓóÌÐòÓë¼Çʱ¾°ó¶¨
ÓÃapi½¨Á¢¿ì½Ý·½Ê½<VB6.0>×ÀÃæ¡¢Æô¶¯Ïî¡¢¿ªÊ¼²Ëµ¥
ϵͳά»¤_Ò»¸öexeÖ´ÐÐÈô¸ÉÈí¼þ¹¦ÄÜ
Ïû³ýÓÃvbÖÆ×÷µÄϵͳÓÒ¼ü²Ëµ¥ÓÐÏ»®Ïߵķ½·¨£¬ÁíÔùËÍÇ¿´óÓÒ¼ü×¢²á¹¦ÄÜ
½ðɽ¶¾°Ô2008Éý¼¶Îļþ±¸·ÝÆ÷
IniÎļþ¾«½âʾÀý
Replaceº¯Êý¾«½âʾÀý
choose º¯Êý¾«½âʾÀý
Split º¯Êý¾«½âʾÀý
MidÓï¾ä¾«½âʾÀý
24Сʱµ¹¼ÆÊ±³ÌÐò
365Ìì¼ÆÊ±³ÌÐò(24Сʱµç×Ó±í)
½ûÖ¹IEÔËÐÐ
ÇóÒ»¸ö4λÊý¸÷λÒò×ÓµÄÁ¢·½ºÍ
¿Ø¼þ²ÎÊý´«µÝ(ÑÐϰÓÿؼþ×ö²ÎÊýµÄ·½·¨)
ÓÃÎļþÌṩÊý¾Ý&splitÓ÷¨
EXPLORER½ø³Ì±ÀÀ£Ö®ºóÈçºÎÖØ½¨ÍÐÅÌͼ±ê (´ð°¸ÔÚËÄÂ¥)
»ñµÃWindows²Ù×÷ϵͳµÄÀàÐÍ
ÉèÖÃIEÖ÷Ò³
ÓÒ¼ü²Ëµ¥×¢²áºÍ·´×¢²áDLLºÍOCX
VB6ÖÐSendKeysµÄÓ÷¨
ÅжÏ×Ö·ûÀàÐÍ
½¨Á¢×ÔÒѵÄÎļþÀàÐÍ
°²×°¼ÓÃÜÅú´¦ÀíVBS½Å±¾
ÅжÏ×¢²á±íÖеÄÒ»¸öÏîÊÇ·ñ´æÔÚ
SQLÓ÷¨´óÈ«
ÃüÁîÐвÎÊýµÄʹÓÃ
ËØÊýËã·¨
ÈòÄêÅжÏËã·¨
ÅÐ¶ÏÆæÅ¼ÊýËã·¨
½×³ËËã·¨
ÍêÈ«ÊýËã·¨
×î´ó¹«Ô¼ÊýºÍ×îС¹«±¶ÊýËã·¨
Êý¾Ý¿âÖУ¬ÔÚdbcombo¡¢dblist¡¢datacombo¡¢datalistÖеIJéѯËã·¨
·


Ïà¹ØÎĵµ£º

vbʹÓÃopen·½·¨¶ÁдÎļþ

 
vbʹÓÃopen·½·¨¶ÁдÎļþ
£¨Ò»£©´ò¿ªºÍ¹Ø±ÕÎļþ
¡¡¡¡1¡¢Ë³ÐòÎļþ
¡¡¡¡´ò¿ªË³ÐòÎļþ£¬ÎÒÃÇ¿ÉÒÔʹÓÃOpenÓï¾ä¡£ËüµÄ¸ñʽÈçÏ£º

Open pathname For [Input |Output |Append] As [#]filenumber [Len = buffersize]
¡¡¡¡ËµÃ÷£º
¡¡¡¡£¨1£©²ÎÊýpathname ±íʾҪ´ò¿ªµÄÎļþÃû£¬ÎļþÃû¿ÉÒÔ°üº¬ÓÐÇý¶¯Æ÷ºÍÄ¿ ......

VB È¡µØÖ·º¯Êý´óÈ«

Public Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
Public Declare Function VarPtrStringArray Lib "msvbvm60.dll" Alias "VarPtr" (Var() As Any) As Long
È¡¶ÔÏóµØÖ·: ObjPtr
È¡OLE¶ÔÏóµÄµØÖ·: OLE_NAME.LpOleObject
È¡º¯ÊýµØÖ·: AddressOf
È¡×Ö·û´®µØÖ·: StrPtr
È¡ ......

ÍÆ¼öһЩVBµÄѧϰ½»Á÷ÍøÕ¾

http://www.Experts-Exchange.com: ·Ç³£ºÃµÄÎÊÌâ ÌÖÂÛÇø£¬¸ßÊÖÊý²»¾¡£¬¶øÇÒÕâÀïµÄÈ˺ÜÓÐרҵ¾«Éñ£¬²»»áÌÖÂÛһЩºÍ³ÌÐòÎÞ¹ØÓÖÎÞÁĵÄÎÊÌâ¡£²»¹ýÏëÒª±ðÈ˰ïÄã ½â¾öÎÊÌ⣬×Ô¼ºÒ²ÒªÓÐÕæ³ÏµÄ̬¶È¡£
http://www.Codeguru.com/vb: ÓÐÃûµÄÔ´ÂëÌÖÂÛÕ¾ µã£¬ÌصãÊÇÔÚÿ¸öÔ´ÂëÏÂÃæ¶¼¿ÉÒÔ¸úÌûÌÖÂÛ¡£
http://www.planet-source-code.co ......

BarCode Ëã·¨ VBÀà¿â 2

 
Option Explicit
Public Function ascii2Char(strInput As String) As String
Dim i As Integer
Dim strTemp As String
Dim nPos As Integer
Dim nValue As Integer
i = 1
nPos = InStr(i, strInput, "&#", vbTextCompare)
While (nPos > 0)
    ascii2Char = ascii2Char + Left(st ......

(VB)FTPÒì²½ÏÂÔØ

 ¸Ã·½·¨²»ÐèҪʹÓÃAPI¼°µÚÈý·½¿Ø¼þ
ÕâÀïʹÓõÄÊÇVBµÄUserControl¿Ø¼þµÄAsyncRead·½·¨
²½ÖèÈçÏÂ:
1¡¢Ìí¼ÓÒ»¸öÓû§¿Ø¼þ£¬ÉèÖÃInvisibleAtRuntimeÊôÐÔΪtrue£¬Ä¿µÄÊÇÔËÐÐʱ¸Ã¿Ø¼þ²»ÏÔʾÓû§½çÃæ£¬¾ÍÏóTimer¿Ø¼þÒ»Ñù¡£
2¡¢µ½×Ô¶¨Òå¿Ø¼þµÄ´úÂë´°¿Ú£¬Ìí¼ÓÈçÏ´úÂë
Option Explicit
'ÏÂÔØ½á¹ûö¾Ù
Public Enum Downloa ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ