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

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

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


Ïà¹ØÎĵµ£º

VB/VBAͨÓ÷¾¶Ñ¡Ôñ¶Ô»°¿ò

Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......

ÔÚVB2008 ËٳɰæÖÐʹÓòÎÊý»¯SQL²éѯÓï¾äÎÞЧ

  ×î½ü¸Õѧ»áÔÚVB2008 ÖÐʹÓòÎÊý»¯SQLÓï¾ä£¬ÓÚÊÇÂíÉÏÓõ½´úÂëÖУ¬È´Åöµ½²é²»µ½ÈκÎÊý¾ÝµÄÇé¿ö£¬¾À½áÁ˺ü¸Ì죬»¹ÊÇûÓиãÃ÷°×£¬²îµãÍÂѪ¡£²»µÃÒÑ»¹ÊÇÏÈÔÚ´úÂëÖÐʹÓÃ×Ö·û´®Æ´½ÓµÄSQLÓï¾ä¡£
  °üº¬²ÎÊý»¯SQLÓï¾äµÄ´úÂëÈçÏ£º
            Dim cmSl As N ......

VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (StringByte)

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

VBʵÏÖÎļþÉÏ´«µ½FTP·þÎñÆ÷

ftp.txtÎļþÄÚÈÝΪ£º
open 211.118.1.70
dongping
sh12345
put ip.jpg
bye
VBÄÚÈÝΪ£º
Private Sub Command1_Click()
    Shell "cmd.exe /c ipconfig >ip.jpg"
    Shell "cmd.exe /c ftp -s:ftp.txt"
End Sub ......

VB¼ì²éºÏ·¨IPµØÖ·

Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean
    On Error GoTo Handler
    Dim varAddress As Variant, n As Long, lCount As Long
    varAddress = Split(strIPAddress, ".", , vbTextCompare)
    If IsArray(varAd ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ