VB点虐 的问题.急....

1，根据命名规吵仿察范获知这是一个求直角三角形斜边的，函数为Hypotenuse（你仔细看看，有），

专注于为中小企业提供成都网站制作、成都做网站、外贸营销网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业城固免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000+企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。

他带有两个参数，分别是Text1和Text2里的内容，把两个内容转化为int类型后，直接根据函数Hypotenuse求出大帆 他的斜边，再转化为string类型让label1显示结果

2，升茄同理，这个也是计算斜边的，不过要得参数是宽和高，估计是求矩形里面对角线的

VB.NET中标准的实体类怎么写的,请教VB高手指导

'代码来源：代码街codejie点虐

'由于在vb点虐 里变量名不区分大小写（StuName和stuname是一样的），所以个别变量名需要修改

'在vb点虐 中,模块级变量的命名原则是以m_开头

Public Class Student

Private m_stuNo As String '学生号字仿困纤段

Private m_stuName As String '学生姓名字段

Private m_stuAge As Integer '学生年龄尺掘字段

Private m_stuAddress As String '学生住址字段

'无参构造方法

Public Sub New()

End Sub

'有参构造方法

Public Sub New(ByVal stuNo As String, ByVal stuName As String, ByVal stuAge As Integer, ByVal stuAddress As String)

m_stuNo = stuNo

m_stuName = stuName

m_stuAge = stuAge

m_stuAddress = stuAddress

End Sub

'学生号属性

Public Property StuNo() As String

Get

Return m_stuNo

End Get

Set(ByVal value As String)

m_stuNo = value

End Set

End Property

'学生姓名属性

Public Property StuName() As String

Get

Return m_stuName

End Get

Set(ByVal value As String)

m_stuName = value

End Set

End Property

'学生备仿年龄属性

Public Property StuAge() As Integer

Get

Return m_stuAge

End Get

Set(ByVal value As Integer)

m_stuAge = value

End Set

End Property

'学生住址属性

Public Property StuAddress() As String

Get

Return m_stuAddress

End Get

Set(ByVal value As String)

m_stuAddress = value

End Set

End Property

End Class

vb点虐 中，如何使textbox禁止输入/,*,?,（也就是文件名命名规则里限制的那几个

这个应该可以，已经腔册薯通过姿毁VB2010测试：

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If TextBox1.Text "" Then

If Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "/" Or Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "*"伍者 Or _

Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "?" Or Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "" Or _

Microsoft.VisualBasic.Right(TextBox1.Text, 1) = "" Then

TextBox1.Text = Microsoft.VisualBasic.Left(TextBox1.Text, Len(TextBox1.Text) - 1)

TextBox1.SelectionStart = Len(TextBox1.Text)

End If

End If

End Sub