VBдµÃÒ»¸ö¼Çʱ¾
½ñÌìÓñà³ÌÓïÑÔVisual Basic£¨VB£©Ð´³ö×Ô¼ºµÄ¼Çʱ¾£¡¼ÇµÃ×Ô´ÓÉϴεÄÒ»¸öVB´òÔì¼òµ¥¼ÆËãÆ÷ºó¾ÍÔÙҲûÓÐдһЩС³ÌÐòÁË£¡½ñÌìÄØ£¬Ð´Ò»¸ö¼òµ¥µÄ¼Çʱ¾³ÌÐò°É£¡
¹¤¾ß£ºÒ»Ì¨¼ÆËã»ú£¨µçÄÔ£©¡££¨ÅäÖò»×öʲôҪÇó£¬ÏÖÔڵĻúÆ÷Ó¦¸ÃûÓÐÅäÖúܵ͵İɣ¡Ö»ÒªÄÜÔËÐÐVisual Basic 6.0¾ÍÐУ¡£©
VB¿ª·¢Æ½Ì¨£ºMicrosoft Visual Basic 6.0
Ê×ÏÈ£¬´ò¿ªMicrosoft Visual Basic 6.0 ½¨Ò»¸ö±ê×¼µÄEXE¹¤³Ì£¡ÔÚÕâ¸ö¼Çʱ¾±àд¹ý³ÌÖÐÐèÒªÖ÷ÒªµÄ5¸ö¿Ø¼þ£¬ËüÃÇ·Ö±ðÊÇ£ºRichTextBox¡¢ CommonDialog¡¢Toolbar¡¢ StatusBar¡¢ Timer¡¢ ImageList ¡£ ÔÚ³ÌÐòûÓпªÊ¼±àд֮ǰ°ÑÕâЩ¿Ø¼þ£¬Óɲ¿¼þÖмӳöÀ´£¡
ºÃÁË£¬ÏÖÔÚ¿ªÊ¼ÁË£¡ÎÒÃÇÊ×ÏÈ£¬ÏȰѲ˵¥½¨Á¢ºÃ£¬±ãÓÚÒÔºóд´úÂ룡¹¤¾ß——²Ëµ¥±à¼Æ÷ ¡£½¨Á¢Ò»Ï²˵¥Ñ¡Ï¶¥²ã²Ëµ¥£ºÎļþ£¨F£¬Ãû³Æ£ºmunfile£©¡¢±à¼£¨E£¬Ãû³Æ£ºmunedit£©¡¢¸ñʽ£¨O£¬Ãû³Æ£ºmunmat£©¡¢²é¿´£¨V£¬Ãû³Æ£ºmunlook£©¡¢ÑÕÉ«£¨B£¬Ãû³Æ£ºmuncolor£©¡¢ÏµÍ³Ñ¡Ïî(Ãû³Æ:munsystem)¡¢°ïÖú£¨H£¬Ãû³Æ£ºmunhelp£©¡£È»ºó½¨Á¢×Ӳ˵¥£º
Îļþ£¨F£¬Ãû³Æ£ºmunfile£©µÄ×Ӳ˵¥ÓУºÐ½¨£¨CTRL+N£¬Ãû³Æ£ºmunnew£©¡¢´ò¿ª£¨CTRL+O£¬Ãû³Æ£ºmunopen£©¡¢±£´æ£¨CTRL+S£¬Ãû³Æ£ºmun£©¡¢Áí´æÎª£¨CTRL+L£¬Ãû³Æ£ºmunlingc£©¡¢Í˳ö£¨CTRL+E£¬Ãû³Æ£ºmunexit£©
±à¼£¨E£¬Ãû³Æ£ºmunedit£©µÄ×Ӳ˵¥ÓУº¼ôÇУ¨CTRL+X£¬Ãû³Æ£ºmunjianq£©¡¢¸´ÖÆ£¨CTRL+C£¬Ãû³Æ£ºmuncopy£©¡¢Õ³Ìù£¨CTRL+V£¬Ãû³Æ£ºnumzhant£©¡¢É¾³ý£¨del£¬Ãû³Æ£ºmundelete£©¡¢È«Ñ¡£¨CTRL+A£¬Ãû³Æ£ºmunxall£©¡¢ÈÕÆÚ£¨CTRL+P£¬Ãû³Æ£ºmunnows£©¡¢²éÕÒ£¨CTRL+F£¬Ãû³Æ£ºmunfound£©¡¢²éÕÒÏÂÒ»¸ö(£¬Ãû³Æ£ºmunfindnext)
¸ñʽ£¨O£¬Ãû³Æ£ºmunmat£©µÄ×Ӳ˵¥ÓУº×ÖÌ壨CTRL+I,Ãû³Æ£ºmunfont£©
²é¿´£¨V£¬Ãû³Æ£ºmunlook£©µÄ×Ӳ˵¥ÓУºÎı¾³¤¶È£¨CTRL+GÃû³Æ£ºmunlenzhb)¡¢×´Ì¬À¸£¨Ãû³Æ£ºmunzhuangt£©
ÑÕÉ«£¨B£¬Ãû³Æ£ºmuncolor£©µÄ×Ӳ˵¥ÓУº×ÖÌåÑÕÉ«£¨CTRL+Q£¬Ãû³Æ£ºmunfontcolor£©¡¢±³¾°ÑÕÉ«£¨CTRL+D£¬Ãû³Æ£ºmunblackcolor£©
ϵͳѡÏî(Ãû³Æ£ºmunsystem)µÄ×Ӳ˵¥ÓУº×¢Ïú(Ãû³Æ£ºmunlog)¡¢ÖØÆô(Ãû³Æ£ºmunreboot)¡¢¹Ø»ú(Ãû³Æ£ºmunshut)¡¢È¡Ïû¹Ø»úÖ¸ÁÃû³Æ£ºmuncancelshut£©
Ïà¹ØÎĵµ£º
¡¡¡¡Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØÎ»,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷.ͬʱOCX ¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ³£³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµÄÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ× ......
ÌâÄ¿£ºÒ»¼ÒСÐͺ½¿Õ¹«Ë¾¸Õ¸Õ¹ºÂòÁËһ̨¼ÆËã»ú£¬ÒÔʹÓÃеĻúƱ×Ô¶¯Ô¤¶©ÏµÍ³£¬Õâ¼Ò¹«Ë¾ÒªÇóÎÒÃÇ¿ª·¢Õâ¸öÐÂϵͳ¡£ÎÒÃÇÐèÒª±àдһ¸öÓ¦ÓóÌÐò£¬¶ÔÕâ¼Òº½¿Õ¹«Ë¾Î¨Ò»µÄÒ»¼Ü·É»ú£¨ÈÝÁ¿Îª10¸ö×ù룩µÄÿ¸öº½°à·ÖÅä×ùλ¡£Õâ¸öÓ¦ÓóÌÐòÓ¦¸ÃÊäÈëÏÂÃæÕâЩѡÏÇëÊäÈë1Ñ¡ÔñÍ·µÈ²ÕºÍÇëÊäÈë2Ñ¡Ôñ¾¼Ã²Õ¡£Èç¹ûÓû§ÊäÈë1£¬Ó¦ÓóÌÐòÓ¦¸Ã·ÖÅäÒ ......
±¨¸æÊé
Ãû³Æ
ʵÑé10-1 ʵÏÖ¼ÆËãÆ÷µÄ¹¦ÄÜ
ÐÕÃû
Ö¸µ¼½Ìʦ
ѧºÅ
ÈÕÆÚ
ÈÎÎñÇåµ¥
ÔÚ±¾Á·Ï°ÖУ¬Ä㽫ʹ»æÖƵļÆËãÆ÷Íê³É¼òµ¥µÄËÄÔòÔËËã¡£
1) Æô¶¯Visual Studio 2005¡£
2) н¨Ò»¸öVB WindowsÓ ......
VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
Âíά·å
(maweifeng@263.net
)
1.
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍϰ¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1. ......
Ìí¼Ó
Á½¸öTEXT(multiline=true)
Ò»¸ö°´Å¥
Private Function isChinese(ByVal asciiv) As Boolean
a = AscW(asciiv)
If Len(Hex$(a)) > 2 Then
isChinese = True
Else
isChinese = False
End If
End Function
Private Sub Command1_Click()
text2.text="" 'ÏÈÇå¿Õtext2
For i = 1 To Len(Text1.Text)
DoEve ......