急问!!!如何在函数中传递一个结构变量?在线等待!

lupp 2003-01-03 10:33:26
在函数中需要把运行的结果放在结构变量中返回!
...全文
41 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
smailsoft 2003-01-03
  • 打赏
  • 举报
回复
需要这么麻烦吗?当引用传进去不就行了
Private Type aa
bb As String
cc As Integer
End Type

Private Sub TestAA(ByRef kk As aa)
kk.bb = "sing"
kk.cc = 1
End Sub


Private Sub Command1_Click()
Dim sss As aa
TestAA sss
MsgBox sss.bb
MsgBox sss.cc
End Sub
litsnake1 2003-01-03
  • 打赏
  • 举报
回复
同意楼上
qbilbo 2003-01-03
  • 打赏
  • 举报
回复
对不起,模块中的
Private Function TestAA() As aa
Dim dd As aa
dd.bb = "1"
dd.cc = 1
TestAA = dd
End Function
应该改为:
Public Function TestAA() As aa
Dim dd As aa
dd.bb = "1"
dd.cc = 1
TestAA = dd
End Function
qbilbo 2003-01-03
  • 打赏
  • 举报
回复
一般都是用参数返回的。

如果真要想这样,可以看看下面的代码,我测试过没问题

模块中:
Option Explicit

Public Type aa
bb As String
cc As Integer
End Type

Private Function TestAA() As aa
Dim dd As aa
dd.bb = "1"
dd.cc = 1
TestAA = dd
End Function

窗体中:
Option Explicit


Private Sub Form_Load()
Dim dd As aa

dd = TestAA()

Debug.Print dd.bb
Debug.Print dd.cc
End Sub
zyl910 2003-01-03
  • 打赏
  • 举报
回复
创递给dll?

String不能是变长的
只能是定长的
lupp 2003-01-03
  • 打赏
  • 举报
回复
我已经用了“七匹狼”的方法做了,可是达不到预期的效果,也不知道是什么地方出错了。主要是我需要调用一个VC做的dll文件里面的函数,所以搞起来也就不知道错误出在什么地方了。
内容概要:本文档是2025年全国广播电视技术能手竞赛IPTV专业的竞赛内容大纲,旨在指导参赛选手准备比赛。竞赛分为理论和实操两大部分。理论部分涵盖基本知识、基础理论和专业知识,包括法律法规、技术标准、IPTV技术基础、信号传输与分发、网络和数据安全等。实操部分则涉及IPTV系统设备、仪器设备的操作使用和指标测量。具体内容包括IPTV系统架构、传输技术与指标、设备配置及维护、专业技能如测量工具使用、视音频指标测量、直播点播协议分析、播出网络性能测量、网络安全数据分析以及系统故障排查等。 适合人群:从事或有意从事IPTV相关工作的技术人员,尤其是有志于参加全国广播电视技术能手竞赛的专业人士。 使用场景及目标:①帮助参赛选手全面了解并掌握IPTV相关的法规文件和技术标准;②提升选手对IPTV系统架构、传输技术和设备配置的理解;③增强选手在实际操作的测量、分析和故障排查能力;④确保选手能够熟练运用各种测量工具和分析软件进行视音频指标测量和网络安全数据分析。 阅读建议:由于文档内容详尽且专业性强,建议读者在学习过程结合实际案例和操作练习,同时参考相关技术文献,以便更好地理解和掌握竞赛所需的知识和技能。

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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