在运行时如何通过调出form窗体来设置控件的属性值.txt

VB技巧问答10000例 VB技巧问答10000例

假 设 你 的 控 件 中 有 一 个 按 钮 ， 按 下 后 谈 出 Form1， 在 根 据 Form1的 输 入 修 改 控 件 上 按 钮 的 Caption属 性 。 你 可 以 这 样 做 ： 
    1、 在 Form中 添 加 一 个 变 量 ： 
    Public ctrl As Control 
    2、 在 控 件 的 Command1_Click事 件 中 添 加 ： 
    Private Sub Command1_Click() 
     Set Form1.ctrl = Command1 
     Form1.Text1.Text = Command1.Caption 
     Form1.Show 
    End Sub 
    3、 在 Form1的 btnOK_Click中 添 加 ： 
    Private Sub Command1_Click() 
     ctrl.Caption = Text1.Text 
     Unload Me 
    End Sub 
<END>