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 icecept(¹ùÎÀ£©
'**´´ ½¨ ÈË£ºicecept(ħÁé)
'**ÈÕ ÆÚ£º2009-11-15 20:27:03
'**ÐÞ ¸Ä ÈË£ºicecept(ħÁé)
'**°æ ±¾£ºV1.0.0
'**E-mail £ºicecept@163.com QQ£º543375508
'**Íø ......
´ó¼Ò¶¼ÖªµÀ¹²ÏíÈí¼þ¶¼ÓÐËüÃǵÄÊÔÓÃÆÚ£¬¼´¸øÄãÒ»¸ö¹Ì¶¨µÄÆÚÏÞÃâ·ÑʹÓá£
Ó¦ÓеŦÄÜ£º
1£©¸ø¶¨Ò»¸öÊÔÓÃÆÚÏÞ£¬ÔÚϵͳÿ´ÎÆô¶¯Ê±»áÅжÏÈí¼þÒѾʹÓÃÁ˼¸Ì죬»¹Óм¸Ìì¿ÉÒÔ¼°Æô¶¯µÄ´ÎÊý¡£
2£©µ±ÏµÍ³ÈÕÆÚ±»Ð޸ijÉÍùÈÕµÄÈÕÆÚºó£¬ÏµÍ³ÄÜ×Ô¶¯Åб𣬽ûÖ¹ÐÞ¸ÄÈÕÆÚ £¬²»Ó ......
VB±àдÍÐÅÌͼ±êÓÐÁ½¸öÒªµã£¬Ò»ÊÇʹÓà Shell_NotifyIcon º¯ÊýÏÔʾͼ±ê£»¶þÊÇÏòϵͳע²á TaskbarCreated ÏûÏ¢£¬ÒÔ±ãexplorer±ÀÀ£Ê±»Ö¸´ÍÐÅ̵Äͼ±ê¡£
Ê×ÏÈÐèÒªÔö¼ÓÒ»¸öÄ£¿éÎļþ£¬ÄÚÈÝÈçÏ£º
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOT ......
http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/5b0e0eb7-9cd7-420a-9f56-e588154174ba
http://www.mndsoft.com/blog/article.asp?id=903
http://topic.csdn.net/t/20051015/14/4328396.html
¡¡¡¡VBÊdz£ÓõÄÓ¦ÓÃÈí¼þ¿ª·¢¹¤¾ßÖ®Ò»£¬ÓÉÓÚVBµÄ±¨±í¹¦ÄÜÓÐÏÞ£¬¶øÇÒÒ»µ«±¨±í¸ñʽ·¢Éú±ä»¯£¬¾ÍµÃÏàÓ¦Ð޸ijÌÐò£ ......
ÔÚ¹¤³ÌÖÐÌí¼ÓÒ»¸öÀàÄ£¿é£¬ÃûΪ Selection
È»ºó¼ÓÈëÒÔÏ´úÂ룺
Dim colRows As Collection
Dim ControlKey As Boolean
Public WithEvents flx As M ......