| tiancao1001 于 2009-02-06 02:44 PM 发表评论： |
RegisterServiceProcess 注册系统服务在NT系统下已经不能使用
|
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2009-02-06 02:40 PM 发表评论： |
Private Const SW_HIDE = 0
Private Const GW_OWNER = 4
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Sub MDIForm_Load()
Dim rc As Long
Dim OwnerhWnd As Long
'从任务管理器列表中移除
OwnerhWnd = GetWindow(Me.hwnd, GW_OWNER)
rc = ShowWindow(OwnerhWnd, SW_HIDE)
End Sub
上面的代码已经被App.TaskVisible = False取代。 |
|
| 查看所评论的日志：田草日志 |
| keyer 于 2009-01-28 10:02 PM 发表评论： |
| 您好，可以发一份学习一下吗？keyer_hu@163.com |
|
| 查看所评论的日志：推荐西北凡人制作的AutoCAD VBA教程【电子书】 |
| keyer 于 2009-01-28 09:32 PM 发表评论： |
| 下不了呀，朋友。发一份到我邮箱吧。keyer_hu@163.com |
|
| 查看所评论的日志：Mastering AutoCAD VBA 从入门到精通.pdf 电子版格式 |
| vodoo 于 2009-01-27 00:20 AM 发表评论： |
|
| 查看所评论的日志：田草CAD工具箱(VBA)安装程序（2009.04.13） |
| tiancao1001 于 2009-01-25 03:53 PM 发表评论： |
emule会过滤搜索关键词，
我们只有清空config文件夹下面得wordfilter.txt，就可以了。 |
|
| 查看所评论的日志：田草日志 |
| tiancao1001 于 2009-01-23 10:22 AM 发表评论： |
winXP SP2 IIS 出现 “服务没有及时响应启动或控制请求” 错误解决方
是删除系统自动更新 KB939373。OK
|
|
| 查看所评论的日志：田草日志 |
| ahhfsy 于 2009-01-20 10:36 AM 发表评论： |
真是个好办法。
请问一下：
使用CAD的VBA 创建一个打印程序，打印图纸空间（图纸空间比较多），使用上一次打印设置怎么搞？谢谢
这是我的代码：
Private Sub CommandButton2_Click()
'
' 建立要打印的图纸空间布局
Dim strLayouts(0 To 999) As String
Dim varLayouts As Variant
Dim n As Integer
Dim m As Integer
For m = 0 To ListBox1.ListCount - 1
strLayouts(m) = ListBox1.List(m)
'MsgBox (ListBox1.List(m))
Next m
varLayouts = strLayouts
ThisDrawing.Plot.SetLayoutsToPlot varLayouts
' 将打印份数设置为 1
ThisDrawing.Plot.NumberOfCopies = 1
' 初始化打印
'ThisDrawing.Plot.PlotToDevice ThisDrawing.ModelSpace.Layout.ConfigName
ThisDrawing.Plot.PlotToDevice
---------------------------------------------------------------------------
我用他打印listbox里显示的图纸空间，可我不晓得怎么使用“上一次打印”的样式，请帮帮忙，谢谢
|
|
| 查看所评论的日志：田草CAD工具箱(VBA)安装程序（2009.04.13） |
[83] [84] [85] [86] [87] [88] [89] [90] [91] [92] ... [143] 