高手们，来拿高分吧！急！！！！！！

Question

1、定义在模块中的变量在程序执行当中也会变，参考如下：
http://expert.csdn.net/Expert/topic/2861/2861092.xml?temp=.1762812
2、因为这是VB制作的控件，在VC中调用，VC执行过程当中收发数据，所以不能工作在调试状态跟踪变量的改变，有高手指导可以调试的话也可以，非常感谢。13711642786酬谢

Answer 1

你确定该变量是public？？
到vc中也有，单步执行的功能的呀，设置端点先

Answer 2

回复：passer_wave(路人)
1、是Public，string类型
2、我是个UserControl.ocx注册之后在VC下执行，单步可以在VC中单步，但是UserControl.ocx是注册之后生成的一个实体。如果您有方法可以详细说明好吗？

Answer 3

回复：MSTOP陈建华（东莞...)
我引用了该模块，同时没有被其他任何人或者程序引用，但是这些变量没有按照我的期望来改变，我的系统运行过程当中会出现-2147417848（80010108）错误，不知道是否和这个变量的改变有无关系？
另外：如何定义为类的一个属性？谢谢

Answer 4

另外：如何定义为类的一个属性？谢谢
例如:'
'金额的单价的小数位数
'属性:SmSetDecLen
'成员:Amo 金额小数位数(默认为2),Unit(默认为2),DateFmt 日期格式,TimeFmt 时间格式.
Public Property Get SmSetUDataFmt() As SmUserDataFmt
        SmSetUDataFmt.Amo = P_UserDataFmt.Amo
        SmSetUDataFmt.Unit = P_UserDataFmt.Unit
        SmSetUDataFmt.DateFmt = P_UserDataFmt.DateFmt
        SmSetUDataFmt.TimeFmt = P_UserDataFmt.TimeFmt
End PropertyPublic Property Let SmSetUDataFmt(NewValue As SmUserDataFmt)
        P_UserDataFmt.Amo = IIf(NewValue.Amo = 0, 2, NewValue.Amo)
        P_UserDataFmt.Unit = IIf(NewValue.Unit = 0, 2, NewValue.Unit)
        P_UserDataFmt.DateFmt = IIf(Len(NewValue.DateFmt) = 0, "yyyy/m/d", NewValue.DateFmt)
        P_UserDataFmt.TimeFmt = IIf(Len(NewValue.TimeFmt) = 0, "H:M:S", NewValue.TimeFmt)
End Property

Answer 5

Another:
定义一个类的属性能解决什么问题?我的代码不可能出现两个程序同时调用模块里面的变量的啊。