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¿Ø¼þ¹©ÎÒÃÇÔÚ±à³ÌÖÐʹÓÃͬʱ»¹¿ÉÒÔ°ÑËüË͸øÄãÖÜΧϲ»¶±à³ÌµÄÅóÓÑ!
ÏÂÃæÁгöÖÆ× ......
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open "Provider=OraOLEDB.Oracle.1;Persist Security Info= ......
ÌâÄ¿£ºÒ»¼ÒСÐͺ½¿Õ¹«Ë¾¸Õ¸Õ¹ºÂòÁËһ̨¼ÆËã»ú£¬ÒÔʹÓÃеĻúƱ×Ô¶¯Ô¤¶©ÏµÍ³£¬Õâ¼Ò¹«Ë¾ÒªÇóÎÒÃÇ¿ª·¢Õâ¸öÐÂϵͳ¡£ÎÒÃÇÐèÒª±àдһ¸öÓ¦ÓóÌÐò£¬¶ÔÕâ¼Òº½¿Õ¹«Ë¾Î¨Ò»µÄÒ»¼Ü·É»ú£¨ÈÝÁ¿Îª10¸ö×ù룩µÄÿ¸öº½°à·ÖÅä×ùλ¡£Õâ¸öÓ¦ÓóÌÐòÓ¦¸ÃÊäÈëÏÂÃæÕâЩѡÏÇëÊäÈë1Ñ¡ÔñÍ·µÈ²ÕºÍÇëÊäÈë2Ñ¡Ôñ¾¼Ã²Õ¡£Èç¹ûÓû§ÊäÈë1£¬Ó¦ÓóÌÐòÓ¦¸Ã·ÖÅäÒ ......
±¨¸æÊé
Ãû³Æ
ʵÑé10-1 ʵÏÖ¼ÆËãÆ÷µÄ¹¦ÄÜ
ÐÕÃû
Ö¸µ¼½Ìʦ
ѧºÅ
ÈÕÆÚ
ÈÎÎñÇåµ¥
ÔÚ±¾Á·Ï°ÖУ¬Ä㽫ʹ»æÖƵļÆËãÆ÷Íê³É¼òµ¥µÄËÄÔòÔËËã¡£
1) Æô¶¯Visual Studio 2005¡£
2) н¨Ò»¸öVB WindowsÓ ......
µ÷Ó÷½·¨ºÜ¼òµ¥£¬ÔÚFormÖÐÈçÏÂÊéд´úÂ룺
Private Sub Form_Load()
SetHotkey 1, "Ctrl,112", "Add" '°´ Ctrl+F1 ¼¤»îÖ¸¶¨³ÌÐò£¬F1µÄAsciiÂëΪ112
SetHotkey 2, 113, "Add" '°´ F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
SetHotkey 3, "Ctrl+Alt,113", "Add" '°´ Ctrl+Alt+F2 ¼¤»îÖ¸¶¨³ÌÐò£¬F2µÄAsciiÂëΪ113
End Sub
Priva ......