鼠标放到窗口边缘不会显示拉动,需要设置form的Borderstyle的值为1 。如下
初始化窗体时设置
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
CATIA = GetObject(, “catia.application”)
Catch ex As Exception
MsgBox(“请先启动CATIA”)
End
End Try
Me.FormBorderStyle = 1 '鼠标放到窗口边缘不会显示拉动
End Sub