关于autocad文件显示(用avviewx控件)

Question

CDg1.Filter = "Autodesk Files (*.dwg;*.dwf;*.dxf)|*.dwg;*.dwf;*.dxf"
    CDg1.ShowOpen
    strFile = CDg1.FileName
    If strFile <> "" Then
        With AvViewX1
            .src = strFile
            .FontPath = "C:\Program Files\Volo View Express\fonts;"
            .Left = 0
            .Top = 0
        End With
    End If

Answer 1

方竹，你的办法可以
我还想问一下：能不能实现 image.picture=loadpicture("")
即不显示图形出来(除了用"visible"属性外)

Answer 2

Set Image1.Picture = LoadPicture("c:\aaa.bmp")
你的意思是AvViewX1 能不能实现 image.picture=loadpicture("")吗？？

Answer 3

是的，因为我有时没有图形显示时，avviewx1就应该是空白的,如何实现!

Answer 4

我用了一个很笨的办法!
当没有图形时，用一个空白的picture控件遮住他，
因为我用visible属性时，第一次false是可以实现隐藏
第二次就不能隐藏了，你是如何实现了

Answer 5

我将avviewx1放在picture控件里，加载时avviewx1.visible=false
确定打开的文件后，avviewx1.visible=true，当没有图形时，再avviewx1.visible=false

Answer 6

thank you ！
能和你交个朋友吗!
我的E-mail:[email protected]