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

Ò½Ôº Ã×ÀÏʦ 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Ƚϳ£¼û¡£ÏÖÔڵĴóѧѧ¿Æ¶¼»®Öص㣬ÆäÊµÖØµãÊÇʲô£¬¾ÍÊÇÈËÃǾ­³£¼ûµ½ºÍÓõ½µÄ¶«Î÷£¬ÕâÑùÒ»»®¾Í°Ñ֪ʶ¶¼¹ÂÁ¢ÁË£¬Ñ§Ï°Ö®Öиù±¾Ã»ÓÐÊ²Ã´ÖØµã£¬ÎÒÃÇ¿´ÎÊÌâÒªÈ«Ãæ£¬²»Òª¹ÂÁ¢µØ¿´”˵ÅÖ×ÓʱÌáµ½ÁË¡¶Î÷Óμǡ·£¬ÖªÊ¶Êǿɴó¿ÉСµÄ£¬ÎÒÃÇÒª´ïµ½µÄ¾³½çÊÇÈÃ֪ʶ¿É´ó¿ÉС£¬¾Í³ÌÐòÉè¼Æ¶øÑÔСµ½¾Í“³ÌÐòÉè¼Æ”Ëĸö×Ö£¬´óµ½Ëµ¼¸ÌìҲ˵²»Íê¡£¸úËïÎò¿ÕµÄ½ð¹¿°ôËÆµÄ£¬´óС×ÔÈç¡£


Ïà¹ØÎĵµ£º

vb Ëø¶¨Êó±êµ½Ä³Ò»Î»ÖÃ

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 Ïß³Ì ÕæµÄ²»ÐÐ

Ò»¿ªÊ¼ ÒÔΪ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 ......

VBдע²á±íÆô¶¯Ïî


    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ÈçºÎʵÏÖ

×ö±ÏÒµÂÛÎĵÄʱºòÓöµ½µÄÒ»¸öÎÊÌ⣬Çë½Ì¶¹°êÉϵÄÍøÓѲÅÓÐÁ˴𰸡£Ð»Ð»Õâλ½Ð“Òì²Ê”µÄÅóÓÑ¡£ÄóöÀ´Óë´ó¼Ò·ÖÏí¡£
¡¡¡¡ÓÃVB×öͼÏñ´¦ÀíÈí¼þµÄ±ÏÒµÂÛÎÄ£¬Óöµ½Ò»¸öÎÊÌâ¡£¼ÓÔØÒ»·ùͼƬ£¬Óöà¸öÂ˾µ·Ö±ð´¦Àí£¬ÏëÒ»²½Ò»²½UNDOµ½×îԭʼµÄͼÏñ£¬¶à´ÎUNDOÔõôʵÏÖ?
 
 
²Î¿¼·½°¸£º
 
Èç¹ûÏë×öµ½¶à´ÎUND ......

vb±ê×¼£¨Ò»£©£ºÓû§½çÃæµÄÉè¼Æ

·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔ­Ôò
    ·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐÎªÌØÐÔ
         ·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ