首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET Framework >

谁能帮小弟我看看SendMessage的代码那里错了?(vb的代码,但是操作对象是.net编译的)

2011-12-21 
谁能帮我看看SendMessage的代码那里错了?(vb的代码,但是操作对象是.net编译的)Private Declare Function F

谁能帮我看看SendMessage的代码那里错了?(vb的代码,但是操作对象是.net编译的)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 
Private Const TA_TOP = 0 

Private Sub Command1_Click() 
Dim NavHwnd As Long 
Dim NavName As String 
Dim NavBuffer As String * 256 
Dim TagHwnd As Long 
Dim Tag As Long 
NavHwnd = FindWindow("WindowsForms10.Window.8.app.0.33c0d9d", vbNullString) 
If NavHwnd <> 0 Then 
NavName = GetWindowText(NavHwnd, NavBuffer, 255) 
Text2.Text = Left$(NavBuffer, NavName) 
End If 
Tag = FindWindowEx(NavHwnd, TagHwnd, vbNullString, "Play Route") 
SendMessage TagHwnd, TA_TOP, 0, 0 
End Sub 

 

如图程序主要想激活名为Play Route 的TagPage控件(不知道TagPage的称呼是否正确,好像挺重要,大概影响常量的设定)可

能是donNet Framework里的标准控件,怎么样由hwnd获得相应的winform控件对象,然后调用其方法切换页签 ????

TA_TOP的常量使自己瞎猜的,网上没找到相关资料。 

除了Text2.Text可以正确显示该窗体的标题,运行以后没有反应。 

拜托了,帮顶、每天灌一贴、给链接、给思路。。。。。都欢迎。

>>>> Window < < < < 
Title: NavMan 
Class: WindowsForms10.Window.8.app.0.33c0d9d 
Position: 110, 110 
Size: 217, 410 
Style: 0x16CF0000 
ExStyle: 0x00050100 
Handle: 0x00010BFC 

>>>> Control < < < < 
Class: WindowsForms10.Window.8.app.0.33c0d9d 
Instance: 1 
ClassnameNN: WindowsForms10.Window.8.app.0.33c0d9d1 
Name: tabPage1 
Advanced (Class): [NAME:tabPage1] 
ID: 68618 
Text: Play Route 
Position: 1, 22 
Size: 207, 321 
ControlClick Coords: 28, 1 
Style: 0x56000000 
ExStyle: 0x00010000 
Handle: 0x00010C0A 

>>>> Mouse < < < < 
Position: 33, 46 
Cursor ID: 0 
Color: 0x000000 

补充一下,使用Window Info查到的窗体信息 



[解决办法]
哈哈,不知道是要用PostMessage发TCM_SETCURSEL消息,还是用dotNet自带的方法解决:)

热点排行