VB 6.0 AddressOf 能不能这么用？？？！！！

麒麟菜籽 2013-03-19 04:43:30

VB 6.0 AddressOf取函数的地址。是不是只能传给windows的API用呢？？？
我目前是将取得的函数地址，传给DLL中使用
但DLL调用时总是报错，VB程序异常退出：
“XXXX指向YYY内存，该内存不可读”

...全文

334 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

test2002 2013-03-24

打赏
举报

回复

VB6中使用多线程，必须的ActiveX，其他的不安全。 VB AddressOf只能传给API，传给不了VB6函数。确实要传给VB6函数，可以VC写一个函数指针的DLL，vb6的函数才能用

linlinlinxi007 2013-03-20

打赏
举报

回复

myjian大虾如果一定要在另外一个线程中用，该怎么用呢？（DLL是用VC编写）

东方之珠 2013-03-20

打赏
举报

回复

AddressOf仅限于在标准模块中使用。如果DLL是自己编写的，DLL中可以考虑加入标准模块，这样就在同一线程中。

嗷嗷叫的老马 2013-03-20

打赏
举报

回复

另一线程中很麻烦,你试试尽量减少回调函数中所做的事,而且一定一定不要操作控件,对象,以及一切简单类型以外的东西. 如果有参数要显示到界面或再投递给某个过程去处理,那就使用全局变量,存储好数据之后再设定一个标志变量为TRUE,回调函数就返回. 而VB里面,用一个定时器定期检查那个标志变量,一旦发现为TRUE后就读全局变量中的数值去做爱做的事,然后就完成回调过程了. 试试吧....以前我搞另一个线程回调是头都大了.

嗷嗷叫的老马 2013-03-19

打赏
举报

回复

DLL中调用这个函数时不可以是另一个线程,必须是同一线程.

VB6.0使用InPutBox显示密码输入框，InPutBox大部分情况下是用于输入数据，与用户交互，但这些数据并不是密码类型的，本实例是展示是使用InPutBox作为密码输入框，其实也是挺简单的：　　Private Sub Command1_Click() 　　 On Error GoTo Err_Out 　　 Dim lTemp As Long 　　 Dim sTemp As String 　　 lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc) 　　 sTemp = InputBox("请输入密码", "密码输入框") 　　Err_Out: End Sub

VB6.0进程管理查看程序，仿Windows任务管理器，可查看当前程序的进程，关闭退出进程，查看进程树，以列表查看指定进程信息等，感觉比Windows自带的进程管理器功能更强大，本程序还实现了热键、托盘的功能，还有使Ctrl-Alt-Delete和Ctrl-Esc 无效的处理，关机等，利用AddressOf取得消息处理函数WindowProc的指针，并将其传给SetWindowLong 　　lpPrevWndProc用来存储原窗口的指针。。。

计算机二级（VB）教程，全面、系统、细致地介绍了计算机二级（VB）的相关知识点。课程能够帮助学习者快速入门。该课程面向对象：备考计算机二级（VB）的课程备课期末考试自学VB程序设计课程注意提高学习者实战技巧，授课过程中以实际操作演示为主，帮助学习者快速地掌握编程的实际方法和技巧。课程以2019年计算机二级大纲为主线，详细介绍了VB的相关知识点。

看实例学VB 6.0.rar

VB6.0新建右键菜单，替换掉原窗口中的右键菜单，原窗口的右键菜单貌似是Flash文件，现在可以替换成自定义的右键菜单，vb替换flash右键菜单，自定义右键菜单。处理鼠标操作代码如下：　　Public Function MyWindowProc(ByVal HW As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 　　 If uMsg = WM_RBUTTONDOWN Then 　　 Form1.Caption = "鼠标右键按下" 　　 Form1.PopupMenu Form1.mnuPop 　　 Exit Function 　　 ElseIf uMsg = WM_RBUTTONUP Then 　　 Form1.Caption = "鼠标右键抬起" 　　 Exit Function 　　 ElseIf uMsg = WM_KEYDOWN Then 　　 Form1.Caption = "按键按下" 　　 End If 　　 MyWindowProc = CallWindowProc(glPrevWndProc, HW, uMsg, wParam, lParam) 　　End Function 　　　　Public Function SubClass() As Long 　　 SubClass = SetWindowLong(FHW, GWL_WNDPROC, AddressOf MyWindowProc) 　　 Form1.Caption = "当前已自定义了Flash的右键菜单" 　　End Function

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章