原本只要在每個表單開一個Test1就可以了:
Form1.Text1.Text = Form2.Text1.Text
可是如果每次傳值到另一個表單都要開一個TextBox就太浪費了!站長教您用一個更好的方法:
首先開Form1、Form2、Text1(於在Form2)和Command1(於在Form2)各一個,然後分別輸入:
'Form1程式碼:
Public MyValue as String '這行要放在最頂
Private Sub Form_Load()
MyValue = "哈哈哈!"
End Sub
'Form2程式碼:
Private Sub Command1_Click()
Text1.Text = Form1.MyValue
End Sub
本站公告
- 本站所提供下載的程式為該程式設計者所有,未經同意請勿任意散佈、複製及作任何侵權之行為!
沒有留言:
張貼留言