VB.net中的sendmessage函数该怎么使用？ - 编程论坛

#2

qlong07282007-10-20 08:25

WebBrowser1.Document.Window.ScrollTo(0, 30)向下滚动30象素

#3

momia2007-10-23 07:54

太感谢了，我已经完成了这部分编程。

而且发现document下面有很多属性和方法都很有用。

不过还是不知道sendmessage怎么用。

#4

bygg2007-10-23 12:46

sndmessage的一些用途......
[QUOTE]1,获得MEMO中的光标位置.
Lops:=SendMessage(memol.Handle,EM_LINEFROMCHAR,Memol.SelStart,0);//光标所在的行号
Cpos:=SendMessage(meno1.Handle,EM_LINEINDEX,Lpos,0);//光标所在的字符位置
LineLength:=SendMessage(memol.handle,EM_LINELENGTH,Cpos,0);//这行的字符数.
2,开关显示器.
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);//关闭显示器.
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);//打开显示器.
3,有人问我如何让Memo翻页,我试了一下,
Next:
sendmessage(memo1.handle,wm_keydown,VK_NEXT,-1);
sendmessage(memo1.handle,wm_keyup,VK_NEXT,-1);
Prev:
sendmessage(memo1.handle,wm_keydown,VK_PRIOR,-1);
sendmessage(memo1.handle,wm_keyup,VK_PRIOR,-1); [/QUOTE]

#5

momia2007-10-23 19:18

senmessage 在里头，声明的时候就不能通过，最后一个参数编译器说是不能 as any，怎么办？

#6

baozidon2011-11-09 19:42

Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Int32, ByVal wMsg As Int32, ByVal wParam As Int32, ByVal lParam As Int32) As Int32
最后一个 lParam 也可能是其他类型，比如自定议结构什么的。。BYVAL 就得改成 ByRef