dev320：將visualbasic60應(yīng)用程序升級到visualbasic(參考版)
2024-10-28 17:49本頁面
【正文】 =APIs 以及 ‘ As Any? ? SendMessage的情況 ? 調(diào)用 SendMessage Private Declare Function SendMessage _ Lib USER32 Alias SendMessageA (_ ByVal hwnd As Long, ByVal msg As Long, _ ByVal wParam As Long, ByVal lParam As Any ) _ As Long As Any ‘ Passing string SendMessage , WM_SETTEXT, 0, This is my text“ ?Passing NULL SendMessage , WM_SETTEXT, 0, 0 “ Th is my text” 0 APIs 以及 ‘ As Any? ? 聲明部分 ? 調(diào)用 SendMessage (in Form_Click) ? 結(jié)果 : 顯示“ 0” Private Declare Auto Function SendMessage Lib USER32“ _ (ByVal hwnd As , ByVal msg As Integer , _ ByVal wParam As Integer, ByVal lParam As String ) _ As Integer As StringSendMessage , WM_SETTEXT, 0, This is my text“ SendMessage , WM_SETTEXT, 0, 0 “ This is my text” 0 Auto As Integer AsAPIs 以及 ‘ As Any? ? 解決方法 : 重載聲明部分 ? 結(jié)果 : 正常顯示，標(biāo)題為空 Private Overloads Declare Auto Function SendMessage _ Lib USER32“ (ByVal hwnd As , _ ByVal msg As Integer, ByVal wParam As Integer, _ ByVal lParam As String ) As Integer As
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1