vb点击text窗口弹出Form2怎么实现

--------------------编程问答--------------------



Private Sub Text1_Click(Index As Integer)

Select Case Index

   Case 0

       Form2.Left = Me.Left + Text1(0).Left + 30

       Form2.Top = Me.Top + Text1(0).Top - Form2.Height + 450

       Form2.Show



   Case 1

       Form2.Left = Me.Left + Text1(1).Left + 30

       Form2.Top = Me.Top + Text1(1).Top - Form2.Height + 450

       Form2.Show



End Select



End Sub

是否要模态显示弹出窗体自定吧。（form2.show 1)
--------------------编程问答-------------------- 增加一点内容，有什么不同你自感觉吧：



Private Sub Text1_Click(Index As Integer)

Select Case Index

   Case 0

       Form2.Left = Me.Left + Text1(0).Left + 30

       Form2.Top = Me.Top + Text1(0).Top - Form2.Height + 450

       Form2.Show , Me



   Case 1

       Form2.Left = Me.Left + Text1(1).Left + 30

       Form2.Top = Me.Top + Text1(1).Top - Form2.Height + 450

       Form2.Show , Me



End Select



End Sub

--------------------编程问答--------------------

引用 2 楼 chinaboyzyq 的回复:

增加一点内容，有什么不同你自感觉吧：

VB code

Private Sub Text1_Click(Index As Integer)
Select Case Index
   Case 0
       Form2.Left = Me.Left + Text1(0).Left + 30
       Form2.Top = Me.Top + Text1(0).Top - F……

非常感谢你！弟兄你的代码功能是实现了，但是在Form1上最上面Text窗口点击时弹出来的 Form2在最顶上看不见了，最好搞个左上角、左下角、右上角、右下角弹出，按Text窗口所在的位置进行调整！谢谢！

补充：VB ,  基础类