VB.Net Impliments的实例
代码如下:
乐博网lob.cn提示:调试环境为 vs2005 + windows2003 / windows2008 / xp / vista
Public Class ImplimentsForm Implements DisposeStr Dim EngStr As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click GetSetString() = InputBox("乐博网提示:请输入一串字母") ReturnLength(GetSetString()) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Text = ToUpper(GetSetString()) End Sub Function ToUpper(ByVal str As String) As String Implements DisposeStr.ToUpper Return str.ToUpper End Function Sub ReturnLength(ByVal str As String) Implements DisposeStr.ReturnLength MessageBox.Show("乐博网提示:输入的字母长度为:" & str.Length, "字符串长度") End Sub Property GetSetString() As String Implements DisposeStr.GetSetString Get Return EngStr End Get Set(ByVal value As String) EngStr = value End Set End Property End Class Interface DisposeStr Function ToUpper(ByVal str As String) As String Sub ReturnLength(ByVal str As String) Property GetSetString() As String End Interface
|