菜鸟问题,大家教教我~

jieyi1106 2008-04-14 12:44:07
本人刚开始学习,是个菜鸟,刚接触到类~
问题: 我在一个页面中
Partial Class _Default
Inherits System.Web.UI.Page
Class vcd
Public size As Integer
Dim w As Integer
Public color As String
Public p As HttpResponse

Property width() As Integer
Get
Return w
End Get
Set(ByVal value As Integer)
If value > 50 Or value < 10 Then
w = 50
Else
w = value
End If
End Set
End Property

Sub play()
p.Write("<br>开始播放")

End Sub

End Class

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim a As New vcd
a.size = 50
a.color = "黑色"
Response.Write("你购买的VCD大小是:" & a.size & ",颜色是:" & a.color & "")
a.width =
Response.Write("<br>width属性是:" & a.width)
a.p = Response
a.play()


End Sub
End Class
这样没问题

但是我把
Partial Class _Default
Inherits System.Web.UI.Page
Class vcd
Public size As Integer
Dim w As Integer
Public color As String
Public p As HttpResponse

Property width() As Integer
Get
Return w
End Get
Set(ByVal value As Integer)
If value > 50 Or value < 10 Then
w = 50
Else
w = value
End If
End Set
End Property

Sub play()
p.Write("<br>开始播放")

End Sub

End Class
上面这一段 单独放在一个类文件里
然后 用imports vcd 引入
就说size,color 不是改页面的成员了

我是菜鸟 问问 是不是不能把下面那段代码 单独放一个类里 一定要在同一个页面上
...全文
44 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
eta_wang 2008-04-14
  • 打赏
  • 举报
回复
第一、类名要改掉,同一名称空间下相同的类名会冲突。Partial Class _Default 这一句的意思是,下面包含的代码是类_Default的一部分。Partial这个关键字的意思是一部分的意思,你这样照抄,并没有定义一个新类,并且,_default中的size 和color被定义了两次。当然会出错。 去掉Partial这一句。

第二、Inherits System.Web.UI.Page 表示继承自System.Web.UI.Page,你的vcd类不需要什么继承自什么基类,所以,这句也要删除。

找本书看看。










====================================
◆◆◆学说上海话速成 视频教程◆◆◆
====================================

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧