cnks 发表于 2004-12-28 02:55:00

[VBA]用vba做的窗体如何才能cad的窗体切换...

我用了：Dim i As Boolean
Private Sub CommandButton1_Click()
       Me.Hide
End Sub Private Sub UserForm_Initialize()
       i = True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Debug.Print X & "," & Y
If (X < 5 Or Y < 5 Or X > Me.Width - 15 Or Y > Me.Height - 25) Then
       If i = True Then
               i = False
               Me.StartUpPosition = 3
               Me.Hide
               Me.Show 0
       End If
Else
       If i = False Then
               i = True
               Me.StartUpPosition = 3
               Me.Hide
               Me.Show 1
       End If
End If
End Sub出现以下问题：
file:///D:/1.bmp

cnks 发表于 2004-12-28 02:55:00

附一张图片：


       

D:\1.bmp

cnks 发表于 2004-12-28 02:56:00

请问这是怎么回事？

cnks 发表于 2004-12-28 02:57:00

还有就是：


AcFocusCtrl       控件我怎么没有？

cnks 发表于 2004-12-28 03:01:00

在excel里面有无模式显示这一项，但是cad 里面没有，我的是2000，是不是版本太低了？

wyj7485 发表于 2004-12-28 14:06:00

2004才有啊

cnks 发表于 2004-12-31 17:53:00

原来是这回事
页: [1]
查看完整版本: [VBA]用vba做的窗体如何才能cad的窗体切换...