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

ΪʲôÎÒµÄVBÏÔʾÕÒ²»µ½¿É²åÈëµÄISAM£¿

VB6ÀïÃæµÄ°²×°ÄÚÈÝÖÐÓÐJET £¨IISAM£©²¿¼þ£¬°²×°Ê±¼ÓÒÔÑ¡Ôñ,Äã¿ÉÒÔÐÞ¸´°²×°ÄãµÄVB6¡£¾ßÌå×ö·¨ÈçÏ£º
1¡¢ÖØÐÂÆô¶¯VB°²×°³ÌÐò£¬Ñ¡È¡¹¤×÷Õ¾¹¤¾ßºÍ×é¼þ=¡·Ìí¼Ó¡¢É¾³ý³ÌÐò=¡·Êý¾Ý·ÃÎÊ=¡·¸ü¸ÄÑ¡Ïî=¡·Ñ¡ÖÐJet IIsam

2¡¢ÖØ×°VB£¬°²×°Ê±Ñ¡×Ô¶¨Ò壬ȫ²¿Ñ¡ÖС£


Ïà¹ØÎĵµ£º

VBÈ¡µÃÏ߳̾ä±ú

 Private Declare Function OpenThread Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwThreadId As Long) As Long
Private Const THREAD_ALL_ACCESS = &H1F03FF
 OpenThread(THREAD_ALL_ACCESS, 1, Ïß³ÌID)    'ÓÉÏß³ÌIDÈ¡µÃÏ߳̾ä±ú,·µ»ØÏß³Ì¾ä± ......

VB: Ò»¸öÕýÔòÌáÈ¡¹¦ÄÜ

'ÒýÓãºMicrofoft VBScript Regular Expressions 5.5 'Ò»¸öÕýÔòÌáÈ¡¹¦ÄÜ
Public Function regGetStr_three(ByVal myString As String, ByVal patReg As String) As String()
   Dim objRegExp As RegExp
   Dim objMatch As Match
   Dim colMatches   As Ma ......

VB: È¡ÍøÒ³Ô´Âë

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
    ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
  ......

VBÏÔÊ¾ÍøÒ³Ô´Âë»òÄÚÈÝ

 http://blog.donews.com/sloo/archive/2006/01/29/711269.aspx
1.ÓÃMicrosoft Internet Transfer Control ¿Ø¼þ£¨ÔÚ²¿¼þÖÐÌí¼Ó£©£¬´úÂë·Ç³£¼òµ¥£¬ÈçÏ£¨ÔÚformÉÏÌí¼ÓÒ»¸öInet1ºÍText1ºÍCommand1£©£º
Private Sub Command1_Click()
Text1.Text = Inet1.OpenURL("http://www.vbgood.com/")
End Sub
2.Èç¹ûÊÇʹÓà W ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ