看看下面的代码，怎么没有错误提示呀！！！！！！

google_ad_width = 250; google_ad_height = 250; google_ad_format = "250x250_as"; google_color_url = "000000";

自己建的类：

Private name As String

Public Property nm() As String

Get

Return Me.name

End Get

Set(ByVal value As String)

Try

If value <= 10 And value >= 1 Then

Me.name = value

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Set

End Property

按钮为4：

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim nam As New Class1

nam.nm = 1333

MessageBox.Show(nam.nm)

End Sub

第2楼. 由 magicbacon 于 2007-5-13 0:51:35 发表

Public Class Class1

Private name As String

Public Property nm() As String

Get

Return Me.name