国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

你如果的是如果Text的值改變得，然后彈出一個新的form2吧？然后form2 的text1就等于form1的text1的值對吧？





在form1的text1的KeyDown里面加入：


Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)


If keycode <> Asc(Text1.Text) Then


    Dim nForm2 As New Form2


    nForm2.Show


    nForm2.Text1.Text = Chr(KeyCode)


End If


End Sub