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

VB±éÀúµ±Ç°Ä¿Â¼

Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()

currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))

End Sub
Function SeachFolder(str As String)
Dim itemFolder
Dim curFolder As Folder
Set curFolder = FSO.GetFolder(str)

Dim itemFile
For Each itemFolder In curFolder.SubFolders
SeachFolder (CStr(itemFolder))
Me.Text1.Text = Me.Text1.Text & itemFolder & Chr(13) & Chr(10)
For Each itemFile In itemFolder.Files
Me.Text1.Text = Me.Text1.Text & itemFile & Chr(13) & Chr(10)
Next
Next

End Function
×¢£º ÒªÓÃFSO£¬ÐèÒªÒýÓÃMicrosoft Scripting Runtime£¬´°ÌåÉÏÒª·ÅÒ»¸ötext¿Ø¼þ£¬ÓÃÀ´ÏÔʾ¡£


Ïà¹ØÎĵµ£º

VBÖиù¾ÝÎı¾ÐÐÊýÏÔʾ¹ö¶¯Ìõ(¶¯Ì¬ÏÔʾ¹ö¶¯Ìõ)µÄ·½·¨

ºÜ¶àʱºò,ÎÒÃDz»ÏëÒ»¿ªÊ¼¾ÍÏÔʾ¹ö¶¯Ìõ,µ±Îı¾µ½´ïÖ¸¶¨ÐÐÊýÎı¾¿òÎÞ·¨ÍêÈ«ÏÔʾµÄʱºòÔÙÏÔʾËü,ÓÉÓÚScrollbarÊôÐÔÊÇÖ»¶ÁµÄ,ÎÞ·¨ÔÚÔËÐÐʱµÄ´úÂëÖиıäÕâ¸öÊôÐÔ,Ö»ÄÜʹÓÃÏÂÃæµÄAPIʵÏÖÕâ¸ö¹¦ÄÜ:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
......

oracle¿Í»§¶ËÅäÖÃÓëʹÓã¨vb£©

   ʹÓÃoracleÊý¾Ý¿âÓÐÁ½ÖÖ·½·¨£º                   
1¡¢ÔÚ¿Í»§¶Ë»úÆ÷Éϰ²×°oracleµÄ¿Í»§¶ËÈí¼þ¡£Î¨Ò»µÄÀýÍâ¾ÍÊÇjavaÁ¬½ÓÊý¾Ý¿âµÄʱºò£¬¿ÉÒÔÓÃjdbc thinģʽ£¬²»ÓÃ×°oracleµÄ¿Í»§¶ËÈí¼þ¡£
2¡¢Èç¹ûÄãÔÚ»úÆ÷É ......

[VB]ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï

 ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï
  ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï¡£²»¹ýÒª¿Ø¼þÓÐHWNDÊôÐÔ¡£ÀýÈ磺
    New_OldParent& = SetParent(Me.Text_txt.hWnd, Me.picture_bj.hWnd)
    °Ñtxt¿Ø¼þÌí¼Óµ½picture¿Ø¼þÀïʹÓá£
    ×¢£ºÊ¹Óà ......

VBÖлص÷º¯ÊýµÄÒ»¸öÎÊÌâ

֮ǰÅöµ½Ò»¸öÎÊÌ⣬VBÖÐÏòÒ»¸öC++дµÄDLLÖÐ×¢²áÒ»¸öCallback£¬C++ÔÚµ÷ÓÃÕâ¸öCallbackʱÓÐЩÎÊÌ⣬¾ßÌåÎÊÌâÃèÊöºÍÏÂÃæÕâ¸öÌû×ÓÖеÄÇé¿öÊÇÒ»ÑùµÄ: http://topic.csdn.net/t/20051104/09/4370840.html
¾­¹ý³¢ÊÔÒÔºó·¢ÏÖ£¬ÔÚVBÖÐдµÄ»Øµ÷º¯Êý±ØÐëÊÇÓÃFunction¹Ø¼ü×Ö£¬²¢ÇÒ£¬±ØÐëÒªÉèÖ÷µ»ØÖµ£¬ÈçÏ£º
Public Function Callbac ......

µ÷ÊÔJavaScript/VB Script½Å±¾³ÌÐò£¨IEƪ£©


JavaScript/VB Script½Å±¾³ÌÐòÒ»°ãÓÐÁ½ÖÖÖ´Ðз½Ê½£¬Ò»ÖÖÊÇǶÈëÔÚËÞÖ÷³ÌÐòÀïÃæÖ´ÐУ¬±ÈÈçÔÚIEä¯ÀÀÆ÷ÀïÃæÖ´ÐУ»ÁíÍâÒ»ÖÖ£¬ÔÚ×ÊÔ´¹ÜÀíÆ÷ÀïÃæË«»÷Ö´ÐУ¨ËäÈ»»¹ÊÇͨ¹ýÁíÍâÒ»¸ö³ÌÐò½âÊÍÖ´ÐУ¬µ«ÊǸøÈ˵ĸоõ±Ï¾¹ÊÇÖ±½ÓÔËÐУ©¡£
ÕâÁ½ÖÖ·½Ê½£¬¶¼¿ÉÒÔʹÓÃVisual StudioÀ´½øÐе÷ÊÔ£¬ÏÈ¿´´ó¼ÒÓÃµÃ±È½ÏÆµ·±µÄÍøÒ³½Å±¾³ÌÐòµÄµ÷ÊÔ£º
1 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ