窗体代码封装DLL方法发布！带源码

桃花岛岛主

就是要，所以在窗体里面还是需要在声明一次的！

dany_guo2003

呵呵,牛人啊.崇拜ing~~

zhoujibin1

QUOTE:

以下是引用zhoujibin1在2006-12-11 13:16:14的发言：

恭喜恭喜, 成就来于坚持.

建议: 类的定义中有重复性,是否简化些,窗体中又定义了一次类,觉得不需要再定义啦. 你试验下,我没时间去做,做好再交流.

这是你的学习成绩,不错不错,继续努力. 不过不要太高兴,这些东西其实都是已有的,所以不是绝对是震撼人心的.

周博士，在使用类的时候，应该要先声明吧！

在上面的例子中，窗体中使用类时，需要再定义吧！

不熟悉VB，不过在VBA中，在使用类的时候，应该要先声明！

这需要测试, 我觉得好像有点重复,楼主的代码里,我感觉是有重复的,不过简化测试后才知道.

桃花岛岛主

一开始也没有加，是不能执行的！加了才能执行！！

zhoujibin1

我来亲自测试下

zhoujibin1

窗体中的代码:

Private Sub Command1_Click()
 Dim xlapp As Object, xlbok As Object, xlsht1 As Object, t As Integer
 Set xlapp = GetObject(, "Excel.Application")  
 Set xlbok = xlapp.activeworkbook          

 Set xlsht1 = xlbok.Worksheets("wo")
 xlsht1.Cells(1, 1) = userForm1.Textbox1.Text
End Sub

Private Sub Command2_Click()
    Text2.Text = Textbox1.Text
End Sub

类中的代码:

Public Function dc1()

userForm1.Show 1
End Function

在窗体中使用类函数,是要再定义的类的实例.

不过楼主的代码确实让人有点觉得重复,把代码放在窗体中就更合理些(仅对于楼主的代码,如果是其他复杂的函数等,建议定义另外的类来使用,不要和VBA中使用的类一样,令人不好理解,逻辑性要强),不需要再定义类和使用类啦.

zhoujibin1

这样看来,似乎要简洁合理些,不像楼主代码,来回定义调用.

stx1980710

QUOTE:

以下是引用zhoujibin1在2006-12-11 17:57:21的发言：

在窗体中使用类函数,是要再定义的类的实例.

不过楼主的代码确实让人有点觉得重复,把代码放在窗体中就更合理些(仅对于楼主的代码,如果是其他复杂的函数等,建议定义另外的类来使用,不要和VBA中使用的类一样,令人不好理解,逻辑性要强),不需要再定义类和使用类啦.

请周博士，解释一下这句话的意思好吗？

“不要和VBA中使用的类一样”

在VB中调用类和在VBA中调用类不一样吗？

zhoujibin1

方法一样,定义类再使用.

我说的是,最好不要在VBA使用一个类REG,再在窗体中定义一次类REG,这样有重复,逻辑上给人不好.最好再定义一个类REG1啥的.

stx1980710

多谢！明白了！