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

vb±ê×¼£¨¶þ£©£º´úÂëµÄ×¢ÊÍ

·×¢ÊÍÄÜʹעÊÍÄÜʹ´úÂë¸ü¼ÓÈÝÒ×Àí½â£¬¸ü¼ÓÈÝÒ׸ú×Ù¡£
·³öÉ«µÄ×¢Ê;ÍÏñÒ»·ùºÃµÄÉè¼ÆÀ¶Í¼£¬Äܹ»Òýµ¼ÔĶÁÕßͨ¹ýÄãµÄÓ¦ÓóÌÐòµÄÇúÕÛÖ®´¦£¬Äܹ»ËµÃ÷Ô¤ÆÚµÄÔËÐнá¹ûºÍ¿ÉÄܳöÏÖµÄÒì³£Çé¿ö¡£
·±à³ÌÔ­Ôò
   ·ÓÃÎÄ×Ö˵Ã÷´úÂëµÄ×÷ÓÃ
      ·±àд·Ç³£³öÉ«µÄ×¢ÊÍ
      ·¼òµ¥µÄÖØ¸´´úÂë×öЩʲôûÓÐÒâÒå
   ·ÓÃ×¢ÊÍÀ´ËµÃ÷ºÎʱ¿ÉÄܳö´íºÍΪʲô³ö´í
   ·ÔÚ±àд´úÂëǰ½øÐÐ×¢ÊÍ
      ·±àдһ¸ö¹ý³ÌǰÊ×ÏÈдÉÏ×¢ÊÍ
      ·¿ÉÒÔ±àдÍêÕû¾ä×ÓµÄ×¢ÊÍ»òα´úÂë
   ·ÔöǿעÊ͵ĿɶÁÐÔ
      ·×¢ÊÍÊǹ©ÈËÔĶÁ£¬¶ø²»ÊǼÆËã»úÔĶÁµÄ£¬Ó¦¸Ã±ãÓÚÈËÃÇÀí½â
      ·Ê¹ÓÃÍêÕûÓï¾ä
      ·±ÜÃâʹÓÃËõд
      ·½«Õû¸öµ¥´Ê´óд£¬ÒÔÍ»³öËüÃǵÄÖØÒª
   ·¶Ô×¢ÊͽøÐÐËõ½ø£¬Ê¹Ö®ÓëºóËæµÄÓï¾ä¶ÔÆë
   ·ÎªÃ¿¸ö¹ý³Ì¸³ÓèÒ»¸ö×¢ÊͱêÍ·
      ·²ÉÓÃÏàͬµÄ¸ñʽ»¯·½·¨
   ·Ê¹ÓÃÄÚ²¿×¢ÊÍÀ´ËµÃ÷´úÂë½ø³Ì
      ·ÔÚÿ¸öifÓï¾äµÄÇ°Ãæ¼ÓÉÏ×¢ÊÍ
      ·ÔÚÿ¸öselect caseÓï¾äÇ°Ãæ¼ÓÉÏ×¢ÊÍ
      ·ÔÚÿ¸öÑ­»·µÄÇ°Ãæ¼ÓÉÏ×¢ÊÍ
      ·ÔÚÐÞ¸ÄÁËÈ«¾Ö±äÁ¿µÄÿ¸öÓï¾äǰ¼ÓÉÏ×¢ÊÍ
            


Ïà¹ØÎĵµ£º

VB¶ÁдINIÎļþ

  '******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ· ......

VB ½«³¤Â·¾¶×ªÎª¶Ì·¾¶ & »ñÈ¡¼ôÕ³°åÖеÄÎļþµÄÁбí

½«³¤Â·¾¶×ªÎª¶Ì·¾¶
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 ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (StringByte)

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ ǰÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо­³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......

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) ´ò¿ªÒÑ´æÔÚµ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ