Fra C++ --> VB?

Du skal subclasse din form for at lave noget i den stil. Sæt nedenstående ind i et VB modul:

Option Explicit

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
Declare Function SetWindowLong Lib "user32" Alias _
    "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As Long
Private Declare Function RegisterWindowMessage Lib "user32" Alias _
    "RegisterWindowMessageA" (ByVal lpString As String) As Long

Public Const GWL_WNDPROC = -4

Global lpPrevWndProc As Long
Global gMsg As Long

Public Sub Hook(ByVal hWnd As Long)
    gMsg = RegisterWindowMessage("QueryCancelAutoPlay")
    lpPrevWndProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Public Sub Unhook(ByVal hWnd As Long)
  Dim temp As Long

  temp = SetWindowLong(hWnd, GWL_WNDPROC, lpPrevWndProc)
End Sub

Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, _
    ByVal wParam As Long, ByVal lParam As Long) As Long
   
    If uMsg = gMsg Then
        WindowProc = 1
        Exit Function
    End If
   
    WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function


I din form kalder du så 'Hook(Me.hWnd)', så er dit hook etableret og din nye window procedure bliver først kaldt. Værdien 1 svarer til True i C++.

Mvh

Har du et link til en god side omkring subclassing vil jeg meget have det, for jeg kender ikke ret meget til subclassing. Jeg vil prøve at lave ovenstående nu...

MSDN er altid en god kilde til information. Benyt CD'erne du fik med VB eller http://msdn.microsoft.com. Søg fx. på 'Visual Basic Subclassing' - det skulle gerne returnere nogle relevante hits...

Du kan også finde en masse interessante vb hardcore ting på http://www.mvps.org, blandt andet er der et andet lille eksempel på subclassing på http://www.mvps.org/vbvision/_samples/Subclass_Demo_(Basic).zip - det minder meget om kode jeg viste ovenfor.

Mvh

Det virker!! Jeg må sige det i grunden virker rimelig enkelt når man sammenligner koderne.. nå men jeg vil læse lidt videre, TAK for hjælpen!!