某張表單的變數如何傳到另一張表單?

原本只要在每個表單開一個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

沒有留言:

張貼留言

本站公告

  • 本站所提供下載的程式為該程式設計者所有,未經同意請勿任意散佈、複製及作任何侵權之行為!