[本日志由 tiancao1001 于 2015-03-13 01:04 PM 编辑]
|


在CAD中,使用truetype字体,并且字体宽度为1,导出wmf后,再导入dwg,文字不会被炸开。
两年三个月1000万
比如 TDbText TDbMText TDbWall等。
其属性也很简单,基本上同autocad。
比如文字对象
TDbText.text
TDbText.Layer
江苏省民用建筑热环境与节能设计标准 D32/478-2001 只能适用与居住建筑,这在其1.0.3条有规定,且要求居住建筑达到节能50%的水平。
门式钢架天沟一般不做排水坡度
Private Const SW_SHOWNA = 8
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "c:\temp.jpg", "", "", SW_SHOWNA
End Sub
vb中使用shell,执行系统变量
2009年的第一个工程确是一块广告牌
Sub DelAllPoint()
Dim E As AcadEntity
Dim B As AcadBlock
For Each B In ThisDrawing.Blocks
For Each E In B
If TypeOf E Is AcadPoint Then
E.Delete
End If
Next
Next
ThisDrawing.Regen
End Sub
手机号码段数据库分享
echo %cd%
echo %~dp0
pause
BAT 显示当前文件夹路径
MDI窗体没有ShowInTaskbar 属性,ShowInTaskbar属性还不能在代码中设置
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
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取代。
我们只有清空config文件夹下面得wordfilter.txt,就可以了。
是删除系统自动更新 KB939373。OK
前10分钟,领导们都很忙;
中间10分钟,全国人民都很幸福;
后10分钟,国外生活在水深火热中
asp获取网页源码(HTML代码)
Private Sub Command1_Click()
Dim RegStr As String
RegStr = "regedit /s " & App.Path & "\reg.reg"
Shell RegStr, vbHide
End Sub
Dim RegStr As String
RegStr = "regedit /s " & App.Path & "\reg.reg"
Shell RegStr, vbHide
End Sub
网页框架 分栏模式不能显示的原因是网页中不应该再有body标签。即除去<body></body>.



发表评论 - 不要忘了输入验证码哦! |