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