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

VBʵÀý —ÍòÄêÀú £¨1£©

1¡¢´´½¨¿Ø¼þ£ºlbl1¡¢txt1¡¢lbl2¡¢cmd1
2¡¢lbl1.caption=ÊäÈëÈÕÆÚ£¨ÈÎÒ»ÖÖÕýÈ·¸ñʽ£©£º
ÉèÖÃlbl1¡¢txt1¡¢lbl2¡¢cmd1µÄ×ÖÌå´óС¼°ÑÕÉ«£»
3¡¢Ë«»÷°´Å¥“È·ÈÏ”£¬Ìí¼Ó´úÂ룬Ч¹ûΪ£º
    Option Explicit
        Private Sub cmd1_Click()
            Dim a, b
            b = txt1.Text
            a = Weekday(b)
            Select Case a
              Case 1
                  lbl2.Caption = "ÐÇÆÚÈÕ"
              Case 2
                  lbl2.Caption = "ÐÇÆÚÒ»"
              Case 3
                  lbl2.Caption = "ÐÇÆÚ¶þ"
              Case 4
                  lbl2.Caption = "ÐÇÆÚÈý"
              Case 5
                  lbl2.Caption = "ÐÇÆÚËÄ"
              Case 6
                  lbl2.Caption = "ÐÇÆÚÎå"
              Case 7
 &nb


Ïà¹ØÎĵµ£º

VBÏÂEXECLµÄ²Ù×÷·½·¨

È«Ãæ¿ØÖÆ Excel
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) ÏÔʾµ±Ç°´°¿Ú£º
ExcelID.Visible := True;
2) ¸ü¸Ä Excel ±êÌâÀ¸£º
ExcelID.Caption := 'Ó¦ÓóÌÐòµ÷Óà Microsoft Excel';
3) Ìí¼Óй¤×÷²¾£º
ExcelID.WorkBooks.Add;
4) ´ò¿ªÒÑ´æÔÚµ ......

vb±ê×¼£¨Áù£©£ºÃüÃûÔ¼¶¨


·ÐÙÑÀÀû±ê¼Ç·¨
   ·Ê¹ÓÃ3×Ö·ûǰ׺À´±íʾÊý¾ÝÀàÐͺͿؼþÀàÐÍ
   ·3¸ö×Ö·û¿ÉÒÔʵÏÖ³ä·Ö¶à±äÐÔ£¬²¢Ê¹Ç°×ººÏºõÂß¼­ºÍÖ±¹Û
·±íʾ±äÁ¿µÄ×÷ÓÃÓò
   ·¿ÉÒÔ²¢ÇÒÓ¦¸ÃʹÓÃǰ׺À´±íʾ±äÁ¿µÄ×÷ÓÃÓò ......

vb±ê×¼£¨Æߣ©£ºÄ£¿éºÍ¹ý³Ì

·´´½¨¾ßÓкÜÇ¿ÄÚ¾ÛÁ¦µÄÄ£¿é
·´´½¨¸ü¼ÓÈÝÒ×µ÷ÊÔºÍά»¤µÄ¹ý³Ì
·´´½¨¸ß¶ÈרÓõĹý³Ì
·´´½¨ËÉÉ¢Á¬½ÓµÄ¹ý³Ì
·¾¡Á¿Ê¹¹ý³Ì¾ßÓжÀÁ¢ÐÔ
·Ìá¸ß¹ý³ÌµÄÉÈÈëÐÔ
·½µµÍ¹ý³ÌµÄÉȳöÐÔ
·±à³ÌÔ­Ôò
   ·Îª¹ý³ÌºÍÄ£¿é¸³Óè±íÒåÐÔÇ¿µÄÃû×Ö
   &middo ......

vb±ê×¼£¨Ò»£©£ºÓû§½çÃæµÄÉè¼Æ

·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔ­Ôò
    ·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐΪÌØÐÔ
         ·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......

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

VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨1£©
×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
 
        ¶¯Ì¬Á´½Ó¿â¾­³£±»ÈÏΪÊÇVC»òÕßDephiµÄרÀû£¬DLLÎļþ¿ÉÒÔ½«Äã±àдµÄº¯Êý¶¯Ì¬µÄ·¢²¼£¬²¢¿ÉÒÔ±»ÆäËû³ÌÐòºÜ·½±ãµÄµ÷Óá£
    &n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ