Class1(类模块)中的内容: Option Explicit public sub myAdd(byval n1 as Integer,byval n2 as Integer,byref result as Integer) result =a1+a2 end sub'在调用程序中 '***在同以工程中 Private Sub Command1_Click() Dim a As Integer dim clssTmp as class1 msgbox clssTmp.myAdd(1,2) End Sub
回复MY2000(命运)兄弟的问题:一个工程文件中只能带有一个资源文件。你可以在同一个资源文件中的不同位置存放NT和XP中要使用的资源。在代码中区分要使用的资源,类似rainstormmaster(rainstormmaster)兄弟的回复,不过不是条件编译。如: If Win32 Then loadresstring(320001) ElseIf Win16 Then 'NT下 loadresstring(160001) End If
另两项找个例子照着做一下,也很简单!
Option Explicit
public sub myAdd(byval n1 as Integer,byval n2 as Integer,byref result as Integer)
result =a1+a2
end sub'在调用程序中
'***在同以工程中
Private Sub Command1_Click()
Dim a As Integer
dim clssTmp as class1
msgbox clssTmp.myAdd(1,2)
End Sub
http://expert.csdn.net/Expert/topic/1829/1829397.xml?temp=.4944422
第二个问题,首先感谢hc_z()兄弟,不过,我主要是想知道类模块的典型的应用,比如象hc_z这样的例子,我想用一个函数就可以搞定了。
第三个问题,Monglihong(monglihong) 兄弟可不可以说得具体一点?请高手大侠多多赐教。谢谢。
If Win32 Then
loadresstring(320001)
ElseIf Win16 Then 'NT下
loadresstring(160001)
End If
┏━★━━◆━━★━┓
♂欢|◢CSDN◣|使♂ ▲自由保存帖子,浏览,关注检测
┃迎|◥论坛助手◤|用┃ ▲完善的CSDN客户端工具
┗━☆━━◇━━━☆┛ ▲自动添加签名......让你更快,更爽,更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip