資訊好好玩

0愛的鼓勵 0訂閱站台

Rem 主題：如何使兩張表單同步顯示資料
Rem 表單佈局：建立兩張表單，兩表單內各放置ListBox，主表單有新增會員介面
Rem 主表單：Name=Frm_server，ListBox *1,Frame *1，按鈕*1，TextBox*1
Rem 子表單：Name=Frm_slaver，ListBox *1
Rem 動作：子表單的ListBox內容，隨主表單的ListBox內容而同步顯示。在主表單新增會員確定，子表單亦同步更新。

設計階段

執行階段

新增內容

新增資料後

Public tot As Integer       '宣告公用變數，使子表單可存取

Private Sub Command1_Click()
Frame1.Visible = True       '顯示新增會員名單輸入介面
txtName.SetFocus            '取得焦點
End Sub

Private Sub Command2_Click()
tot = tot + 1               '會員數+1
List1.AddItem txtName       '新增會員名單
List1.Refresh               '更新內容
Frm_slaver.List1.AddItem txtName '附屬表單同步新增
Frm_slaver.Refresh
Frame1.Visible = False      '隱藏
End Sub

Private Sub Form_Click()    '表單空白處點一下，定位子表單
xx = Me.Left                '取得主表單大小位址資訊
yy = Me.Top
ww = Me.Width
hh = Me.Height

Frm_slaver.Left = xx + ww   '使子表單定位在主表單右側，避免重罍
Frm_slaver.Top = yy
End Sub

Private Sub Form_Load()
Frame1.Visible = False
List1.AddItem "張三"        '預設內容
List1.AddItem "李四"
List1.AddItem "王五"
List1.AddItem "老六"
tot = List1.ListCount       '取得會員總數
Frm_slaver.Show             '顯示子表單
End Sub