Ò½Ôº Ã×ÀÏʦ VB×ܽá
×òÌìÏÂÎçÎÒºÍСÅÖ±»Ã×ÀÏʦ´«»½µ½ÊÐҽԺȥ£¬Ã×ÀÏʦÏëÌýÌýËûÖÜÁùÉϵĿζÔÎÒµÄÓ°ÏìÓжà´ó£¬ÎһشðµÄ»ù±¾ÄÚÈݺ͡¶10Äê VB 1¡·ÀïÃæµÄÄÚÈݲ¶à£¬µ«Ã×ÀÏʦ¸Ð¾õºÜ¿Õ¶´£¬¸Ð¾õÎÒÔÚ·º·º¶øÌ¸£¬ÆäʵÎÒÒ²Óиоõ¡£
ΪÁ˽«Ã×ÀÏʦ˵µÄ×᷽ܽ·¨Ó¦ÓÃÓÚʵ¼ù£¬ÎÒÕâÁ½ÌìÇôúÂë·¢ÏÖMsgBox£¬InputBox£¬PrintµÄÓ÷¨²î²»¶à£¬È»ºó¾Í½«Æä×ܽáÈçÏ£º
MsgBox(prompt[, buttons] [, title] [, helpfile, context])£¬ÆäÖÐPromptÊDZØÐèµÃ×Ö·û´®±í´ïʽ£¬×÷ΪÏÔʾÔÚ¶Ô»°¿òÖеÄÏûÏ¢¡£ButtonÊÇ¿ÉÑ¡µÄÊýÖµ±í´ïʽ£¬ÏÔʾָ¶¨°´Å¥µÄÊýÄ¿ºÍÐÎʽ£¬È±Ê¡ÖµÎª0¡£Title±êÌâÀ¸ÖеÄÏÔʾµÄ×Ö·û´®±í´ïʽ
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
promptͬÉÏ£¬titleͬÉÏ£¬defaultÏÔʾÔÚÎı¾¿òÖеÄ×Ö·û´®±í´ïʽ£¬ÈçÊ¡ÂÔ£¬ÔòÎı¾¿òΪ¿Õ¡£Xpos£¬Ypos¿ÉÑ¡µÄÊýÖµ±í´ïʽ£¬Ö¸¶¨¶Ô»°¿òµÄ×ó±ßÓëÆÁÄ»×ó±ßµÄˮƽ¾àÀ룬¶Ô»°¿òµÄÉϱßÓëÆÁÄ»ÉϱߵľàÀë¡£
object.Print [outputlist] ÔÚImmediate´°¿ÚÖÐÏÔʾÎı¾¡£objectÊDZØÐèµÄ¶ÔÏó±í´ïʽ£¬ÆäֵΪ“Ó¦ÓÃÓÚ”ÁбíÖеĶÔÏó¡£ outputlist¿ÉÑ¡µÄÒª´òÓ¡µÄ±í´ïʽ£¬ÈçÊ¡ÂÔ£¬Ôò´òÓ¡Ò»Ðпհ×ÐС£
ÈýÕßÎÒÖ»¿´µ½ÐÎʽºÍ¹¦ÄÜÉϵÄÏàËÆ£¬²¢Ã»ÓÐÉËûÃǵĸùÔ´¡£Ò²ÊÇÒòΪ×Ô¼º¿´µÄ»¹²»¹»ÉîÈë°É£¬²»ÄÜ´ïµ½Ã×ÀÏʦµÄЧ¹û¡£Ã×ÀÏʦÈÃÓÃÒ»¾ä»°¸ÅÀ¨ÎÒµÄÊÕ»ñ£¬ÎÒ˵£º“×¢Òâ×ܽᣬ×ܽá¾ÍÊÇÁªÏëºÍ¶Ô±È¡£”Ëû°ÑͷʧÍûµÄŤ¹ýÈ¥£¬Ëµ£º“ÓÀÔ¶²»ÒªËµ¾ÍÊÇ£¬ËµÒ»´Î´íÒ»´Î¡£µ±Ìýµ½±ðÈË˵¾ÍÊÇʱ£¬ÎÒ¾ÍÖªµÀÕâ¸öÈËÌ«¾ø¶ÔÁË¡£×ܽ᲻½öÓÐÁªÏëºÍ¶Ô±È£¬»¹ÓаüÀ¨µÈ¡£Ö»ÊÇÁªÏëºÍ¶Ô±ÈÎÒÃDZȽϳ£¼û¡£ÏÖÔڵĴóѧѧ¿Æ¶¼»®Öص㣬ÆäÊµÖØµãÊÇʲô£¬¾ÍÊÇÈËÃǾ³£¼ûµ½ºÍÓõ½µÄ¶«Î÷£¬ÕâÑùÒ»»®¾Í°Ñ֪ʶ¶¼¹ÂÁ¢ÁË£¬Ñ§Ï°Ö®Öиù±¾Ã»ÓÐÊ²Ã´ÖØµã£¬ÎÒÃÇ¿´ÎÊÌâÒªÈ«Ãæ£¬²»Òª¹ÂÁ¢µØ¿´”˵ÅÖ×ÓʱÌáµ½ÁË¡¶Î÷Óμǡ·£¬ÖªÊ¶Êǿɴó¿ÉСµÄ£¬ÎÒÃÇÒª´ïµ½µÄ¾³½çÊÇÈÃ֪ʶ¿É´ó¿ÉС£¬¾Í³ÌÐòÉè¼Æ¶øÑÔСµ½¾Í“³ÌÐòÉè¼Æ”Ëĸö×Ö£¬´óµ½Ëµ¼¸ÌìҲ˵²»Íê¡£¸úËïÎò¿ÕµÄ½ð¹¿°ôËÆµÄ£¬´óС×ÔÈç¡£
Ïà¹ØÎĵµ£º
Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Command1_Click() 'Ëø¶¨Êó±ê µ½Ä³Ò»Î»ÖÃ
......
Ò»¿ªÊ¼ ÒÔΪVBµÄÏß³Ì ²»ÊÇÏñÍøÉÏÈË˵µÄÄÇô´àÈõ¡£¡£¡£°¥ ÏÖÔÚÁìÂÔµ½ÁË¡£¡£¡£VPrivate Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Pri ......
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EX ......
×ö±ÏÒµÂÛÎĵÄʱºòÓöµ½µÄÒ»¸öÎÊÌ⣬Çë½Ì¶¹°êÉϵÄÍøÓѲÅÓÐÁ˴𰸡£Ð»Ð»Õâλ½Ð“Òì²Ê”µÄÅóÓÑ¡£ÄóöÀ´Óë´ó¼Ò·ÖÏí¡£
¡¡¡¡ÓÃVB×öͼÏñ´¦ÀíÈí¼þµÄ±ÏÒµÂÛÎÄ£¬Óöµ½Ò»¸öÎÊÌâ¡£¼ÓÔØÒ»·ùͼƬ£¬Óöà¸öÂ˾µ·Ö±ð´¦Àí£¬ÏëÒ»²½Ò»²½UNDOµ½×îÔʼµÄͼÏñ£¬¶à´ÎUNDOÔõôʵÏÖ?
²Î¿¼·½°¸£º
Èç¹ûÏë×öµ½¶à´ÎUND ......
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......