תVB ×Ö·û´®´¦Àíº¯Êý¼¯ ÊÕ²Ø
VB ×Ö·û´®´¦Àíº¯Êý¼¯
ÊÕ²Ø
mid(×Ö·û´®£¬´ÓµÚ¼¸¸ö¿ªÊ¼£¬³¤¶È)
ÔÚ[×Ö·û´®]ÖÐ[´ÓµÚ¼¸¸ö¿ªÊ¼]È¡³ö[³¤¶È¸ö×Ö·û´®]
ÀýÈç mid("СÐÀÎÞµÐ",1,3) Ôò·µ»Ø "СÐÀÎÞ"
instr(´ÓµÚ¼¸¸ö¿ªÊ¼,×Ö·û´®1,×Ö·û´®2)
´Ó¹æ¶¨µÄλÖÿªÊ¼²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1ÖеÄλÖÃ
ÀýÈç instr(1,"СÐÀÎÞµÐ","С") Ôò·µ»Ø 1,instr(2,"СÐÀÎÞµÐ","С")£¬Ôò·µ»Ø 0 ¡£ 0 ±íʾδÕÒµ½
InStrRev(×Ö·û´®1,×Ö·û´®2,´ÓµÚ¼¸¸ö¿ªÊ¼)
´Ó¹æ¶¨µÄλÖÿªÊ¼£¬´Óºóסǰ²éÕÒ£¬·µ»Ø×Ö·û´®2ÔÚ×Ö·û´®1ÖеÄλÖ㬴˴¦×¢Ò⣬ËäÊÇ´Óºóסǰ²éÕÒ£¬µ«ÊÇ·µ»ØµÄÖµ»¹ÊÇ´ÓÇ°ÍùºóËãµÄ¡£
ÀýÈç instrRev("СÐÀÎÞµÐ","С",2) Ôò·µ»Ø 2 ; instrRev("СÐÀÎÞµÐ","ÐÀ",1) Ôò·µ»Ø 0 ,ÒòΪËü´Ó"СÐÀÎÞµÐ"µÄµÚ1¸ö×Ö¿ªÊ¼ÍùÇ°²éÕÒ£¬ËùÒÔÕÒ²»µ½ ¡£0 ±íʾδÕÒµ½
left(×Ö·û´®,³¤¶È)
´Ó[×Ö·û´®]µÄ×ó±ß¿ªÊ¼·µ»Ø[³¤¶È]¸ö×Ö·û
ÀýÈç Left("СÐÀÎÞµÐ,3) Ôò·µ»Ø "СÐÀÎÞ"
right(×Ö·û´®,³¤¶È)
´Ó[×Ö·û´®]µÄÓұ߿ªÊ¼·µ»Ø[³¤¶È]¸ö×Ö·û
ÀýÈç Right("СÐÀÎÞµÐ",3) Ôò·µ»Ø "ÐÀÎÞµÐ"
ucase(×Ö·û´®)
·µ»Ø[×Ö·û´®]µÄ´óдÐÎʽ£¬Ö»¶ÔÓ¢ÎÄ×Ö·ûÓÐЧ
ÀýÈç ucase("xiaoXINwuDi") Ôò·µ»Ø "XIAOXINWUDI"
lcase(×Ö·û´®)
·µ»Ø[×Ö·û´®]µÄСдÐÎʽ£¬Ö»¶ÔÓ¢ÎÄ×Ö·ûÓÐЧ
ÀýÈç lcase("xiaoXINwuDi") Ôò·µ»Ø "xiaoxinwudi"
asc(×Ö·û)
·µ»Ø[×Ö·û]µÄascii±àÂ룬ÈôÓжà¸ö×Ö·û£¬ÔòÖ»·µ»ØÊ××Ö·ûµÄascii±àÂë,ºÍChr()º¯ÊýÊÇÒ»¸ö¿ÉÄæµÄ¹ý³Ì
ÀýÈç asc("С") Ôò·µ»Ø -12127 ; asc("СÐÀÎÞµÐ") Ò²·µ»Ø -12127
chr(ASCii±àÂë)
·µ»Ø[Ascii]±àÂëËù´ú±íµÄ×Ö·û£¬ºÍChr()º¯ÊýÊÇÒ»¸ö¿ÉÄæµÄ¹ý³Ì
ÀýÈç chr(-12127) Ôò·µ»Ø "С" £»chr(asc("С")) Ôò·µ»Ø"С"(ÕâÀïÊÇΪÁË˵Ã÷ascºÍchrµÄ¿ÉÄæÐÔ£¬ÀýÓôËÌØÐÔ¿ÉÒÔ¼ÓÃÜÎı¾)
trim(×Ö·û´®)
·µ»ØÈ¥µôÁËÇ°¡¢ºóÖ®ºóµÄ[×Ö·û´®]
ÀýÈç trim(" С ÐÀ Î޵Р") Ôò·µ»Ø "С ÐÀ ÎÞµÐ" £¬Ö
Ïà¹ØÎĵµ£º
½ñÌìÔÚ×öVBÏîÄ¿µÄʱºò£¬Ê¹ÓÃÁËListBox¿Ø¼þÀ´»ñȡһЩÁбíÏÓÃÁ˲ŷ¢ÏÖûÓÐListViewºÃÓã¬ListViewÓÐItems£¨SelectItem£©¿ÉÒÔ¶¨Î»µ½µ±Ç°µÄÑ¡ÖÐÏ¶øListBoxûÓУ»ListViewÓÐTag¿ÉÒÔÉ趨ѡÖÐÏîµÄ±êʾ£¬ListBoxûÓС£ÉÏÍøÒ²ÕÒ²»µ½ÔÒò£¬ÖªµÀÈ¥ÔĶÁMSDNºÍ×Ô¼º²âÊÔ¡£
Ö®ºóÖÕÓÚÕÒµ½ÁËÎÊÌâµÄ¹Ø¼ü¡£
ʼþ1£ºÌí¼ÓListBoxÏ ......
Ç°¼¸ÈÕ£¬Óиö¸çÃÇ˵ÓкܶàµçÓ°£¬ÎÊÎÒÒª²»Òª£¿ÎÒ¾ÍÈÃËûÒ»¸öÒ»¸öµÄд¹ýÀ´£¬ÈøçÃÇÀÛ¸ö²»Çá¡£ËùÒÔ¾ÍÏë¼òµ¥Ð´¸ö³ÌÐò£¬»ñÈ¡Ò»ÏÂÎļþ¼ÐÏÂÃæµÄËùÓÐÎļþÃû³Æ£¬ÕâÑù¾Í¿ÉÒÔ½ÚÊ¡ºÜ¶àʱ¼äÁË¡£
Èí¼þÄØ£¬ÎÒÒѾÉÏ´«µ½ÍøÕ¾ÁË£ºhttp://download.csdn.net/source/1802599
vb°æ±¾Ä¿Â¼»ñÈ¡Æ÷ 1.0£¨Áú¾í·ç³öÆ·£©
˵Ã÷£º
1.Ñ¡ºÃĿ¼ºó£ ......
'´´½¨Êý¾Ý¿â
Private Sub Create(ByVal mdbPath As String)
If File.Exists(mdbPath) Then
Throw New Exception("Ä¿±êÊý¾Ý¿âÒѾ´æÔÚ£¬ÎÞ·¨´´½¨")
......
Option Explicit
' VB / VBA Functions for Code128(A, B,C), UCC/EAN 128
' Copyright 2004 by MW6 Technologies Inc. All rights reserved.
'
' This code may not be modified or distributed unless you purchase
' the license from MW6.
Public UFPrefixFunctions As Boolean
Private I As Integer
Pri ......
¸Ã·½·¨²»ÐèҪʹÓÃAPI¼°µÚÈý·½¿Ø¼þ
ÕâÀïʹÓõÄÊÇVBµÄUserControl¿Ø¼þµÄAsyncRead·½·¨
²½ÖèÈçÏÂ:
1¡¢Ìí¼ÓÒ»¸öÓû§¿Ø¼þ£¬ÉèÖÃInvisibleAtRuntimeÊôÐÔΪtrue£¬Ä¿µÄÊÇÔËÐÐʱ¸Ã¿Ø¼þ²»ÏÔʾÓû§½çÃ棬¾ÍÏóTimer¿Ø¼þÒ»Ñù¡£
2¡¢µ½×Ô¶¨Òå¿Ø¼þµÄ´úÂë´°¿Ú£¬Ìí¼ÓÈçÏ´úÂë
Option Explicit
'ÏÂÔؽá¹ûö¾Ù
Public Enum Downloa ......