[原创]函数大师传递与返回文本参数(实例+源码)

阿杰

kx8QiC2O.rar (7.07 KB, 下载次数: 17555)

2008-9-26 07:52 上传

点击文件名下载附件

<br/>

lunpan6

<p>楼主... 帮你顶~~ 以下签名属个人原创～转载请转知我！呵呵... </p>

Tesla.Angela

会用指针，传递什么都无所谓。
传递字符数组，结构体什么的，直接用PVOID即可。

马大哈

主要问题在于,多数人不会在VB里玩指针

要是用指针的话,很多问题都能解决了,就不用搞这么麻烦了.........

zzhgb

这样方便多了
Public Function MessageBox(ByVal n As String)
    MsgBox StrConv(n, vbUnicode), vbInformation, "信息"
End Function
Public Function ReturnStr(ByVal n As String) As String
    Dim m As String
    m = StrConv(n, vbUnicode) & "fuck"
    ReturnStr = StrConv(m, vbFromUnicode)
End Function

zzhgb

回复 7# zzhgb
老马，我觉得这个应该放到例子里去

zzhgb

那东西2年了是不是该更新一下
还有下边这个：
Private Const DLL_PROCESS_DETACH As Long = 0
Private Const DLL_PROCESS_ATTACH As Long = 1
Private Const DLL_THREAD_ATTACH As Long = 2
Private Const DLL_THREAD_DETACH As Long = 3
Private Function DLLMain(ByVal hModule As Long, ByVal dwReason As Long, ByVal lpReserved As Long) As Long
    Select Case dwReason
        Case DLL_PROCESS_ATTACH
'            MsgBox "DLL_PROCESS_ATTACH!"
        Case DLL_PROCESS_DETACH
'            MsgBox "DLL_PROCESS_DETACH!"
        Case DLL_THREAD_ATTACH
        Case DLL_THREAD_DETACH
    End Select
    DLLMain = 1
End Function

马大哈

确实很久没更新了,嘿嘿.

主要是用的人不多,而且本身这个DLL的实用性不怎么样.

所以也没怎么下大力气去折腾.

upring

参与大家们的热烈讨论