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

VBÉèÖýø³ÌÓÅÏȼ¶

http://topic.csdn.net/t/20060401/19/4656391.html
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Const IDLE_PRIORITY_CLASS = &H40 'нø³ÌÓ¦¸ÃÓзdz£µÍµÄÓÅÏȼ¶——Ö»ÓÐÔÚϵͳ¿ÕÏеÄʱºò²ÅÄÜÔËÐС£»ù±¾ÖµÊÇ4
Const HIGH_PRIORITY_CLASS = &H80 'нø³ÌÓзdz£¸ßµÄÓÅÏȼ¶£¬ËüÓÅÏÈÓÚ´ó¶àÊýÓ¦ÓóÌÐò¡£»ù±¾ÖµÊÇ13¡£×¢Ò⾡Á¿±ÜÃâ²ÉÓÃÕâ¸öÓÅÏȼ¶
Const NORMAL_PRIORITY_CLASS = &H20 '±ê×¼ÓÅÏȼ¶¡£Èç½ø³ÌλÓÚǰ̨£¬Ôò»ù±¾ÖµÊÇ9£»ÈçÔÚºǫ́£¬ÔòÓÅÏÈÖµÊÇ7
Dim CurrentProcesshWnd As Long 'µ±Ç°½ø³Ì¾ä±ú
Private Sub Form_Load()
CurrentProcesshWnd = GetCurrentProcess
If (SetPriorityClass(CurrentProcesshWnd, HIGH_PRIORITY_CLASS) = 0) Then
MsgBox "ÉèÖõ±Ç°½ø³ÌÓÅÏȼ¶Îª¸ß¡£Ê§°Ü£¡"
Else
MsgBox "ÉèÖõ±Ç°½ø³ÌÓÅÏȼ¶Îª¸ß¡£³É¹¦£¡"
End If
End Sub


Ïà¹ØÎĵµ£º

ÈçºÎʵÏÖVBÓëEXCELµÄÎÞ·ìÁ¬½Ó

 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ÌÐò£ ......

VBÁù¸öÊýÈ¡×î´óÖµºÍƽ¾ùÊýµÄƽ·½

VERSION 5.00
Begin VB.Form Form2
   AutoRedraw      =   -1  'True
   Caption         =   "¼ÆËã½çÃæ"
   ClientHeight    =   4905
   ClientLe ......

vb³ÌÐòÖÐwebbrowser ½ÓÊÜSendMessage µÄÏûÏ¢

webbrowser ²»ÄÜÊÕµ½SendMessageµÄÏûÏ¢
Ö÷ÒªÊÇÒòΪ1webbrowser µÄ¾ä±úÕÒ²»µ½¡£¾­¹ýŬÁ¦ËÑË÷£¬ÖÕÓÚ½â¾öÁË¡£×ö¸ö¼Ç¼.
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function ......

VB»ñȡִÐгÌÐòͼ±ê

Ò»¸öCommonDialog£¬Ò»¸öCommandButton£¬Ò»¸öPictureBOX
Option Explicit
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, B ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ