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

VB ±à³ÌÖÐÈçºÎʹ´°¿ÚÓÒÉϽǵĹرհ´Å¥(X)ʧЧ

1¡¢Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
        Cancel = True
       End Sub
    2¡¢Private Sub
Form_Unload(Cancel As Integer)
        Cancel = True
       End Sub


Ïà¹ØÎĵµ£º

Ŀǰ·¢ÏÖµÄ×îÇ¿º·µÄVBÒþ²Ø½ø³Ì·½·¨

VBÒþ²Ø½ø³ÌÎÊÌâµÄÌÖÂÛÓÉÀ´ÒѾÃ,Ч¹ûÓкÃÓлµ,·´ÕýÊǸ÷Óи÷µÄÕÐ,żȻ»ú»á¿´µ½planet-sourceÒ»¶ÎÒþ²Ø½ø³ÌµÄÎÄÕÂ,×÷Õß˵²ÉÓÃÁËkernel mode driver!·½·¨,
µ¥´Ó¼¼Êõ·½·¨¶øÑÔ,ÕâÊÇĿǰ¼ûµ½Òþ²Ø½ø³ÌÖÐ×îÇ¿º·µÄÁË(¸öÈ˼û½â,¾®µ×Ö®ÍÜÁË),²»¹ýÕâÖÖ¶«Î÷ÓÃÔÚÕýÒåµÄÈËÊÖÉÏÊÇÒ»¸ö³ý±©°²Á¼µÄÀûÆ÷,ÓÃÐÄØÏ²âÕ߾Ͳ»ºÃ˵ÁË,µ«ÊǼ¼ÊõÖÕ¹éÊǼ¼Êõ ......

VBÄ£Äâ°´¼ü

¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷ ×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊǾÍÓÐÁËÓóÌÐòÀ´´úÌæÈËÃǰ´¼üµÄ·½·¨£¬ÕâÑù¿ÉÒ԰ѺܶàÖØ¸´ÐԵļüÅ̲Ù×÷½»¸ø³ÌÐòÀ´Ä£Ä⣬ʡÁ˺ܶྫÁ¦£¬°´¼ü¾«Áé¾ÍÊÇÕâÑùµÄÒ»¸öÈí¼þ¡£ÄÇô ÎÒÃÇÔõÑù²Å ......

VB²Ù×÷WORD

 Dim wdapp As Word.Application
    Dim wddoc As Word.Document
    Dim wdtable As Word.Table
   
    Set wdapp = CreateObject("word.application")
   
    Set wddoc = wdapp.Documents.Add
   ......

VB6.0ÈçºÎÓà libmySQL.dll API·ÃÎÊMYSQLÊý¾Ý¿â

MYSQL Ó¦ÓÃÊ®·Ö¹ã·¶£¬ºÜ¶àÍøÕ¾¼¸ºõ¶¼ÔÚÓÃËû£¬ÒòΪËûµÄСÇɺÍÁé»îÐԵȷ½ÃæÈÃÎÒ¾ö¶¨Òª¶ÔËû½øÐÐÑо¿£¬µ½ÏÖÔÚÒѾ­³É¹¦µÄ²»Óþ­¹ýODBC£¬ADOµÈ·½Ê½¾Í¿ÉÒÔ¶ÁÈ¡ºÍ¸üÐÂÊý¾Ý¡£
 
ºÃÁ˲»¶àÂÞ࣬ÒÔÏÂÎÒÀ´½éÉÜ×ܸö³ÌÐòµÄϸ½Ú:
 
£¨Ò»£©APIÉùÃ÷
 
1.  '·ÖÅä»ò³õʼ»¯ÊʺÏmysql_real_connect()µÄÒ»¸öMYSQL¶ÔÏñ¡ ......

VB´°¿ÚÈ«ÆÁÓëÖö¥

È«ÆÁ
Private Sub Form_Load()
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Me.WindowState = 2
End Sub
Öö¥
1.ÔÚVBµÄͨÓôúÂëÀïдÈëAPIÉùÃ÷
Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, _
  &n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ