我试过阿,可是得到的都是空值
在form1中:
public function getText() as string
return me.m_sText
end public
private sub setText(byval sText as string)
me.m_sText=sText
end sub
在按钮事件中:
Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
me.setText("aaaaaaa")
end sub
在form2中:
dim f1 as new form1
Private Sub ButtonOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonOK.Click
me.textbox1.text=f1.getText()
end sub
我是这样写的可是得到的是一个空的字符而不是我要的“aaaaaaa”