VB 如何使用下面的Function

VB 如何使用下面的Function,第1张

Private Function BigEnterTXT(Num1, Num2, Num3) As Boolean
Open AppPath & "\费用表txt" For Input As #1 '打开文件
Line Input #1, Num1
Line Input #1, Num2
Line Input #1, Num3
Close #1
End Function

用法:
Dim x, y, z
Call BigEnterTXT(x, y, z)
Text1Text = x
Text2Text = y
Text3Text = z
Label1Caption = x
Label2Caption = y
Label3Caption = z

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/langs/12162945.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-21
下一篇 2023-05-21

发表评论

登录后才能评论

评论列表(0条)

保存