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

cnks

我用了：

2. Dim i As Boolean
3. Private Sub CommandButton1_Click()
4.        Me.Hide
5. End Sub Private Sub UserForm_Initialize()
6.        i = True
7. End Sub
8. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
9. 'Debug.Print X & "," & Y
10. If (X < 5 Or Y < 5 Or X > Me.Width - 15 Or Y > Me.Height - 25) Then
11.        If i = True Then
12.                i = False
13.                Me.StartUpPosition = 3
14.                Me.Hide
15.                Me.Show 0
16.        End If
17. Else
18.        If i = False Then
19.                i = True
20.                Me.StartUpPosition = 3
21.                Me.Hide
22.                Me.Show 1
23.        End If
24. End If
25. End Sub

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

附一张图片：


       

D:\1.bmp

cnks

请问这是怎么回事？

cnks

还有就是：


AcFocusCtrl         控件我怎么没有？

cnks

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

wyj7485

2004才有啊

cnks

原来是这回事