Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB
ÈÈÃűêÇ©£º c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 ×îÐÂÎÄÕ : vb

Ò½Ôº Ã×ÀÏʦ 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¿ÉÑ¡µÄÒª´òÓ¡µÄ±í´ïʽ£¬ÈçÊ¡ÂÔ£¬Ôò´òÓ¡Ò»Ðпհ×ÐС£
ÈýÕßÎÒÖ»¿´µ½ÐÎʽºÍ¹¦ÄÜÉϵÄÏàËÆ£¬²¢Ã»ÓÐÉËûÃÇ ......

VB ²ÜʦÐÖÃæÊÔ ¼ÍÂÉÓëѧϰ

¹ØÓÚ²ÜʦÐÖÕÒ¹¤×÷£º
ÔÚÕÒ¹¤×÷¹ý³ÌÖУº
1¡¢ ¹Û²ìÁ¦¡£ÃæÊÔʱ¿´¼ûÖÐÄÏÈÚͨµÄºá·ù“×îС»¯ÄãºÍ¿Í»§µÄ¾àÀ룬×î´ó»¯ÄãºÍ¿Í»§µÄÀûÒ攣¬Ë³¶øºÍÃæÊÔ¹ÙÌÖÂÛËûÃǹ«Ë¾µÄÎÄ»¯ºÍÀíÄ»á¶ÔÄãӦƸÓкܴó°ïÖú¡£ÕÒ¹¤×÷ʱµÄ±ÊÊÔ»ù´¡¶¼²î²»¶à£¬ÖØÒªµÄÊǺÍÀÏ×ܵÄÃæÊÔ£¬¹«Ë¾¸ü×¢ÖصÄÊÇÄãÊÇÈçºÎ×öÈ˵ĺÍÄã¶ÔÒµÎñµÄÀí½â¡£ËùÒÔ£¬ÔÚÒÔºóµÄѧϰºÍÉú»îÖжàΪ±ðÈË×ÅÏ룬“ÈËÈËΪÎÒ£¬ÎÒΪÈËÈË¡£”£¬ÑÛ½çºÍÐÄÐØÒª¿í¹ãÒ»µã¶ù¡£Ñ§Ï°Èí¼þºó°ÑËûµÄÒµÎñÁ÷Ãþ͸£¬ºê¹ÛµÄ¿´´ý֪ʶ¡£
2¡¢ ½»Á÷ÄÜÁ¦¡£¹¤×÷ÖУ¬×Ô¼ºÓëͬʵķ½·¨ºÍ˼ά¼Ü¹¹²»Í¬£¬ÕâʱÐèÒªÌÖÂÛ³öÒ»¸ö×îÓÅ·½°¸ºÍ½â¾ö°ì·¨¡£Èç¹û×Ô¼ºµÄÏë·¨better£¬ÄÇô¾Í¾¡×Ô¼º×î´óŬÁ¦Ëµ·þ¶Ô·½£¬Ê¼Öհѹ«Ë¾µÄÀûÒæ·ÅÔÚÊ×λ¡£
3¡¢ ×Ô¼ºÊÇǧÀïÂí£¬²»ÅÂÓö²»µ½²®ÀÖ¡£ÍõÏòÑôʦÐÖ½«×Ô¼ºµÄ¼òÀúͶÔÚÍøÉϺ󣬱»Ò»¼Ò¹«Ë¾Íøµ½£¨ÒòΪ×Ô¼ºÒÔÇ°×öµÄÒ»¸öÏîÄ¿µÄ¾­Ñ飬ÏÖÔÚÕýÊǸù«Ë¾ÐèÒªµÄ£©£¬Ìá³öÁ˱ÈÏÖ¹¤×ʸü¸ßµÄ´ýÓö¡£Õâ˵Ã÷“Êǽð×Ó×ܻᷢ¹âµÄ”
4¡¢ ÏÖÔÚÒªÕÆÎÕµÄÊÇѧϰµÄÄÜÁ¦¡£Ïֽ׶εÄѧϰҲÐíÓëδÀ´µÄ¹¤×÷ÐèÇóÏà¹ØΪ0£¬Ë­Ò²²»¿ÉÄÜÏÖÔھͰÑÒÔºó¹¤×÷ÒªÓõ½µÄÏȽø¼¼Êõѧµ½ÊÖ£¬×Ô¼ºÏÖÔÚѧµÄ֪ʶҲÐí²»ÊÇÖ÷Á÷¼¼Êõ£¬µ«ÊÇÈ´ÊÇÒÔºó¹¤×÷ÖÐѧϰµÄ»ù´¡¡£ÍõÏòÑ ......

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢¡°±ê×¼¡±DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨1£©

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°É¡£
 
      ......

VB —ÍòÄêÀúʵÀý (2)

Éϼ¯ÖÐÖ»ÊÇÏÔʾÐÇÆÚ¼¸£¬²»¹»È«Ã棬ÍêÉƺóÈçÏ£º
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 ......

VBʵÀý —ÍòÄêÀú (3)

Ô­À´µÄ´íÎóÊÇ£º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 = "ÐÇÆÚ¶þ"
       ......

VB ѧϰ¹ý³ÌºÍ·½·¨

      µÚÒ»´ÎÕýʽȥÉÏÃ×ÀÏʦµÄ¿Î£¬Õâ´ÎÊǺ®¼ÙÀ´ºóµÄµÚÒ»½Ú¿Î£¬ÄÚÈÝÖ÷ÒªÊǽ»Á÷һϺ®¼ÙµÄѧϰÇé¿ö¡£
      Ê×ÏÈÊÇÑÔÐÐÎÊÌ⣺ȥ»ú·¿ÉÏ¿Îʱ£¬´øÐØÅÆ¡¢±Ê¼Ç±¾¡¢±Ê¡¢¡¶Visual Basic ³ÌÐòÉè¼Æ¡·¡¢Ð¬Ìס¢ÑÛ¾µ£¬ÊÖ»úÄܲ»´ø¾Í²»´ø£»±ðÈË·¢ÑÔʱ£¬ÏÔʾÆ÷¹Øµô£¬ÃæÏò¶Ô·½ÒÔʾ×ð¾´¡£
7ÆÚµÄͬѧÃÇÔÚº®¼ÙÖÐÒ²Óöµ½ºÜ¶àÀ§»ó¡£
      ÎÒ×ܽáËùÓÐÎÊÌâÈçÏ£º
       ѧϰ²½Ö裺
       1¡¢ÏÈ¿´VB°ÙÀý£¬ÅäºÏ×ÊÁÏÊ顶VB³ÌÐòÉè¼Æ¡·¡££¨Ê±¼äͶÈë30%£©°Ñ¿Ø¼þµÄһЩ»ù±¾ÊôÐԺͷ½·¨¡¢Ê¼þ¸ãÇå³þ¡£°ÙÀýÖеÄÀý×Ó¾¡Á¿×Ô¼ºÊµÏÖ£¬Èç¹ûÏë²»³öÀ²£¬¸Ï½ô¿´ÊµÀýÔ´Îļþ£¬ÇôúÂ룬ʵÏÖºó°ÑʵÀý±³¹ý¡£
       2¡¢¿´¼ª´óÊÓƵ£¬±ß¿´±ß×öÏà¹ØʵÀý¡££¨Ê±¼äͶÈë70%£©¼ª´óÊÓƵ±È½ÏϵͳȫÃ棬ÊÇÃ×ÀÏʦ¸Ð¾õ×îÈ«ÃæµÄÊÓƵ½Ì³Ì¡£
       3¡¢×¢ÒâMSDNºÍµç×ӴʵäµÄʹÓá£ÆÚÄ©Ã×ÀÏʦ»á¸øÓ¢ÎÄ×ÊÁÏ£¬Ó¦ÔÚÓöµ½Ä°Éúµ¥´ÊµÄÏÂÒ»ÃëÀí½â“ÏûÃðµô”£¬²»ÍÏÑÓʱ¼ä
Ã×ÀÏʦÀ´ºóÖ¸³öͬѧÃǵĹ²ÐÔÎÊÌâÊÇûÈëÃÅÓÐÁ½µã£º1¡¢V ......
×ܼǼÊý:380; ×ÜÒ³Êý:64; ÿҳ6 Ìõ; Ê×Ò³ ÉÏÒ»Ò³ [14] [15] [16] [17] 18 [19] [20] [21] [22] [23]  ÏÂÒ»Ò³ βҳ
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ