[RESOLVED] VBCode test

[DigiRev]

(Making a small program to fix formatting of VBCode to be pasted directly into a project...the one in CodeBank requires Word )

Edit: Ok, I'm done. You can delete this thread now.

'Indented test
Option Explicit
 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetClipboardViewer Lib "user32" (ByVal hWnd As Long) As Long
 
Private Const WM_DRAWCLIPBOARD = &H308
Private Const GWL_WNDPROC = (-4)
 
Public lonProc As Long
 
Public Sub Hook_Start(ByRef FormObject As Form)
    lonProc = SetWindowLong(FormObject.hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
 
Public Sub Hook_Stop(ByRef FormObject As Form)
    SetWindowLong FormObject.hWnd, GWL_WNDPROC, lonProc
End Sub
 
Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Dim strText As String
    
    WindowProc = CallWindowProc(lonProc, hWnd, uMsg, wParam, lParam)
    
    If uMsg = WM_DRAWCLIPBOARD Then
        strText = Clipboard.GetText(vbCFText)
        If Len(strText) > 0 Then frmMain.Main_HandleCode strText
    End If
    
End Function

'Unindented test
Option Explicit
 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetClipboardViewer Lib "user32" (ByVal hWnd As Long) As Long
 
Private Const WM_DRAWCLIPBOARD = &H308
Private Const GWL_WNDPROC = (-4)
 
Public lonProc As Long
 
Public Sub Hook_Start(ByRef FormObject As Form)
lonProc = SetWindowLong(FormObject.hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
 
Public Sub Hook_Stop(ByRef FormObject As Form)
SetWindowLong FormObject.hWnd, GWL_WNDPROC, lonProc
End Sub
 
Public Function WindowProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim strText As String
 
WindowProc = CallWindowProc(lonProc, hWnd, uMsg, wParam, lParam)
 
If uMsg = WM_DRAWCLIPBOARD Then
    strText = Clipboard.GetText(vbCFText)
    If Len(strText) > 0 Then frmMain.Main_HandleCode strText
End If
 
End Function