ÏÂÃæµÄ´úÂëÊÇÎÒ³±ðÈË```
²»ÖªµÀÔõô°ÑµÃµ½µÄ¾ä±ú·Åµ½±äÁ¿Àï
ÔËÐÐËü``Ëü»áµ¯³ö¾ä±ú````
Ôõô²ÅÄܰѵõ½µÄ¾ä±ú·Åµ½ÎÒHUNDÀï°¡
Option Explicit
Dim HUND //ÕâÊÇÎÒ×Ô¼º¼ÓÉÏÈ¥µÄ´úÂë
Private Sub Command1_Click()
Dim Tmp As Long
SendMessageCallback -1, 15, 0, 0, AddressO ......
Call Shell("C:\program files\winrar\winrar d C:\qq.rar abc.txt", vbshow)
Õâ¸öÃüÁîÊÇɾ³ýrarÎĵµÖеÄÎļþ£¬µ±abc.txt²»´æÔÚµÄʱºò£¬»áµ¯³öÌÖÑáµÄ¶Ô»°¿ò£¬ÈçºÎ½â¾ö£¿£¿
-inul disable error messages
http://hi.baidu.com/kissdev/blog/item/1f56bcf500aa9523bc3109be.html
Call S ......
VBѧϰÖÐÓöµ½Ò»Ð©À§ÄÑ£¬ÎÒÓÃVB»ñµÃÒ»¸öÍøÕ¾µÄÔ´Îļþ£¬ÏÔʾÔÚÎı¾¿òText1ÖУ¬Õâ¸öÔ´Îļþ°üº¬ÁËһЩÁ´½Ó£¬±ÈÈç
href="http://www.sina.com.cn/¡¡"
Href="http://www.baidu.com/¡¡"
¡¡
ÆäÖÐÖ»ÓÐÒ»¸öÁ´½ÓÊÇÒÔ¡°http://blog.¡±¡¡¿ªÍ·µÄ£¬ÈçºÎÓÃVBÔÚText1.TextÖÐÕÒ³öÕâ¸ö¡°http://blog.¡±¿ ......
ÎÒÏ£Íû³ÌÐòµÄ´°¿ÚÖгý¿Ø¼þÍâÆäËû²¿·Ö¶¼Í¸Ã÷£¬ÇëÎÊÕâ¸öÔõÑùʵÏÖ°¡£¿
ÎÒÊÔ¹ýÓÃSetLayeredWindowAttributes Õâ¸öAPIº¯Êýʹ´°¿Ú͸Ã÷£¬µ«Êǿؼþ¶¼¿´²»¼ûÁË¡£
»òÕßÎÒÔÚ´°¿ÚÖÐÓÃAPIº¯Êý»Á˸öͼ£¬ÔõÑùʹͼ»ÒÔÍâµÄ²¿·Ö¶¼Í¸Ã÷°¡£¬¼´Ö»ÏÔʾͼ»²¿·Ö¡£
ÖªµÀµÄÅóÓѰï°ï棬лÁË¡£
ллÁË
¸ÕÊÔÁËÏ ºÃÏñ¿É ......
DllÊÇÓÃVCдµÄ£¬ Æäº¯ÊýÔÐÍΪ£º
extern "C" BOOL PASCAL EXPORT StarConventionCheck(LPVOID strarTime,LPVOID overtime,BOOL isTimeFlag )
ÎÒÓÃVB´«²ÎÊýÊÇÕâÃÇ´«µÄ£º
Public Declare Function StarConventionCheck Lib "NetInf.dll" (StartTime As String, EndTime As String, By ......
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Form2.Show
End Sub
Private Sub Command1 ......