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

VB 5·1µÚÒ»Ìì

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


Ïà¹ØÎĵµ£º

¹ØÓÚVBʹÓÃActiveX.Exe´´½¨¶àÏ̳߳ÌÐòµÄÆæ¹ÖÎÊÌâ


'ÕâÀïÊÇÆô¶¯¹ý³Ì[ʼþ»¥³â¾Í²»Ð´ÁË]
Dim f as frmMain
Sub Main
Set f=New frmMain
f.Show
End Sub

'ÕâÀïÊÇÒ»¸öÏß³ÌÀà¡£¡£¡£Ëæ±ãдɶ¡£¡£¡£
ˈ̞:BT

'ÕâÀïÊÇÖ÷´°¿Ú
Dim cBT as BT
Sub form_Load
'Ææ¹ÖµÄÎÊÌâ¾ÍÔÚÕâÀï...
Set cBT=CreateObject("¹¤³ÌÃû.BT")
'ÔÚL ......

VBʵÏÖSQL ServerÊý¾Ý¿â±¸·Ý/»Ö¸´

VBʵÏÖSQL ServerÊý¾Ý¿â±¸·Ý/»Ö¸´
http://blog.csdn.net/cncco/archive/2006/05/15/729356.aspx
’**Ä£ ¿é Ãû£ºfBackupDatabase_a
’**Ãè    Êö£º±¸·ÝÊý¾Ý¿â,·µ»Ø³ö´íÐÅÏ¢,Õý³£»Ö¸´,·µ»Ø""
’**µ÷    ÓãºfBackupDatabase_a "±¸·ÝÎļþÃû","Êý¾Ý¿âÃû"
’**²ÎÊý˵Ã÷£ ......

¹ØÓÚ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 ......

VBʵÏÖ¼òµ¥µÄͼÐÎÇøÓòÑ¡Ôñ

³ÌÐòЧ¹û£º
µ±µã»÷×ó±ßµÄ²¿¼þͼʱ£¬»áµ¯³ö¶Ô»°¿òÌáʾÄãµã»÷ÁËÄÄÒ»¸öÇøÓò¡£
³ÌÐò˼·£º
ÓÃÒ»¸öÍ¼Æ¬ÇøÓòÂëͼ×÷Ϊµã»÷ÇøÓòµÄ²ÎÕÕ£¬¸ù¾ÝXYÈ¡µÃµÄÑÕɫʶ±ð³öÊôÓÚÄÄÒ»¸öÇøÓò
³ÌÐò½çÃæÈçÏ£º
Ïà¹Ø´úÂëÈçÏ£º
Visual Basic Code
Dim ColorArray (   )   As Long
Dim ColorCount As Long
Private Sub Form_Load ( ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ