hallo zusammen,
ich sitze ja gerade an der migration eines vb6 projektes. da ich bis vor 2 monaten eigentlich nur c++ und MFC programmiert habe, stosse ich immer wieder auf diverse probleme bei denen ich nicht weiter komme...
der wizard gab mir zwar den link zur MSDN aber alle eigenen Versuche den upgradfehler zu beheben schlugen fehl. vielleicht kann mir jemand den passenden code zukommen lassen. die suche hier hat leider keinen post ergeben der damit etwas zu tun hatte!! besten dank im voraus!!!
also wenn jemand mir sagen kann wie ich diesen deleganten hier in meinen code einbauen muss...
ich habe auch noch einen code gefunden, kann ihn aber nicht mit meinem kombinieren???
sven
ich sitze ja gerade an der migration eines vb6 projektes. da ich bis vor 2 monaten eigentlich nur c++ und MFC programmiert habe, stosse ich immer wieder auf diverse probleme bei denen ich nicht weiter komme...
der wizard gab mir zwar den link zur MSDN aber alle eigenen Versuche den upgradfehler zu beheben schlugen fehl. vielleicht kann mir jemand den passenden code zukommen lassen. die suche hier hat leider keinen post ergeben der damit etwas zu tun hatte!! besten dank im voraus!!!
Code:
Public Function CS_IsWindowActiv(ByRef sWidowName As String) As Boolean Dim lRet As Integer bIsWndAct = False psIsWndAct = sWidowName 'UPGRADE_WARNING: Einen Delegaten für AddressOf O_IsWindowActiv hinzufügen Klicken Sie hier für weitere Informationen: 'ms-help://MS.VSCC.v80/dv_commoner/local/redirect.htm?keyword="E9E157F7-EF0C-4016-87B7-7D7FBBC6EE08"' lRet = EnumWindows(AddressOf O_IsWindowActiv, 0) CS_IsWindowActiv = bIsWndAct End Function
ich habe auch noch einen code gefunden, kann ihn aber nicht mit meinem kombinieren???
Code:
Callback Delegate Public Delegate Function EWCallBack(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer ' Funktion mit Callback Parameter <System.Runtime.InteropServices.DllImport("user32")> _ Public Shared Function EnumWindows(ByVal cb As EWCallBack, ByVal y As Integer) As Integer End Function ' Funktion mit Callback aufrufen Protected Overrides Sub onLoad(ByVal e As System.EventArgs) MyBase.OnLoad(e) EnumWindows(New EWCallBack(AddressOf ListWindows), 0) End Sub ' Callback Routine Public Function ListWindows(ByVal hwnd As Integer, ByVal lParam As Integer) As Integer ' ... End Function
Comment