下面代码是完整的,可以复制到工程即可运行。windows窗体上添加一个文本框就可以。
运行时问题来了很多,
Public Class Class1
Public Event PropertyChanged(ByVal str1 As String)
Public WriteOnly Property NewProperty() As TextBox
'Get
' Return newPropertyValue
'End Get
Set(ByVal value As TextBox)
If value.TextLength > 0 Then
RaiseEvent PropertyChanged(value.Text)
End If
End Set
End Property
Sub MySub(ByVal str1 As String) Handles Me.PropertyChanged
MsgBox(str1)
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim cla1 As New Class1
cla1.NewProperty = Me.TextBox1
Dim string1 As String = String.Empty
cla1.MySub() '这里MySub要输入什么参数呢,怎么msgbox两次显示呢
End Sub
End Class
------解决方案--------------------
cla1.MySub() '这里MySub要输入什么参数呢,怎么msgbox两次显示呢
此句应该注意掉,因为为事件响应代码,无需调用。
Sub MySub(ByVal str1 As String) Handles Me.PropertyChanged
MsgBox(str1)
End Sub
为方便观察建议将以上方法MsgBox(str1) 改为debug.print(Str1 & vbtab & now)
手打代码有什么小问题自己调整下
cla1.MySub() 实在想要调用
cla1.MySub("TestStr") 方式调用
这样的代码应该算是最初级的学习代码了~~~基础多打打再从最简单学习吧