vb±ê×¼£¨¶þ£©£º´úÂëµÄ×¢ÊÍ
·×¢ÊÍÄÜʹעÊÍÄÜʹ´úÂë¸ü¼ÓÈÝÒ×Àí½â£¬¸ü¼ÓÈÝÒ׸ú×Ù¡£
·³öÉ«µÄ×¢Ê;ÍÏñÒ»·ùºÃµÄÉè¼ÆÀ¶Í¼£¬Äܹ»Òýµ¼ÔĶÁÕßͨ¹ýÄãµÄÓ¦ÓóÌÐòµÄÇúÕÛÖ®´¦£¬Äܹ»ËµÃ÷Ô¤ÆÚµÄÔËÐнá¹ûºÍ¿ÉÄܳöÏÖµÄÒì³£Çé¿ö¡£
·±à³ÌÔÔò
·ÓÃÎÄ×Ö˵Ã÷´úÂëµÄ×÷ÓÃ
·±àд·Ç³£³öÉ«µÄ×¢ÊÍ
·¼òµ¥µÄÖØ¸´´úÂë×öЩʲôûÓÐÒâÒå
·ÓÃ×¢ÊÍÀ´ËµÃ÷ºÎʱ¿ÉÄܳö´íºÍΪʲô³ö´í
·ÔÚ±àд´úÂëǰ½øÐÐ×¢ÊÍ
·±àдһ¸ö¹ý³ÌǰÊ×ÏÈдÉÏ×¢ÊÍ
·¿ÉÒÔ±àдÍêÕû¾ä×ÓµÄ×¢ÊÍ»òα´úÂë
·ÔöǿעÊ͵ĿɶÁÐÔ
·×¢ÊÍÊǹ©ÈËÔĶÁ£¬¶ø²»ÊǼÆËã»úÔĶÁµÄ£¬Ó¦¸Ã±ãÓÚÈËÃÇÀí½â
·Ê¹ÓÃÍêÕûÓï¾ä
·±ÜÃâʹÓÃËõд
·½«Õû¸öµ¥´Ê´óд£¬ÒÔÍ»³öËüÃǵÄÖØÒª
·¶Ô×¢ÊͽøÐÐËõ½ø£¬Ê¹Ö®ÓëºóËæµÄÓï¾ä¶ÔÆë
·ÎªÃ¿¸ö¹ý³Ì¸³ÓèÒ»¸ö×¢ÊͱêÍ·
·²ÉÓÃÏàͬµÄ¸ñʽ»¯·½·¨
·Ê¹ÓÃÄÚ²¿×¢ÊÍÀ´ËµÃ÷´úÂë½ø³Ì
·ÔÚÿ¸öifÓï¾äµÄÇ°Ãæ¼ÓÉÏ×¢ÊÍ
·ÔÚÿ¸öselect caseÓï¾äÇ°Ãæ¼ÓÉÏ×¢ÊÍ
·ÔÚÿ¸öÑ»·µÄÇ°Ãæ¼ÓÉÏ×¢ÊÍ
·ÔÚÐÞ¸ÄÁËÈ«¾Ö±äÁ¿µÄÿ¸öÓï¾äǰ¼ÓÉÏ×¢ÊÍ
Ïà¹ØÎĵµ£º
'******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ· ......
½«³¤Â·¾¶×ªÎª¶Ì·¾¶
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Function ShortPath(ByVal FileName As String) As String
Dim S As String
On Error GoTo exitFu ......
VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ ǰÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......
È«Ãæ¿ØÖÆ 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) ´ò¿ªÒÑ´æÔÚµ ......