vb ÄÑÌâ

form2,form3¶¼·Ö±ðÓÐÒ»¸ölabel1ÊôÐÔÊÇÒ»Ñù

Private Sub Command1_Click()
Dim lbl As Label
if combo1.text="1" then
lbl = Form2.Label1
else
lbl = Form3.Label1
end if

With lbl
  .Caption = Combo1.Text
  ...........................................
  50¶à¸öÊôÐÔÔÚ²»Í¬µÄÁ½¸ö´°¿Úform2,form3
End With

Form2.Show
Form3.Show
End Sub

ÈçºÎ°ÑÉÏÃæµÄ´úÂë¸ÄÕýÈ·£¬ÒòΪÊôÐÔÌ«¶à£¬²»¿ÉÄÜͬʱÁ½¸ö´°¿ÚÒ»ÆðͬʱÊôÐÔ¸³Öµ

---

²»¶®ÄãµÄÒâ˼

label×î¶àÒ²¾ÍÊÇÓõ½ text λÖà ´óС ÑÕÉ« Ñùʽ£¬ÔõôÓÐ50¶à¸öÊôÐÔ£¿
ÁíÍâ²»ÒªÔÚ´°¿ÚÖ®¼äÀ´»ØµÄµ÷Óã¬ÕâÑù´úÂëºÜ»ìÂÒ¡£

---

Dim lbl As Label
if combo1.text="1" then
lbl = Form2.Label1
else
lbl = Form3.Label1
end if
'»ìÂÒÊÇÄã´úÂëÂß¼­»ìÂÒÒýÆðµÄ,Form2.Label1 ,Form3.Label1 ¶¼¸³¸ølbl,È»ºóÔÙ¸ølbl¸³ÊôÐÔ,±¾À´Form3.Label1,Form2.Label1¾ÍºÜÇå³þ,½á¹ûÂÒ³ÉÒ»ÍÅ.

---

ÊÇ·ñ¿ÉÒÔ¿¼Âǽ«Form2ºÍForm3ºÏ²¢³ÉÒ»¸öForm£¬½«ÆäÖеÄLabel1±ä³ÉLabelÊý×é

---

Private Sub Command1_Click()
    Dim lbl As Object
    If Combo1.Text = "1" Then
      Set lbl = Form2.Label1
    Else
      Set lbl = Form3.Label1
    End If
   
    With lbl
      .Caption = Combo1.Text