我建了一个class类：

Private name As String

Public Property nm() As String
Get
Return Me.name
End Get
Set(ByVal value As String)
Try
If Me.name = value <= 10 And Me.name = value >= 1 Then
Me.name = value
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Set
End Property

我用下面的语句实现赋值和输出：

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim nam As New Class1
nam.nm = 4
MessageBox.Show(nam.nm)
End Sub

我怎么点击按钮的时候什么都不出而且提示我只能再1到10之间呀，怎么解决呀！！！

看不出来　应该是MessageBox.Show(nam.nm)这一句．不是乱说．(nam.nm)目前没见过

看不出来，一般情况我选择通用！

哪里都没错
Try
If Me.name = value <= 10 And Me.name = value >= 1 Then
Me.name = value
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

if没有else try也没有finally当然 只要没有异常 就什么也不报

根本看不明白你想干嘛

Try
If value <= 10 And value >= 1 Then 这样不行吗？
Me.name = value
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

行的 运行结果应该也是一样

扑获异常那句有点问题

．(nam.nm)

!!! ByVal value As String
虽然还没用过VB.net, 但你确定可以用字符串和数值比较?!

Private name As String没有初始化
从头到尾name的值就是空的，应该不会有错的，但是也不会有东西出来就是了
return之前至少也给name赋个什么值吧
set里面的东西都放在try里面了，就别指望他给name赋值了
解决方法：去掉try catch

Private name As String没有初始化
从头到尾name的值就是空的，应该不会有错的，但是也不会有东西出来就是了
return之前至少也给name赋个什么值吧
set里面的东西都放在try里面了，就别指望他给name赋值了
解决方法：去掉try catch

不好意思，网络延迟了，以为没发出去

[此贴子已经被作者于2007-6-13 14:43:10编辑过]