我建立了一工程,在里面有两个窗口,这俩个窗口是平等的,窗口1中有一个ComboBox控件,这个控件的list中有4个值,我想在
窗口2中应用这4个值怎么做?希望各位给个代码,谢谢

解决方案 »

  1.   

    FORM1 CODE
    Private Sub Form_Load()
    Combo1.AddItem "第1个值", 0
    Combo1.AddItem "第2个值", 1
    Combo1.AddItem "第3个值", 2
    Combo1.AddItem "第4个值", 3
    Form2.ShowEnd SubFORM2 CODEPrivate Sub Form_Load()
    Text1.Text = Form1.Combo1.List(0)
    Text2.Text = Form1.Combo1.List(1)
    Text3.Text = Form1.Combo1.List(2)
    Text4.Text = Form1.Combo1.List(3)
    End Sub
      

  2.   

    Combo1.AddItem combo2.list(0)    '将combo2中的内容添加到conbo1中
    Combo1.AddItem combo2.list(1)
    Combo1.AddItem combo2.list(2)
    Combo1.AddItem combo2.list(3)
      

  3.   

    引用其他窗体的对象:
    在FORM1引用FORM2的对象OBJ1FORM1中代码:
    FORM2.BOJ1.XXX反之,在FORM2中引用FORM1中的对象OBJ2
    FORM2中代码:
    FORM1.OBJ2.XXX
      

  4.   

    Form2.Text1.Text = Form1.Combo1.List(0)
    Form2.Text2.Text = Form1.Combo1.List(1)
    Form2.Text3.Text = Form1.Combo1.List(2)
    Form2.Text4.Text = Form1.Combo1.List(3)