阿杰 发表于 2008-9-26 07:52:14

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

<br/>

unibbs 发表于 2008-9-26 17:59:45

lunpan6 发表于 2009-1-12 18:36:10

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

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

Tesla.Angela 发表于 2010-6-5 23:26:07

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

马大哈 发表于 2010-6-6 09:38:16

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

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

zzhgb 发表于 2010-7-1 13:10:16

这样方便多了
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 发表于 2010-7-1 13:12:11

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

zzhgb 发表于 2010-7-1 13:17:28

那东西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

马大哈 发表于 2010-7-2 01:43:49

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

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

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

upring 发表于 2015-3-30 12:37:30

参与大家们的热烈讨论
页: [1]
查看完整版本: [原创]函数大师传递与返回文本参数(实例+源码)