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

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, _
    ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
    ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
2.ÒòΪÎÒÃÇÒªÈô°¿ÚÖö¥
ÄÇô¾ÍÔÚForm_Load()ʼþÀïдÈëÈçÏ´úÂë
Dim myval
myval = SetWindowPos(form1.hwnd, -1, 0, 0, 0, 0, 3)


Ïà¹ØÎĵµ£º

ÓÀÔ¶µÄħÁé by ¹ùÎÀ VB³ÌÐòÉè¼ÆÔ´ÂëÈ«¼Ò¸£

 
 
'*************************************************************************
**˵ Ã÷£ºÓÀÔ¶µÄħÁé by icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail   £ºicecept@163.com QQ£º543375508
'**Íø ......

vbÒÆ¶¯´°ÌåµÄ´úÂë

Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Pri ......

VB±àдÍÐÅÌͼ±êʵÀý

VB±àдÍÐÅÌͼ±êÓÐÁ½¸öÒªµã£¬Ò»ÊÇʹÓà Shell_NotifyIcon º¯ÊýÏÔʾͼ±ê£»¶þÊÇÏòϵͳע²á TaskbarCreated ÏûÏ¢£¬ÒÔ±ãexplorer±ÀÀ£Ê±»Ö¸´ÍÐÅ̵Äͼ±ê¡£
Ê×ÏÈÐèÒªÔö¼ÓÒ»¸öÄ£¿éÎļþ£¬ÄÚÈÝÈçÏ£º
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOT ......

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

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