Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal _
nIndex As Long) As Long
Const WS_MINIMIZEBOX = &H20000;
Const WS_MAXIMIZEBOX = &H10000;
Const GWL_STYLE = (-16)

ʹÓãº
Private Sub Form_Load()
Dim lWnd As Long
lWnd = GetWindowLong(hWndAccessApp, GWL_STYLE)

lWnd = lWnd And Not (WS_MINIMIZEBOX)
lWnd = lWnd And Not (WS_MAXIMIZEBOX)
lWnd = SetWindowLong(hWndAccessApp, GWL_STYLE, lWnd)
End Sub


--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
²»Ê¹ÓÃAPI»ñµÃÖ¸¶¨Îļþ¼ÐÎļþÁбí 2004-10-14 10:16:51
ÆÊÎö Declare Óï¾ä 2004-1-28 15:08:06
Á˽â¾ä±ú 2004-1-28 15:03:43
ʲôÊÇ API£¿ 2004-1-28 15:01:53
¶Ô×¢²á±í²Ù×÷¼¼ÇÉ-½«³ÌÐòÔÚ¿ª»úʱÔËÐÐ 2003-11-18 9:24:59
officeXPÏÂʹÓÃÎļþ¶Ô»°¿òµÄÁíÍâÒ»ÖÖ·½·¨ 2003-11-17 8:47:04
ÕæÕýʵÏÖÔÚwindows2000ϹػúµÄÔ´´úÂë 2003-11-14 8:32:00
»ñÈ¡WindowsÓû§µÇ¼Ãû 2003-11-7 8:42:45
»ñÈ¡Íø¿¨ÎïÀíµØÖ· 2003-11-7 8:40:48
Òþ²ØAccessÖ÷´°¿ÚÖ®¶þ 2003-11-7 8:34:20
ÈçºÎÈô°Ìå×ÜÔÚ×îÇ°Ã棿 2003-11-7 8:25:19
ÈçºÎ¹Ø±Õ¼ÆËã»ú£¿ 2003-11-7 8:24:43
ÈçºÎ½¨Á¢¼òµ¥µÄ³¬¼¶Á¬½Ó£¿(ShellExecute) 2003-11-6 20:39:18
ÈçºÎÈô°ÌåµÄ±êÌâÌõÉÁ˸ÒÔÒýÆðÓû§×¢Ò⣿ 2003-11-6 20:38:43
ÔõÑùÕÒµ½Êó±êÖ¸ÕëµÄXY×ø±ê£¿ 2003-11-6 20:37:33
ÔÚ³ÌÐòÖÐÈçºÎ´ò¿ªºÍ¹Ø±Õ¹âÇýÃÅ£¿ 2003-11-6 20:20:00
ÔõÑùʹCtrl-Alt-DeleteÎÞЧ£¿ 2003-11-6 20:19:25
ÈçºÎÒƶ¯Ã»ÓбêÌâÀ¸µÄ´°¿Ú£¿ 2003-11-6 20:17:30
ÑÓʱº¯Êý 2003-11-6 20:16:53
Èÿؼþ×ÔÊÊÓ¦ÆÁÄ»·Ö±æÂÊ 2003-10-18 9:58:33
¼üÅ̳£ÓôúÂëÒ»ÀÀ±í 2003-10-17 19:54:02
ÖØж¨Î»Á´½Ó±í¶þ²½×ß 2003-10-17 19:00:07
ADOÁ¬½ÓÊý¾Ý¿â×Ö·û´®´óÈ« 2003-10-17 18:40:47
ÈçºÎÈ·¶¨µ±Ç°ÆÁÄ»·Ö±æÂÊ 2003-10-14 8:41:00
»ñÈ¡windows°²×°Â·¾¶ 2003-10-14 8:39:08
½« Microsoft Access ÓÃ×÷ Automation ·þÎñÆ÷ 2003-10-14 8:37:19
ÓÅ»¯Microsoft AccessÌá¸ßËÙ¶È 2003-10-6 10:31:55