Visual Basic

Module Module1

    Sub Main()
        Using f As New Windows.Forms.Form()
            Dim tv As New Windows.Forms.TreeView
            tv.Dock = Windows.Forms.DockStyle.Fill
            f.Controls.Add(tv)
            Dim rootNode As Windows.Forms.TreeNode = tv.Nodes.Add("RootNode")

            AddFolder("C:\inetpub\wwwroot", rootNode)

            f.ShowDialog()
        End Using
    End Sub

    Sub AddFolder(path As String, parent As Windows.Forms.TreeNode)
        ' get all folders in this path
        For Each folder As String In IO.Directory.GetDirectories(
            path, "*.*", IO.SearchOption.TopDirectoryOnly)

            ' add a node for this new folder
            Dim folderNode As Windows.Forms.TreeNode = parent.Nodes.Add(
                folder, IO.Path.GetFileName(folder))

            ' this is where recursion starts; we call this method again, but with different parameters
            AddFolder(folder, folderNode)
        Next

        ' add all files in this path
        For Each file As String In IO.Directory.GetFiles(path, "*.*", IO.SearchOption.TopDirectoryOnly)
            Dim folderNode As Windows.Forms.TreeNode = parent.Nodes.Add(file, IO.Path.GetFileName(file))

        Next
    End Sub

End Module

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Uğur Şirin wrote:

Can you help me example or source code?

Uğur Şirin wrote:

I need VB6 Script Codes, use to localhost XP.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Public Class Form1

    'A delegate that matches Win32 WNDPROC:
    Public Delegate Function Win32WndProc(ByVal hWnd As IntPtr, _
                                          ByVal Msg As Integer, _
                                          ByVal wParam As Integer, _
                                          ByVal lParam As Integer) As Integer

'-----------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------
    'Win32 API functions:

    Private Declare Function SetWindowLong Lib "user32" (ByVal hWnd As IntPtr, _
                                                         ByVal nIndex As Integer, _
                                                         ByVal newProc As Win32WndProc) _
                                                         As IntPtr
        ''Aother version of SetWindowLong that takes 2 pointers:
        'Private Declare Function SetWindowLong Lib "user32" (ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal newProc As IntPtr) As IntPtr
            ''And call it like this:
            'Dim MyAddress As IntPtr
            'MyAddress = SetWindowLong(hWnd, GWL_WNDPROC, oldWndProc)

    Private Declare Function CallWindowProc Lib "user32" (ByVal lpPrevWndFunc As IntPtr, _
                                                          ByVal hWnd As IntPtr, _
                                                          ByVal Msg As Integer, _
                                                          ByVal wParam As Integer, _
                                                          ByVal lParam As Integer) _
                                                          As Integer

    Private Const GWL_WNDPROC As Integer = -4

    Private Const WM_LBUTTONDOWN As Integer = 513
    
'--------------------------------------------------------------------------------------------------------
'--------------------------------------------------------------------------------------------------------

    'Program variables:
    Private oldWndProc As IntPtr = IntPtr.Zero

    Private newWndProc As Win32WndProc = Nothing

    Private Sub SubclassHWnd(ByVal hWnd As IntPtr)
        'hWnd is the window you want to subclass..., create a new 
        'delegate for the new wndproc:
        newWndProc = New Win32WndProc(AddressOf MyWndProc)

        'Subclass:
        oldWndProc = SetWindowLong(hWnd, GWL_WNDPROC, newWndProc)
    End Sub

    'This is the new wndproc, just show a messagebox on left button down:
    Private Function MyWndProc(ByVal hWnd As IntPtr, ByVal Msg As Integer, _
                               ByVal wParam As Integer, ByVal lParam As Integer) _
                               As Integer
        Select Case (Msg)
            Case WM_LBUTTONDOWN
                MessageBox.Show("Clicked")
                Return 0
        End Select
        Return CallWindowProc(oldWndProc, hWnd, Msg, wParam, lParam)
    End Function


End Class

Imports System.Runtime.InteropServices

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      SubclassHWnd(TextBox1.Handle)
   End Sub

   ' Win32 API needed
   <DllImport("user32")> _
   Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, ByVal nIndex As Integer, ByVal newProc As Win32WndProc) As IntPtr
   End Function
   <DllImport("user32")> _
   Private Shared Function CallWindowProc(ByVal lpPrevWndFunc As IntPtr, ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
   End Function

   ' A delegate that matches Win32 WNDPROC:
   Private Delegate Function Win32WndProc(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

   ' from winuser.h:
   Private Const GWL_WNDPROC As Integer = -4
   Private Const WM_LBUTTONDOWN As Integer = &H201

   ' program variables
   Private oldWndProc As IntPtr = IntPtr.Zero
   Private newWndProc As Win32WndProc = Nothing

   Private Sub SubclassHWnd(ByVal hWnd As IntPtr)
      ' hWnd is the window you want to subclass..., create a new 
      ' delegate for the new wndproc
      newWndProc = New Win32WndProc(AddressOf MyWndProc)
      ' subclass
      oldWndProc = SetWindowLong(hWnd, GWL_WNDPROC, newWndProc)
   End Sub

   ' this is the new wndproc, just show a messagebox on left button down:
   Private Function MyWndProc(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
      Select Case Msg
         Case WM_LBUTTONDOWN
            MessageBox.Show("Clicked")
            Return 0
         Case Else

            Exit Select
      End Select

      Return CallWindowProc(oldWndProc, hWnd, Msg, wParam, lParam)
   End Function

   '=======================================================
   'Service provided by Telerik (www.telerik.com)
   'Conversion powered by NRefactory.
   'Twitter: @telerik, @toddanglin
   'Facebook: facebook.com/telerik
   '=======================================================

End Class

Public Class mtTB
   Inherits TextBox
   Private Const WM_LBUTTONDOWN As Integer = &H201

   Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
      MyBase.WndProc(m)
      Select Case m.Msg
         Case WM_LBUTTONDOWN
          ' do something

      End Select
   End Sub
End Class

Private Declare Function SetWindowLong Lib "user32" (ByVal hWnd As IntPtr, _
                                                     ByVal nIndex As Integer, _
                                                     ByVal newProc As Win32WndProc) As IntPtr

Private Declare Function CallWindowProc Lib "user32" (ByVal lpPrevWndFunc As IntPtr, _
                                                      ByVal hWnd As IntPtr, _
                                                      ByVal Msg As Integer, _
                                                      ByVal wParam As Integer, _
                                                      ByVal lParam As Integer) As Integer

<DllImport("user32")> _
Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, _
                                      ByVal nIndex As Integer,
                                      ByVal newProc As Win32WndProc) As IntPtr
End Function

<DllImport("user32")> _
Private Shared Function CallWindowProc(ByVal lpPrevWndFunc As IntPtr, _
                                       ByVal hWnd As IntPtr, _
                                       ByVal Msg As Integer, _
                                       ByVal wParam As Integer, _
                                       ByVal lParam As Integer) As Integer
End Function

Quote:

Character Sets. You can specify in charsetmodifier how Visual Basic should marshal strings when it calls the external procedure. The Ansi modifier directs Visual Basic to marshal all strings to ANSI values, and the Unicode modifier directs it to marshal all strings to Unicode values. The Auto modifier directs Visual Basic to marshal strings according to .NET Framework rules based on the external reference name, or aliasname if specified. The default value is Ansi.

charsetmodifier also specifies how Visual Basic should look up the external procedure within its external file. Ansi and Unicode both direct Visual Basic to look it up without modifying its name during the search. Auto directs Visual Basic to determine the base character set of the run-time platform and possibly modify the external procedure name, as follows:

On an ANSI platform, such as Windows 95, Windows 98, or Windows Millennium Edition, first look up the external procedure with no name modification. If that fails, append "A" to the end of the external procedure name and look it up again.

On a Unicode platform, such as Windows NT, Windows 2000, or Windows XP, first look up the external procedure with no name modification. If that fails, append "W" to the end of the external procedure name and look it up again.

Private Declare Auto Function SetWindowLong Lib "user32.dll" (ByVal hWnd As IntPtr, _
                                                   ByVal nIndex As Int16, _
                                                 ByVal newProc As Win32WndProc) As IntPtr

Private Declare Auto Function CallWindowProc Lib "user32" (ByVal lpPrevWndFunc As IntPtr, _
                                                    ByVal hWnd As IntPtr, _
                                                    ByVal Msg As Integer, _
                                                    ByVal wParam As Integer, _
                                                    ByVal lParam As Integer) As Integer

treddie wrote:

is overloading the same as subclassing?

(?<Text>((?!\d+\r\n).*\r\n)*)

treddie wrote:

If so, why use the keyword "WithEvents at all? Why not just,

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]