vb如何控制CAD界面的大小

jsxygshh · 发表于 2012-10-3 09:14:00

请各位高手不吝赐教：
如何用VB打开CAD，并根据显示器的分辨率来调整显示界面的大小，先谢谢了！

jsxygshh · 发表于 2012-10-3 09:59:00

请大家不吝赐教

jsxygshh · 发表于 2012-10-4 07:08:00

请大家不吝赐教

jsxygshh · 发表于 2012-10-4 09:39:00

请大家给予帮助，深表感谢

markc0826 · 发表于 2012-10-5 10:52:00

是不是需要呼叫Win API來獲得螢幕尺寸？

mccad · 发表于 2012-10-7 12:39:00

需要通过API来获取屏幕分辨率。

jsxygshh · 发表于 2012-10-7 21:06:00

未调用API，是用下列方法得到的

copy


Private Sub Command1_Click()
Dim myAcadApp As autocad.AcadApplication, activeDoc As autocad.AcadDocument, acMS As autocad.AcadModelSpace
On Error Resume Next
Set myAcadApp = GetObject(, "Autocad.Application")
    If Err  0 Then
        Err.Clear
        Set myAcadApp = CreateObject("Autocad.Application")
        If Err Then
            MsgBox Err.Number & ":" & Err.Description
            Exit Sub
        End If
    End If
    With myAcadApp
        .WindowState = acNorm
        .WindowTop = Screen.Height / Screen.TwipsPerPixelY / 1.8
        .Height = Screen.Height
        .Width = Screen.Width / Screen.TwipsPerPixelX + 3
        .WindowLeft = 0
    End With
    myAcadApp.Visible = True
    AppActivate "AUTOCAD"
End Sub