[VB.NET]帮我看看这个问题!!!!!!!!
来源:互联网 发布:如何在淘宝上传照片 编辑:程序博客网 时间:2024/04/30 06:06
<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
帮我看看这个问题!!!!!!!!
我建了一个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之间呀,怎么解决呀!!!
__________________________________________________________________________
Set(ByVal value As String)改为
Set(ByVal value As int32)
__________________________________________________________________________
按下按钮就提示我出错,怎么回事呀!!!!!
如果不把 string 改成 int32 的话那怎么改呀!!!!!!
__________________________________________________________________________
Public Property nm() As String
Get
Return Me.name
End Get
Set(ByVal value As String)
Try
If Val(Me.name = value) <= 10 And Val(Me.name = value) > = 1 Then
Me.name = value
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Set
End Property
__________________________________________________________________________
能问一下 leq_82() 你那用这个能正常输出吗?
我怎么还是什么都输不出来呀,至少有一点现在不弹错误了!!!
还是什么都输出来!!!!!
__________________________________________________________________________
该回复于2008-08-05 03:39:54被管理员或版主删除
__________________________________________________________________________
能问一下 leq_82() 你那用这个能正常输出吗?
我怎么还是什么都输不出来呀,至少有一点现在不弹错误了!!!
还是什么都输出来!!!!!
__________________________________________________________________________
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
__________________________________________________________________________
还有,你那个Class1是用来干什么的?能贴出代码来吗?
__________________________________________________________________________
晕,代码不就是上面那一段么?呵呵
__________________________________________________________________________
帮我看看这个问题!!!!!!!!
我建了一个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之间呀,怎么解决呀!!!
__________________________________________________________________________
Set(ByVal value As String)改为
Set(ByVal value As int32)
__________________________________________________________________________
按下按钮就提示我出错,怎么回事呀!!!!!
如果不把 string 改成 int32 的话那怎么改呀!!!!!!
__________________________________________________________________________
Public Property nm() As String
Get
Return Me.name
End Get
Set(ByVal value As String)
Try
If Val(Me.name = value) <= 10 And Val(Me.name = value) > = 1 Then
Me.name = value
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Set
End Property
__________________________________________________________________________
能问一下 leq_82() 你那用这个能正常输出吗?
我怎么还是什么都输不出来呀,至少有一点现在不弹错误了!!!
还是什么都输出来!!!!!
__________________________________________________________________________
该回复于2008-08-05 03:39:54被管理员或版主删除
__________________________________________________________________________
能问一下 leq_82() 你那用这个能正常输出吗?
我怎么还是什么都输不出来呀,至少有一点现在不弹错误了!!!
还是什么都输出来!!!!!
__________________________________________________________________________
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
__________________________________________________________________________
还有,你那个Class1是用来干什么的?能贴出代码来吗?
__________________________________________________________________________
晕,代码不就是上面那一段么?呵呵
__________________________________________________________________________
- [VB.NET]帮我看看这个问题!!!!!!!!
- [VB.NET]帮我看看菜鸟代码??
- [VB.NET]请大虾们帮小虾米看看这个问题
- 请大家帮忙,帮我看一下.net的这个问题
- 各位有在arm上搞过linux的同道们,帮我看看这个问题吧!
- 谁帮我看看
- 求解决.net网站偶尔会出现这个问题。。。。大家都来帮我看看呀
- 哪位大侠帮我看看
- 各位大哥大姐帮我解决下这个问题
- 高手来帮我解决下这个问题啊..!!
- 哪位朋友帮我解决一下这个问题啊,谢谢了!
- 帮我看下这个问题应该如何解决?
- 各位大虾们,跪求你们帮我解决这个问题
- [VB.NET]高手来帮我看一下我的代码了??
- 帮我看看一个小程序,谢谢
- JAVA高手帮我看看这道题呗!
- 谁可以帮我看看 感激
- 大家帮我看看这个程序
- xinetd
- “串行”为什么会走红?
- 纯虚函数与抽象类
- [VB.NET]最后一个问题,大家再帮兄弟一把!
- [VB.NET]数据存取问题
- [VB.NET]帮我看看这个问题!!!!!!!!
- [VB.NET]100分+50元购买一小段代码......
- j2ee sdk 5
- [VB.NET]vb.net 调用vb6.0写的ActiveX dll的问题,各位帮忙啊!
- step
- 用oo方法求解24点牌问题
- [VB.NET]再次讨论向Excel插入图片方法,有兴趣的朋友可以进来看一下,帮我解决一下问题!谢了
- Java编程那些事儿41—流程控制综合示例3
- [VB.NET]数据库表的初始化问题