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

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£©


Ïà¹ØÎĵµ£º

ÀûÓÃVB×ÔÖÆOCX¿Ø¼þ

¡¡¡¡Èç½ñOCX¿Ø¼þÔÚ±à³ÌÖÐÒÑÕ¼ÁìÁ˺ÜÖØÒªµÄµØÎ»,ÎÒÃÇ¿ÉÒÔÀûÓÃOCX¿Ø¼þÍê³ÉһЩÏ൱¸´Ôӵıà³Ì²Ù×÷.ͬʱOCX ¿Ø¼þ»¹ÓÐÀûÓÚÖ÷³ÌÐòµÄ¼òµ¥»¯¡¢¹¦ÄܵÄÖØÓá¢Òþ³£³ÌÐòʵÏÖϸ½Ú¡¢±ãÓÚÉý¼¶¡¢´«²¥·½±ãµÈÓŵ㡣ÏÖÔÚÎÒÃÇ¿ÉÒÔÀûÓÃVB 5.0·½±ãµÄÖÆ×÷³ö×Ô¼ºµÄOCX¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ× ......

vb »úƱ¶©¹ºÏµÍ³

ÌâÄ¿£ºÒ»¼ÒСÐͺ½¿Õ¹«Ë¾¸Õ¸Õ¹ºÂòÁËһ̨¼ÆËã»ú£¬ÒÔʹÓÃеĻúƱ×Ô¶¯Ô¤¶©ÏµÍ³£¬Õâ¼Ò¹«Ë¾ÒªÇóÎÒÃÇ¿ª·¢Õâ¸öÐÂϵͳ¡£ÎÒÃÇÐèÒª±àдһ¸öÓ¦ÓóÌÐò£¬¶ÔÕâ¼Òº½¿Õ¹«Ë¾Î¨Ò»µÄÒ»¼Ü·É»ú£¨ÈÝÁ¿Îª10¸ö×ù룩µÄÿ¸öº½°à·ÖÅä×ùλ¡£Õâ¸öÓ¦ÓóÌÐòÓ¦¸ÃÊäÈëÏÂÃæÕâЩѡÏÇëÊäÈë1Ñ¡ÔñÍ·µÈ²ÕºÍÇëÊäÈë2Ñ¡Ôñ¾­¼Ã²Õ¡£Èç¹ûÓû§ÊäÈë1£¬Ó¦ÓóÌÐòÓ¦¸Ã·ÖÅäÒ ......

ÓÃvbʵÏÖ¼ÆËã»ú¹¦ÄÜ


±¨¸æÊé
Ãû³Æ
ʵÑé10-1 ʵÏÖ¼ÆËãÆ÷µÄ¹¦ÄÜ
ÐÕÃû
 
Ö¸µ¼½Ìʦ
 
ѧºÅ
 
ÈÕÆÚ
 
ÈÎÎñÇåµ¥
ÔÚ±¾Á·Ï°ÖУ¬Ä㽫ʹ»æÖƵļÆËãÆ÷Íê³É¼òµ¥µÄËÄÔòÔËËã¡£
1)        Æô¶¯Visual Studio 2005¡£
2)        н¨Ò»¸öVB WindowsÓ ......

VBÃüÃû¹æÔò¼°´úÂë¹æ·¶

VBA
ÃüÃû¹æÔò¼°´úÂë¹æ·¶
 
Âíά·å
(maweifeng@263.net
)
 
1.      
VBA
ÃüÃû¹æÔò
Ò»¸öºÃµÄÃüÃû¹æÔò¿ÉÒÔÌá¸ß³ÌÐòµÄ¿É¶ÁÐÔ£¬¼õÉÙ´íÎó·¢ÉúµÄ¸ÅÂÊ£¬ÃüÃû¹æÔò²»ÊÇÒ»¶¨µÄ£¬²»Í¬µÄÈËÓв»Í¬µÄ¹æÔòºÍϰ¹ß£¬µ«ÔÚ±à³Ì¹ý³ÌÖУ¬¶ÔÓÚ¸öÈË»ò¹¤×÷×飬һ¶¨Òª×ñÊØÏàͬµÄÃüÃû¹æÔò¡£
1.1. ......

VB¹ýÂËÖÐÎÄ×Ö·û´®Ô´Âë

Ìí¼Ó
Á½¸ö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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ