怎样让窗体在cad中 自动切换 show的方式

forowhl

  我添加两个按钮实现，但是这样用的时候有点麻烦，有没有方法是自动识别的，鼠标点到窗体就 Show vbModal 点到AutoCAD程序就Show vbModeless。。

Private Sub CommandButton6_Click() '切换到程序
    LTPT.Hide
        CommandButton7.Visible = True
      CommandButton6.Visible = False
    LTPT.Show vbModal 
End Sub

Private Sub CommandButton7_Click() '切换到绘图
    LTPT.Hide
      CommandButton6.Visible = True
      CommandButton7.Visible = False
    LTPT.Show vbModeless
 
End Sub

forowhl

知道方法了，在form窗体上添加个AcFocusCtrl控件，form的ShowModal属性改成FALSE就行了。。。

sdwzzy

方法很有用，学习了，谢谢楼主分享