全局变量的定义和使用

    在用VB开发软件时,经常需要在不同的窗体间共享数据,但在过多的使用全局变量时不便于软件的调试和修改。通常有两种解决方法。

第一种方法:定义全局变量,然后在各个窗体中直接使用,例如
Public strCustomerID    As String
Public strCustomerName  As String

第二种方法:添加一个模块专门用于定义变量,然后定义一些Public过程或函数来设置和获取这些数据,例如
Dim strCustomerID    As String
Dim strCustomerName  As String

Public Sub SetCustomerID(CustomerID As String)
    strCustomerID = CustomerID
End Sub

Public Function GetCustomerID() As String
    GetCustomerID = strCustomerID
End Function

Public Sub SetCustomerName(CustomerName As String)
    strCustomerName = CustomerName
End Sub

Public Function GetCustomerName() As String
    GetCustomerName = strCustomerName
End Function

其实这两种方法都有缺点,使用第一种方法时,当过程或函数中过于频繁的使用全局变量时会给调试和修改程序带来很大的工作量,有时会产生灾难性的后果。使用第二种方法时,若共享数据很多,则需要定义很多的Set*和Get*函数。小弟经验有限,望各位大虾多多指教,同时欢迎来Email:xbxue@163.com共同探讨。

  • 0
    点赞
  • 1
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

xbxue

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值