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)
Ïà¹ØÎĵµ£º
VB6ÀïÃæµÄ°²×°ÄÚÈÝÖÐÓÐJET £¨IISAM£©²¿¼þ£¬°²×°Ê±¼ÓÒÔÑ¡Ôñ,Äã¿ÉÒÔÐÞ¸´°²×°ÄãµÄVB6¡£¾ßÌå×ö·¨ÈçÏ£º
1¡¢ÖØÐÂÆô¶¯VB°²×°³ÌÐò£¬Ñ¡È¡¹¤×÷Õ¾¹¤¾ßºÍ×é¼þ=¡·Ìí¼Ó¡¢É¾³ý³ÌÐò=¡·Êý¾Ý·ÃÎÊ=¡·¸ü¸ÄÑ¡Ïî=¡·Ñ¡ÖÐJet IIsam
2¡¢ÖØ×°VB£¬°²×°Ê±Ñ¡×Ô¶¨Ò壬ȫ²¿Ñ¡ÖС£ ......
À
±¾ÎÄ·¢±íÔÚ2000Äê4ÔÂ17ÈÕ ¡¶¼ÆËã»úÊÀ½ç¡·25ÆÚ
ÖÆ×÷°²×°³ÌÐòÍùÍùÊdzÌÐòÉè¼ÆµÄ×îºóÒ»²½£¬Í¬Ê±Ò²ÊÇÖØÒªµÄÒ»²½£¬ÒòΪÔËÐа²×°³ÌÐòÍùÍùÊÇÓû§µÄµÚÒ»¸ö²Ù×÷¡£ÏÂÃæ¾Í½éÉÜÒ»Ð©ÖÆ×÷
Visual Basic
°²×°³ÌÐòʱ³£Óöµ½ÎÊÌâµÄ½â¾ö·½·¨¡£
1
¡¢Ò»¸ö·Ç³£¼òµ¥µÄ
VB
³ÌÐòÊÇ·ñ¿ÉÒÔ²»ÖÆ×÷°²×°³ÌÐò
ÎÊ£º¼ÙÈçÎÒµÄ
VB5
¿ª·¢µÄ³ÌÐ ......
http://tieba.baidu.com/f?kz=580219489
http://www.anqn.com/vb/154/8974.shtml
http://www.codefans.net/soft/5089.shtml
http://www.mndsoft.com/blog/article.asp?id=1121
http://topic.csdn.net/t/20020113/14/474848.html
Ö±½ÓÔËÐÐÍøÒ³ÖеÄJavaScript£º
function alllefttab()
WebBrowser1.Document.par ......
'´úÂë:
Option Explicit
'======================ÓÃÓÚ²éÕÒ½ø³ÌºÍÖÕÖ¹½ø³ÌµÄAPIº¯Êý³£Êý¶¨Òå================ =====
Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessF ......