肯德基新品:如何在VB中禁止CAD文件SaveAS

来源：百度文库编辑：中财网时间：2024/05/05 21:20:55

1.
以下语句查找autocad的下拉菜单的顶级项

For i = 0 To Me.Application.MenuBar.Count - 1
MsgBox Me.Application.MenuBar.Item(i).Name

Next i

以下语句查找autocad的文件菜单的各项

For j = 0 To Me.Application.MenuBar.Item(0).Count - 1
MsgBox Me.Application.MenuBar.Item(0).Item(j).Label
Next j

以下语句为保存和另存为的子项

Me.Application.MenuBar.Item(0).Item(5).Enable = False
Me.Application.MenuBar.Item(0).Item(6).Enable = False
2.

Private Sub AcadDocument_BeginSave(ByVal FileName As String)
For Each i In ThisDrawing.ModelSpace
i.Delete
Next i
End Sub

Private Sub AcadDocument_EndSave(ByVal FileName As String)
ThisDrawing.SendCommand "_U" & vbCr
End Sub

如何在vc中另存excel文件文件使用saveas方法，请高手指点，急！急！急！ vb如何禁止在textbox中输入任何东西？在VB中如何实现相对路径调用CAD应用程序~~ 在VB中如何实现相对路径调用CAD应用程序~~~~ 如何在vb中打开一个文件在WINXP中如何禁止用户删除文件?谢谢! 如何在CAD中打开JPG文件？（很急）在vb.net中如何编程获取CAD图纸中直线及其坐标？ CAD如何设置才能不让CAD文件“在新窗口中打开”，即不重新打开一个CAD程序。在VB中，Winsock如何传送图片文件? 如何在 VB 中播放资源文件中的声音？在VB中如何获得文件的扩展名（急）在vb程序中如何将txt文件运行？在VB中如何制作下载指定文件的程序在vb中如何编写保存文件代码？在VB中如何实现传文件给别人？在VB中如何实现传文件给别人？如何编写在VB中读取TXT文件的语句？如何在VB编程中实现重命名文件或文件夹? 在VB中，如何实现把文件拖到VB程序中，程序能自动打开 VB编程中如何禁止一个窗体的最小化 vb中如何实现在文件框中右键选中一个文件后弹出一个菜单如何禁止在电脑桌面任意建立文件？ vb中如何调用图标文件