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

VB 5·1µÚÒ»Ìì

ÉÏÎç:
VB×ܽ᣺
ÏÂͼÊÇÓÃmindmanagerÖÆ×÷µÄVB×ܽámdb£º
³£ÓÿؼþµÄ·ÖÀࣺ
 
ÊôÐԺ͹ý³Ì£º
·½·¨ºÍ¹ý³Ì
ʼþ¹ý³Ì¡¢Function¹ý³ÌºÍ¹ý³Ì£º
VB×ܽá´óͼ£º
 
·ÖÆçÈçÏ£º
Êý¾Ý°üÀ¨£ºÊý¾ÝÀàÐÍ¡¢±äÁ¿¡¢³£Á¿¡¢ÔËËã·û¡¢±í´ïʽµÈ¼¸²¿·Ö£¬¶øÁ÷³Ì¿ØÖÆÓï¾äÓ¦²»Ó¦¸Ã¼ÓÈëÆäÖС£
ÎҸоõ²»Ó¦¸Ã£¬ÓÓ±ù¿éÄ£×Ó”Õâ¸öÀý×ӱȽϺÏÊÊ£ºÊǵĽṹºÍ˳ÐòλÖþö¶¨ÁËÄÄЩˮÏȱ»¶³³É±ù¡£Á÷³Ì¿ØÖÆÓï¾äÏ൱ÓÚÄ£×Ó¸ñ£¬¶øÊý¾ÝÀàÐÍ¡¢±äÁ¿¡¢³£Á¿¡¢ÔËËã·û¡¢±í´ïʽµÈËãÊÇÄ£×ÓÀïµÄË®£¬ÊÇÁ÷³Ì¿ØÖÆÓï¾ä¾ö¶¨ÁËÕâЩÊý¾ÝµÄ˳ÐòÖ´ÐУ¬ËùÒÔÓ¦ÓùØÁª£¬¶ø²»ÊÇ´ÓÊô¡£
ÏÂÎ磺
²ð»úÆ÷£º
·¸´íÎóÈçÏ£º²ð»úÆ÷֮ǰºÍ×°»úÆ÷Ö®ºó¶¼Ã»ÓÐÊÔ×Å“µãÁÁ”Ëü£¬×Ô¼ºµ±Ê±¸Ð¾õÓÉ×鳤Ëû»á°²Åźõģ¬×îºó×°ºÃʱÎÒÓÐÏë¹ýÊÔÊÔÄܲ»ÄÜ´ò¿ª×ÀÃ棬µ«¿´ÖÜΧͬѧ¶¼Ã»·´Ó³£¬×°ºÃµÄ¶¼×ß¹âÁË£¬×Ô¼ºÒ²Ï´ÊÖ×ßÈË¡£
ÕâÑù¾Í²»È·¶¨×Ô¼ºÊÇ·ñÇ×ÊÖ½«»úÆ÷×é×°³É¹¦£¬ÒÔºóÈç¹û±ðÈËÕÒ×Ô¼º°ï棬ÕâÊÇË沨ÖðÁ÷¶Ôѧϰ̬¶È²»¶ËÕýµÄ±íÏÖ¡£
ºÃ¶àʱºò±ðÈËÎÊ×Ô¼º*****Ôõô×ö£¬×Ô¼ºËµÓ¦¸ÃÊÇ****µØ×ö°É£¬µ«±ðÈËÎÊ×Ô¼ºÈ·¶¨Âð£¬×Ô¼ºÈ´Ëµ²»ÄÜûÊÔ¹ý£¬ÕâÊǺÜÑÏÖصġ£Ñ§Ï°²»¿ÉàñàðÍÌÔ棬±ØÐëÔúʵ¡£
ÒÔºó²»¹Üѧϰʲô£¬¼ÈȻʱ¼ä¸¶³ö¸øËüÁË£¬¾ÍÒªÏñ×ʱ¾¼ÒÒ»Ñù£¬¾¡Á¿¶àµÃեȡÕâ¶Îʱ¼äµÄ×ʱ¾£¬²»¿ÉÈÃ×Ô¼ºµÄÕâ¶Îʱ¼äÃÉ»ì¹ý¹Ø£¬ÕâÊǶÔ×Ô¼ºÕâ¶Îʱ¼äµÄ¸ºÔð£¬Ò²ÊǶÔ×Ô¼ºÉú»îµÄ¸ºÔð¡£
·ñÔò£¬ÒÔºó²»¹ÜÕû×Ô¼ºµÄ»úÆ÷»¹ÊÇ°ïÖú±ðÈ˶¼Ã»µ×£¬ÒòΪ×Ô¼ºÃ»ÓÐÕâ·½ÃæµÄ³É¹¦¾­Ñ飬×ÔÐÅÐÄûÓн¨Á¢ÆðÀ´£¬Õâ·ÅÔÚÉú»îÖеķ½·½ÃæÃ涼ÊÊÓã¬Éú»îÖд¦´¦½ÔѧÎÊ£¬¶Ô´ýÈκÎÊÂÇé²»¿Éð½ø£¬±ØÐë¾­¹ý×Ô¼ºÑϸñµÄʵ¼ù£¬Õâ²»½öÊǶÔ×Ô¼ºÑ§Ï°¹ý³ÌµÄ¼ìÑ飬¸üÊǶÔÒÔºóÓ¦¶ÔÀ§ÄÑ×ÔÐÅÐĵĽ¨Á¢¡£


Ïà¹ØÎĵµ£º

VB mcisendstring ·½·¨


×ö¸ömp3²¥·ÅÆ÷£¬ÓÃrealplayºÍWMP×ö³öÀ´µÄ³ÌÐòÄÚ´æÕ¼ÓÃÌ«´ó¡£
Èç¹ûÄã½ö½öÊDz¥·ÅMP3£¬½¨ÒéʹÓÃAPIº¯ÊýmciSendString¡£
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As String, ByVal uReturnLength As Lo ......

[TestComplete ϵÁÐ]VB¼ì²é±àÂëÀàÐÍ

Sub CheckTextCodingType(Textfile)
Set fl = aqFile.OpenBinaryFile(Textfile, aqFile.faRead)
Binary1 = fl.ReadByte()
Binary2 = fl.ReadByte()
fl.Close
select case CStr(Binary1)& CStr(Binary2)
case 255254: '*Unicode (UTF-16) Ç°Á½¸ö×Ö½ÚΪFFFE
Log.Message("fi ......

VB ÃæÏò¶ÔÏó

Õ⼸ÌìÒ»Ö±ÔÚ×öÒ»¸öСµÄ¹¤³Ì,×öÒ»¸öÎı¾ÔĶÁÆ÷,ÏÖÔÚ×öµÄÒѾ­ÓÐÈý·ÖÖ®¶þÁË,´ÓÖÐѧϰµ½Á˺ܶà,¶ÔÎÒÃÇÒÔǰѧϰµÄ³É¹ûÓÐÁ˸üÉî¿ÌµÄÀí½â.
VBÊÇÒ»ÃÅÃæÏò¶ÔÏóµÄ³ÌÐòÉè¼Æ,ÎҾʹÓÃæÐÔ¶ÔÏóµÄ½Ç¶È¶ÔËû×öÒ»´Î×ܽá
°ÑVBÖÐËùÓеÄÊý¾Ý,±äÁ¿,¿Ø¼þ¶¼¿´×öÒ»¸ö¶ÔÏó
ÎÒÃÇËùÓеIJÙ×÷¶¼ÊǶԶÔÏóµÄ²Ù×÷,ÈöÔÏóÈ¥Ö´ÐÐijһ¸ö¹¦ÄÜ
´ó¼ÒÏÈ¿´Ò»¸öÀý× ......

¹ØÓÚvb±àдÃâɱÀ¦°óÆ÷´úÂë

Dim FirstFile As String
Dim SecondFile As String
Dim FinalFile As String
Dim first() As Byte
Dim second() As Byte
Dim file1size As Long, file2size As Long
Private Sub Command3_Click()
SecondFile = Text2.Text
FirstFile = Text1.Text
FinalFile = Text3.Text
Open FirstFile For Binary Access Rea ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ