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
Ïà¹ØÎĵµ£º
È«Ãæ¿ØÖÆ 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) ´ò¿ªÒÑ´æÔÚµ ......
·ÐÙÑÀÀû±ê¼Ç·¨
·Ê¹ÓÃ3×Ö·ûǰ׺À´±íʾÊý¾ÝÀàÐͺͿؼþÀàÐÍ
·3¸ö×Ö·û¿ÉÒÔʵÏÖ³ä·Ö¶à±äÐÔ£¬²¢Ê¹Ç°×ººÏºõÂß¼ºÍÖ±¹Û
·±íʾ±äÁ¿µÄ×÷ÓÃÓò
·¿ÉÒÔ²¢ÇÒÓ¦¸ÃʹÓÃǰ׺À´±íʾ±äÁ¿µÄ×÷ÓÃÓò ......
·´´½¨¾ßÓкÜÇ¿ÄÚ¾ÛÁ¦µÄÄ£¿é
·´´½¨¸ü¼ÓÈÝÒ×µ÷ÊÔºÍά»¤µÄ¹ý³Ì
·´´½¨¸ß¶ÈרÓõĹý³Ì
·´´½¨ËÉÉ¢Á¬½ÓµÄ¹ý³Ì
·¾¡Á¿Ê¹¹ý³Ì¾ßÓжÀÁ¢ÐÔ
·Ìá¸ß¹ý³ÌµÄÉÈÈëÐÔ
·½µµÍ¹ý³ÌµÄÉȳöÐÔ
·±à³ÌÔÔò
·Îª¹ý³ÌºÍÄ£¿é¸³Óè±íÒåÐÔÇ¿µÄÃû×Ö
&middo ......
·½çÃæÉè¼Æ±ØÐë±£³ÖÒ»ÖÂ
·Á½¸ö³ÌÐòÖ®¼äµÄÌØÐԾ߱¸¹²ÐÔ
·ºÍwindowsÓ¦ÓóÌÐòµÄ¿ì½Ý¼üÊÇÒ»ÖµÄ
·±à³ÌÔÔò
·Îª´°Ì帳ÓèͳһµÄÍâ¹ÛºÍÐÐΪÌØÐÔ
·Èç¹û´°ÌåµÄ´óС¸Ä±äʱ£¬Ëü²»¸Ä±äÆäÄÚÈݵĴóС£¬ÄÇô±ß¿ò¾Í²»Ó ......
VBÎÞËù²»ÄÜÖ®Î壺½¨Á¢“±ê×¼”DLL¶¯Ì¬Á´½Ó¿âÎļþ£¨1£©
×÷ÕߣºÖÓÉù
²©¿ÍµØÖ·£ºhttp://blog.csdn.net/useway
¶¯Ì¬Á´½Ó¿â¾³£±»ÈÏΪÊÇVC»òÕßDephiµÄרÀû£¬DLLÎļþ¿ÉÒÔ½«Äã±àдµÄº¯Êý¶¯Ì¬µÄ·¢²¼£¬²¢¿ÉÒÔ±»ÆäËû³ÌÐòºÜ·½±ãµÄµ÷Óá£
&n ......