解决方案 »
- 关于使用vb编写sql备份的问题
- 散分求助。在线等。马上结贴~`
- vb打包问题-为何我的工具条在VB里测试时好好的,但打包安装之后有些功能就不能用了?
- 急聘:VB程序员(在北京、中关村上地软件园)!!!
- 在datareport中,能用代码添加一个label标签么?高高手请进
- 多步SQL语句连续执行,数据不能及时刷新的问题,高手请进!
- ■■■ 让我郁闷了很久的问题了,请一定帮忙想一想,谢谢。 自定义控件及其子控件的尺寸控制的问题 ■■■
- vb调用mattab
- 用vb向oracle数据库插入数据时,好像死机了?!
- 谁能为我解答关于什么事"应用程序三层结构开发"的问题?
- 如何向另一程序的SysListView32里的某一行发送消息,实现选中特定行(或者项目),取得值,双击他
- 发消息选中syslistview32控件的ITEM
Dim dwProcessId As Long
Dim hProcess As Long
Dim plvItem As Long
Dim LVITEM As LV_ITEMA
GetWindowThreadProcessId hWnd, dwProcessId '获取与指定窗口关联在一起的一个进程和线程标识符
'' hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessId) '打开一个现有进程的句柄
hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, dwProcessId)
If hProcess Then
plvItem = VirtualAllocEx(hProcess, ByVal 0, LenB(LVITEM), MEM_COMMIT, PAGE_READWRITE) '分配内存
If plvItem Then
LVITEM.state = LVIS_SELECTED Or LVIS_FOCUSED Or LVIS_ACTIVATING
'lvItem.state = LVIS_SELECTED
LVITEM.stateMask = LVIS_SELECTED
Call WriteProcessMemory(hProcess, ByVal plvItem, LVITEM, LenB(LVITEM), 0) '写入内存
Dim t As Long
t = SendMessage(hWnd, LVM_SETITEMSTATE, iItem, ByVal plvItem)
'' MsgBox t
Call VirtualFreeEx(hProcess, ByVal plvItem, 0, MEM_RELEASE)
End If
Call CloseHandle(hProcess)
End If
End Sub