通过函数,用传址的方式(ByRef)传送
解决方案 »
- 这道题If Text1 = "ABC" Or Text1 = "?" Then第二个问号是什么?看不懂答案。
- Application.Workbooks.Open FileName
- 请问哪位有setup factory,麻烦给我发一个,谢谢!
- 这样发送鼠标信息有什么问题吗?在线等~~
- 记录汇总的问题,各位高人请帮忙
- 帮个忙
- vb中如何生成一个word文档
- 很简单的问题,大家帮帮我啊!(也有助于大家提高对数据库的理解)
- 在Access的module中有一个公共函数,我用VB ADO访问数据库,怎么才能用那个函数?
- vb6 自定义控件中如何获得、设置控件在运行窗口中的位置、大小?
- 打包过程中创建一个文件夹,同时把文件释放到这个文件夹内, 急.
- 高手来看,请问,定义全局快捷键,前提如下:
CreateFileMapping、MapViewOfFile
具体请查MSDN
变量很多,如何用(ByRef)传送?请写一下!谢谢
那么在你的工程中想得到dll中变量m_Name 的值,就直接调用getname方法不就可以得到m_name的值了,吗
同样在你的dll中有个方法SetName,目的是设定dll中变量m_Name的值的
在工程中调用SetName "Your Name",这不就可以将值传给dll变量了吗
变量很多,如何用(ByRef)传送?请写一下!谢谢
Public mczyxm As String '操作员Public Property Get czyxm() As String
czyxm = mczyxm
End PropertyPublic Property Let czyxm(ByVal vNewValue As String)
mczyxm = NewValue
End Property'########## dll中的窗体代码
Dim hj As New hjsf
Public czy As String '操作员
Private Sub Form_Load()czy = hj.gczyxm '''''''''''我这里要用属性,取属性
MsgBox czy '是空的endsub
'########## 调用dll的工程代码
Dim ghjsf As New hjsfdll.hjsf
czy="张三"
ghjsf.mczyxm = Czy是不是这样用???????为何向DLL中传属性字符串不成功?
Public mczyxm As String '操作员
Public Property Let czyxm(ByVal vNewValue As String)
mczyxm = vNewValue
End Property
去掉:
Public Property Get czyxm() As String
czyxm = mczyxm
End Property