×òÌìÏÂÎçÎÒºÍСÅÖ±»Ã×ÀÏʦ´«»½µ½ÊÐҽԺȥ£¬Ã×ÀÏʦÏëÌýÌýËûÖÜÁùÉϵĿζÔÎÒµÄÓ°ÏìÓжà´ó£¬ÎһشðµÄ»ù±¾ÄÚÈݺ͡¶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¿ÉÑ¡µÄÒª´òÓ¡µÄ±í´ïʽ£¬ÈçÊ¡ÂÔ£¬Ôò´òÓ¡Ò»Ðпհ×ÐС£
ÈýÕßÎÒÖ»¿´µ½ÐÎʽºÍ¹¦ÄÜÉϵÄÏàËÆ£¬²¢Ã»ÓÐÉËûÃÇ ......
¹ØÓÚ²ÜʦÐÖÕÒ¹¤×÷£º
ÔÚÕÒ¹¤×÷¹ý³ÌÖУº
1¡¢ ¹Û²ìÁ¦¡£ÃæÊÔʱ¿´¼ûÖÐÄÏÈÚͨµÄºá·ù“×îС»¯ÄãºÍ¿Í»§µÄ¾àÀ룬×î´ó»¯ÄãºÍ¿Í»§µÄÀûÒ攣¬Ë³¶øºÍÃæÊÔ¹ÙÌÖÂÛËûÃǹ«Ë¾µÄÎÄ»¯ºÍÀíÄ»á¶ÔÄãӦƸÓкܴó°ïÖú¡£ÕÒ¹¤×÷ʱµÄ±ÊÊÔ»ù´¡¶¼²î²»¶à£¬ÖØÒªµÄÊǺÍÀÏ×ܵÄÃæÊÔ£¬¹«Ë¾¸ü×¢ÖصÄÊÇÄãÊÇÈçºÎ×öÈ˵ĺÍÄã¶ÔÒµÎñµÄÀí½â¡£ËùÒÔ£¬ÔÚÒÔºóµÄѧϰºÍÉú»îÖжàΪ±ðÈË×ÅÏ룬“ÈËÈËΪÎÒ£¬ÎÒΪÈËÈË¡£”£¬ÑÛ½çºÍÐÄÐØÒª¿í¹ãÒ»µã¶ù¡£Ñ§Ï°Èí¼þºó°ÑËûµÄÒµÎñÁ÷Ãþ͸£¬ºê¹ÛµÄ¿´´ý֪ʶ¡£
2¡¢ ½»Á÷ÄÜÁ¦¡£¹¤×÷ÖУ¬×Ô¼ºÓëͬʵķ½·¨ºÍ˼ά¼Ü¹¹²»Í¬£¬ÕâʱÐèÒªÌÖÂÛ³öÒ»¸ö×îÓÅ·½°¸ºÍ½â¾ö°ì·¨¡£Èç¹û×Ô¼ºµÄÏë·¨better£¬ÄÇô¾Í¾¡×Ô¼º×î´óŬÁ¦Ëµ·þ¶Ô·½£¬Ê¼Öհѹ«Ë¾µÄÀûÒæ·ÅÔÚÊ×λ¡£
3¡¢ ×Ô¼ºÊÇǧÀïÂí£¬²»ÅÂÓö²»µ½²®ÀÖ¡£ÍõÏòÑôʦÐÖ½«×Ô¼ºµÄ¼òÀúͶÔÚÍøÉϺ󣬱»Ò»¼Ò¹«Ë¾Íøµ½£¨ÒòΪ×Ô¼ºÒÔÇ°×öµÄÒ»¸öÏîÄ¿µÄ¾Ñ飬ÏÖÔÚÕýÊǸù«Ë¾ÐèÒªµÄ£©£¬Ìá³öÁ˱ÈÏÖ¹¤×ʸü¸ßµÄ´ýÓö¡£Õâ˵Ã÷“Êǽð×Ó×ܻᷢ¹âµÄ”
4¡¢ ÏÖÔÚÒªÕÆÎÕµÄÊÇѧϰµÄÄÜÁ¦¡£Ïֽ׶εÄѧϰҲÐíÓëδÀ´µÄ¹¤×÷ÐèÇóÏà¹ØΪ0£¬ËÒ²²»¿ÉÄÜÏÖÔھͰÑÒÔºó¹¤×÷ÒªÓõ½µÄÏȽø¼¼Êõѧµ½ÊÖ£¬×Ô¼ºÏÖÔÚѧµÄ֪ʶҲÐí²»ÊÇÖ÷Á÷¼¼Êõ£¬µ«ÊÇÈ´ÊÇÒÔºó¹¤×÷ÖÐѧϰµÄ»ù´¡¡£ÍõÏòÑ ......
VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨1£©
×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
¶¯Ì¬Á´½Ó¿â¾³£±»ÈÏΪÊÇVC»òÕßDephiµÄרÀû£¬DLLÎļþ¿ÉÒÔ½«Äã±àдµÄº¯Êý¶¯Ì¬µÄ·¢²¼£¬²¢¿ÉÒÔ±»ÆäËû³ÌÐòºÜ·½±ãµÄµ÷Óá£
ÓÐÅóÓÑ»áÎÊÁË£¬ÔÚVBÀïÃæ²»ÊÇÓÐÒ»¸ö½Ð×ö“ActiveX DLL”µÄÏîÄ¿ÀàÐÍÂð£¬Éú³ÉµÄÎļþ×îÖÕÒ²ÊÇ“DLL”Îļþ°¡£¿
û´í£¬×îÖÕÎļþȷʵÊÇDLLÎļþ£¬µ«ÆäʵÑϸñÒâÒåÉÏVB½¨Á¢µÄDLL²¢²»ÊÇÏñVCÒ»ÑùµÄ¶¯Ì¬Á´½Ó¿â£¬VB½¨Á¢µÄÊÇActiveX DLL£¬²»ÄÜÏñkernel32.dll”ÄÇÑùͨ¹ý“Declare Function .....”À´µ÷Óõġ£
±¾ÎÄÖн«Ïêϸ½²½âÓÃVBÉú³ÉÒ»¸öDLL¶¯Ì¬Á´½Ó¿âÎļþµÄ·½·¨£¬Çë×¢Ò⣬±¾ÎĽ«Ïêϸ½²ÊöÉú³ÉÒ»¸öÏñVCµÄ¶¯Ì¬Á´½Ó¿âÎļþ£¬²¢ÇÒµ÷Ó÷½·¨Ò²ÊÇÓÓDeclare Function .....”À´µ÷Óá£
ºÃ£¬ÄÇôÎÒÃÇÀ´½¨Á¢Ò»¸öDLL°É¡£
......
Éϼ¯ÖÐÖ»ÊÇÏÔʾÐÇÆÚ¼¸£¬²»¹»È«Ã棬ÍêÉƺóÈçÏ£º
1¡¢´´½¨lbl1¡¢lbl2¡¢lbl3¡¢txt1¡¢cmd1¡¢Timer1
2¡¢lbl£º“ÊäÈëÄêÔÂÈÕ£¨Èç2000-8-16£©£º”£¬ÉèÖÃlbl¡¢txt1¡¢cmd1µÄ×ÖÌå´óСºÍÑÕÉ«¡£Timer1µÄEnableÊôÐÔÉèΪFalse£¬IntervalÊôÐÔÉèΪ£º1000¡£
3¡¢Ë«»÷cmd1£¬½øÈë´úÂë±à¼´°¿Ú£¬ÇÃÈ룺
Private Sub Timer1_Timer()
Dim c As Date
c = Time
lbl3.Caption = CStr(c)
End Sub
——————————————————
Private Sub cmd_Click()
If txt1.Text = "" Then
MsgBox "ÇëÊäÈëÄêÔÂÈÕ£¡", , "´íÎó£¡"
lbl2.Caption = ""
Exit Sub
End If
Timer1.Enabled = True
Dim a, b
b = Val(txt1.Text)
&nbs ......
ÔÀ´µÄ´íÎóÊÇ£ºTimer1µÄEnabledÊôÐÔÉèΪTrue¡£
´úÂë´íÎóÊÇ£º
Private Sub Timer1_Timer()
Dim c As Date
c = Time
lbl3.Caption = CStr(c)
End Sub
————————————————————
Private Sub cmd1_Click()
Dim a, b
b = Val(txt1.Text)
a = Weekday(b)
Select Case a
Case 1
lbl2.Caption = "ÐÇÆÚÈÕ"
Case 2
lbl2.Caption = "ÐÇÆÚÒ»"
Case 3
lbl2.Caption = "ÐÇÆÚ¶þ"
  ......
µÚÒ»´ÎÕýʽȥÉÏÃ×ÀÏʦµÄ¿Î£¬Õâ´ÎÊǺ®¼ÙÀ´ºóµÄµÚÒ»½Ú¿Î£¬ÄÚÈÝÖ÷ÒªÊǽ»Á÷һϺ®¼ÙµÄѧϰÇé¿ö¡£
Ê×ÏÈÊÇÑÔÐÐÎÊÌ⣺ȥ»ú·¿ÉÏ¿Îʱ£¬´øÐØÅÆ¡¢±Ê¼Ç±¾¡¢±Ê¡¢¡¶Visual Basic ³ÌÐòÉè¼Æ¡·¡¢Ð¬Ìס¢ÑÛ¾µ£¬ÊÖ»úÄܲ»´ø¾Í²»´ø£»±ðÈË·¢ÑÔʱ£¬ÏÔʾÆ÷¹Øµô£¬ÃæÏò¶Ô·½ÒÔʾ×ð¾´¡£
7ÆÚµÄͬѧÃÇÔÚº®¼ÙÖÐÒ²Óöµ½ºÜ¶àÀ§»ó¡£
ÎÒ×ܽáËùÓÐÎÊÌâÈçÏ£º
ѧϰ²½Ö裺
1¡¢ÏÈ¿´VB°ÙÀý£¬ÅäºÏ×ÊÁÏÊ顶VB³ÌÐòÉè¼Æ¡·¡££¨Ê±¼äͶÈë30%£©°Ñ¿Ø¼þµÄһЩ»ù±¾ÊôÐԺͷ½·¨¡¢Ê¼þ¸ãÇå³þ¡£°ÙÀýÖеÄÀý×Ó¾¡Á¿×Ô¼ºÊµÏÖ£¬Èç¹ûÏë²»³öÀ²£¬¸Ï½ô¿´ÊµÀýÔ´Îļþ£¬ÇôúÂ룬ʵÏÖºó°ÑʵÀý±³¹ý¡£
2¡¢¿´¼ª´óÊÓƵ£¬±ß¿´±ß×öÏà¹ØʵÀý¡££¨Ê±¼äͶÈë70%£©¼ª´óÊÓƵ±È½ÏϵͳȫÃ棬ÊÇÃ×ÀÏʦ¸Ð¾õ×îÈ«ÃæµÄÊÓƵ½Ì³Ì¡£
3¡¢×¢ÒâMSDNºÍµç×ӴʵäµÄʹÓá£ÆÚÄ©Ã×ÀÏʦ»á¸øÓ¢ÎÄ×ÊÁÏ£¬Ó¦ÔÚÓöµ½Ä°Éúµ¥´ÊµÄÏÂÒ»ÃëÀí½â“ÏûÃðµô”£¬²»ÍÏÑÓʱ¼ä
Ã×ÀÏʦÀ´ºóÖ¸³öͬѧÃǵĹ²ÐÔÎÊÌâÊÇûÈëÃÅÓÐÁ½µã£º1¡¢V ......