13518219792
在任意form类或模块中都可以创建类，跟建立函数和过程一样。
十年的谢通门网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站的优势是能够根据用户设备显示端的尺寸不同，自动调整谢通门建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。成都创新互联公司从事“谢通门网站设计”,“谢通门网站推广”以来，每个客户项目都认真落实执行。
示例：
public class form1
‘创建一个属于form的子类，名称为【类名】。
public class 类名
’定义类成员text
public text as string
end class
‘定义一个【类名】类的公共变量。
dim 类名1 as 类名
’定义一个过程，使用【类名】类的text成员
public sub 过程
‘实例化【类名1】
类名1=new 类名
类名1.text=“赋值”
’定义一个【新类】类的私用变量，并实例化。
dim 新类1 as new 新类
新类1.name=“一个字符串”
新类1.age=12
end sub
end class
‘’‘创建一个与form同级的类，名称为【新类】
public class 新类
public sub new（）
end sub
public name as string
public age as integer
end class
在模块中使用：
public class module1
dim a as new form1.类名
end module
在你的网站的根目录建立一个叫App_Code的文件，并把这个类放进去。
Sub datalj(ByVal sql1 As String)改成
Public Function datalj(ByVal sql1 As String) As SqlDataReader
conn.ConnectionString = str
conn.Open()
comm = New SqlCommand(sql1, conn)
rs = comm.ExecuteReader
datalj = rs
End Function
使用的时候
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim d As New DB
Dim rs As SqlDataReader = d.datalj("select * from userb")
……
End Sub
模块：相当于全局级变量。
类：可以实例化，继承等。
对于你这样的初学者来说，可以视作 模块变量=类的public shared变量。
最好的方法是：项目-添加-类-粘贴代码。
应该是一样的，createobject（“”）
不过你还是要添加引用的，否则那个调用对象是不行的。
建议你还是引用的好，这样容易查错，object对象无法继承，所以就没有下拉菜单的索引帮助。这样往往运行时才会引发错误，且这种错误不方便查询定位。
