我在Module1中定义了一个数据类型Public Type type1
int1 As Integer
End Type然后再from中调用它,但编译会出错,要怎样才能传递自己的数据类型?
Option Explicit
Dim v1 As type1Private Sub Command1_Click()
fun1 v1
MsgBox v1.int1
End SubPublic Function fun1(intype1 As type1)
intype1.int1 = 10
End Function
int1 As Integer
End Type然后再from中调用它,但编译会出错,要怎样才能传递自己的数据类型?
Option Explicit
Dim v1 As type1Private Sub Command1_Click()
fun1 v1
MsgBox v1.int1
End SubPublic Function fun1(intype1 As type1)
intype1.int1 = 10
End Function
解决方案 »
- 如何提高Richtextbox的全选及查找效率?
- 关于MsgBox的使用问题?
- 如何通过RS232读出刷卡器上的数据?
- 关于用VB结束其他程序进程的疑问!
- 我在98下做的安装程序,安装到xp下,怎么vb里的datareport报表出不来??
- 关于DataGrid,达人帮忙!!!!!
- 〉〉〉这里有人用过activeskin控件的吗?
- 在VB中用什么语句可以定义EXECEL 文件中的列的数据类型?用什么语句可以清空EXECEL 文件中的数据?
- 程序自启动的问题
- 、这个sql语句怎么写?
- 我设置RecordSource的时候说我对象类型不匹配?
- VB安装时,为什么会出现这样的问题???急死我了!!!大侠帮忙!!
intype1.int1 = 10
End Function
将这个函数放到模块中