博客园_『深巷の布衣』

将cad嵌入到vb中

2011-04-17T08:50:00Z

Option Explicit 
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private lHwnd As Long 
Private Sub Form_Load()
    
    On Error GoTo ErrTrap
    Dim acadApp As Object
    Set acadApp = CreateObject("AutoCAD.Application")
    acadApp.Visible = True
    lHwnd = GetParent(GetParent(acadApp.Activedocument.hwnd))
    If lHwnd = 0 Then Exit Sub
    SetParent lHwnd, Form1.hwnd
    Exit Sub
    
ErrTrap:
    On Error GoTo 0
End Sub 
Private Sub Form_Unload(Cancel As Integer)
    If lHwnd = 0 Then Exit Sub
    SetParent lHwnd, 0
End Sub

本文链接

sql server 2005 msxml安装失败解决及msxml 6.0 卸载

2010-06-21T03:28:00Z

安装sql server 2005，安装过程中却出现了msxml安装失败，其他就跟着一连串失败。然后就直接找到msxml6.msi安装，可却提示安装失败，原因是已经有更高版本。于是打开添加删除程序，里面真的有msxml6了。可问题又来了，我卸载msxml6是居然说安装出现严重错误之类的提示，然后就是怎么也卸载不了。
到网上找到的结果说是由于xp sp3对msxml6的保护而导致的，所以卸掉sp3是一个解决方法。但我不想这么做，还是想把msxml6给干掉。搜索继续，终于有个人说了msxml6的卸载方法，就是找一个专门的卸载软件可以卸载掉。可惜他并没有说是什么软件，只说是在外国网上一个网友提供的。很不爽，我这个终于过六级的孩子也决定Google搜索外国网站看看。果然，一个叫Dave的外国网友提出相同的问题，而在别人的回复中就给出了该卸载软件（windows install clean up）到下载地址，文件名是msicuu2.exe，但下载不了（可能是学校的网速不行）。于是在搜索栏里输入“msicuu2 下载”，居然有不少的结果，用该软件果然能顺利地把msxml 6.0 给卸载了。再去安装sql server 2005时一切就顺利了。

本文链接

智能替换DataTable.Select中会导致错误的单引号

2010-05-02T11:19:00Z

看到§猪阿不猪§提到一个DataTable.Select的注意事项: 注意去掉不正确的单引号.

平时项目中,我们一般是直接在写filter语句时这样写

theName = theName.Replace("'","''");
string filter = string.Format("Name = '{0}'", theName);

不过有时候也比较麻烦, 如果你的filter里面code的值一多,处理起来就比较烦.

针对这个问题,以前写了一个专门的replace函数(vb.net),能够智能替换filter中不正确的单引号,并保留正确的单引号.

比如有语句: filter = "Name = 'theN'ame' AND Code = 'd'd'", 把整个filter经过处理之后,得到"Name = 'theN''ame' AND Code = 'd''d'"

不过这个版本的算法比较粗糙 (特别时在处理Like, IN关键字的时候, 实在是恶心的代码 -_-bb) 不过暂时能应付项目的要求, 当然Unit Test也是必不可少的.

大家可以看看,也欢迎提出更好的算法 :)

源代码和Unit Test 代码在这里.(updated: 2005/9/23: fixed some bugs)

最后废话一句: 用Dataset就是麻烦...

本文链接

CADVBA代码移植到.NET

2010-04-23T15:45:00Z

之前写的VBA代码，如果全部用.NET改写，比较劳命伤财，没什么兴趣改写。所以用了一种很偷懒的方法。
       通过com方式调用AutoCAD 200x Type Library，和AutoCAD/ObjectDBX Common xx.x Type Library，定义VBA中的ThisDrawing对象，书写比较规范的VBA代码基本上不用做什么修改就能运行了。
       对于VBA中的窗体，可以先导出为VB窗体，然后用升级向导升级到.NET，做些必要的修改就可以了。
       AutoDesk官方有相关的视频教程，还有个导出VBA到VB的工具。VBA→VB→VB.NET
       相关视频及工具下载地址: http://download.autodesk.com/media/adn/VBA_Migration/DevTV_Recording.zip

[VB.NET]

 1 Imports Autodesk.AutoCAD.Interop 
 2 
 3  Public Class Class1 
 4 
 5      ReadOnly Property ThisDrawing() As Autodesk.AutoCAD.Interop.AcadDocument 
 6         Get 
 7             Return Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument 
 8         End Get 
 9     End Property 
10 
11      <Autodesk.AutoCAD.Runtime.CommandMethod("TEST")> _ 
12     Sub test() 
13          ThisDrawing.Utility.Prompt("Hello World!") 
14     End Sub 
15 
16 End Class

[C#]

 1 using System; 
 2 using System.Collections.Generic; 
 3 using System.Text; 
 4 using Autodesk.AutoCAD.Interop; 
 5 
 6 namespace CSTest 
 7 { 
 8     public class Class1 
 9      { 
10         public static AcadDocument ThisDrawing 
11          { 
12             get 
13              { 
14                 return (AcadDocument)Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.AcadDocument; 
15              } 
16          } 
17 
18          [Autodesk.AutoCAD.Runtime.CommandMethod("TEST")] 
19         public void test() 
20          { 
21              ThisDrawing.Utility.Prompt("Hello World!"); 
22          } 
23 
24      } 
25 }
26 
27

本文链接

最全ASCII码对照表(备用)

2010-04-23T15:29:00Z

Bin               Dec     Hex         缩写/字符                                       解释
0000 0000     0           00             NUL (null)                                       空字符
0000 0001     1           01             SOH (start of handing)                   标题开始
0000 0010     2           02             STX (start of text)                           正文开始
0000 0011     3           03             ETX (end of text)                           正文结束
0000 0100     4           04             EOT (end of transmission)             传输结束
0000 0101     5           05             ENQ (enquiry)                               请求
0000 0110     6           06             ACK (acknowledge)                       收到通知
0000 0111     7           07             BEL (bell)                                       响铃
0000 1000     8           08             BS (backspace)                             退格
0000 1001     9           09             HT (horizontal tab)                         水平制表符
0000 1010     10         0A             LF (NL line feed, new line)             换行键
0000 1011     11         0B             VT (vertical tab)                             垂直制表符
0000 1100     12         0C             FF (NP form feed, new page)         换页键
0000 1101     13         0D             CR (carriage return)                       回车键
0000 1110     14         0E             SO (shift out)                                 不用切换
0000 1111     15         0F             SI (shift in)                                     启用切换
0001 0000     16         10             DLE (data link escape)                   数据链路转义
0001 0001     17         11             DC1 (device control 1)                   设备控制1
0001 0010     18         12             DC2 (device control 2)                   设备控制2
0001 0011     19         13             DC3 (device control 3)                   设备控制3
0001 0100     20         14             DC4 (device control 4)                   设备控制4
0001 0101     21         15             NAK (negative acknowledge)         拒绝接收
0001 0110     22         16             SYN (synchronous idle)                 同步空闲
0001 0111     23         17             ETB (end of trans. block)               传输块结束
0001 1000     24         18             CAN (cancel)                                 取消
0001 1001     25         19             EM (end of medium)                       介质中断
0001 1010     26         1A             SUB (substitute)                             替补
0001 1011     27         1B             ESC (escape)                                 溢出
0001 1100     28         1C             FS (file separator)                         文件分割符
0001 1101     29         1D             GS (group separator)                     分组符
0001 1110     30         1E             RS (record separator)                   记录分离符
0001 1111     31         1F             US (unit separator)                         单元分隔符

0010 0000     32         20             空格
0010 0001     33         21             !
0010 0010     34         22             "
0010 0011     35         23             #
0010 0100     36         24             $
0010 0101     37         25             %
0010 0110     38         26             &
0010 0111     39         27             '
0010 1000     40         28             (
0010 1001     41         29             )
0010 1010     42         2A             *
0010 1011     43         2B             +
0010 1100     44         2C             ,
0010 1101     45         2D             -
0010 1110     46         2E             .
0010 1111     47         2F             /
0011 0000     48         30             0
0011 0001     49         31             1
0011 0010     50         32             2
0011 0011     51         33             3
0011 0100     52         34             4
0011 0101     53         35             5
0011 0110     54         36             6
0011 0111     55         37             7
0011 1000     56         38             8
0011 1001     57         39             9
0011 1010     58         3A             :
0011 1011     59         3B             ;
0011 1100     60         3C             <
0011 1101     61         3D             =
0011 1110     62         3E             >
0011 1111     63         3F             ?
0100 0000     64         40             @

0100 0001     65         41             A
0100 0010     66         42             B
0100 0011     67         43             C
0100 0100     68         44             D
0100 0101     69         45             E
0100 0110     70         46             F
0100 0111     71         47             G
0100 1000     72         48             H
0100 1001     73         49             I
0100 1010     74         4A             J
0100 1011     75         4B             K
0100 1100     76         4C             L
0100 1101     77         4D             M
0100 1110     78         4E             N
0100 1111     79         4F             O
0101 0000     80         50             P
0101 0001     81         51             Q
0101 0010     82         52             R
0101 0011     83         53             S
0101 0100     84         54             T
0101 0101     85         55             U
0101 0110     86         56             V
0101 0111     87         57             W
0101 1000     88         58             X
0101 1001     89         59             Y
0101 1010     90         5A             Z
0101 1011     91         5B             [
0101 1100     92         5C             \
0101 1101     93         5D             ]
0101 1110     94         5E             ^
0101 1111     95         5F             _
0110 0000     96         60             `

0110 0001     97         61             a
0110 0010     98         62             b
0110 0011     99         63             c
0110 0100     100       64             d
0110 0101     101       65             e
0110 0110     102       66             f
0110 0111     103       67             g
0110 1000     104       68             h
0110 1001     105       69             i
0110 1010     106       6A             j
0110 1011     107       6B             k
0110 1100     108       6C             l
0110 1101     109       6D             m
0110 1110     110       6E             n
0110 1111     111       6F             o
0111 0000     112       70             p
0111 0001     113       71             q
0111 0010     114       72             r
0111 0011     115       73             s
0111 0100     116       74             t
0111 0101     117       75             u
0111 0110     118       76             v
0111 0111     119       77             w
0111 1000     120       78             x
0111 1001     121       79             y
0111 1010     122       7A             z
0111 1011     123       7B             {
0111 1100     124       7C             |
0111 1101     125       7D             }
0111 1110     126       7E             ~

0111 1111     127       7F             DEL (delete)                                 删除
ESC键           VK_ESCAPE (27)
回车键：        VK_RETURN (13)
TAB键：       VK_TAB (9)
Caps Lock键： VK_CAPITAL (20)
Shift键：         VK_SHIFT ()
Ctrl键：         VK_CONTROL (17)
Alt键：          VK_MENU (18)
空格键：         VK_SPACE (/32)
退格键：         VK_BACK (8)
左徽标键： VK_LWIN (91)
右徽标键：    VK_LWIN (92)
鼠标右键快捷键：VK_APPS (93)
Insert键：        VK_INSERT (45)
Home键：        VK_HOME (36)
Page Up：       VK_PRIOR (33)
PageDown： VK_NEXT (34)
End键：          VK_END (35)
Delete键：       VK_DELETE (46)
方向键(←)：    VK_LEFT (37)
方向键(↑)：    VK_UP (38)
方向键(→)：    VK_RIGHT (39)
方向键(↓)：    VK_DOWN (40)
F1键：             VK_F1 (112)
F2键：             VK_F2 (113)
F3键：             VK_F3 (114)
F4键：             VK_F4 (115)
F5键：             VK_F5 (116)
F6键：             VK_F6 (117)
F7键：             VK_F7 (118)
F8键：             VK_F8 (119)
F9键：             VK_F9 (120)
F10键：           VK_F10 (121)
F11键：           VK_F11 (122)
F12键：          VK_F12 (123)
Num Lock键： VK_NUMLOCK (144)
小键盘0：        VK_NUMPAD0 (96)
小键盘1：         VK_NUMPAD0 (97)
小键盘2：         VK_NUMPAD0 (98)
小键盘3：         VK_NUMPAD0 (99)
小键盘4：        VK_NUMPAD0 (100)
小键盘5：        VK_NUMPAD0 (101)
小键盘6：         VK_NUMPAD0 (102)
小键盘7：         VK_NUMPAD0 (103)
小键盘8：         VK_NUMPAD0 (104)
小键盘9：        VK_NUMPAD0 (105)
小键盘.：         VK_DECIMAL (110)
小键盘*：         VK_MULTIPLY (106)
小键盘+：         VK_MULTIPLY (107)
小键盘-：         VK_SUBTRACT (109)
小键盘/：         VK_DIVIDE (111)
Pause Break键： VK_PAUSE (19)
Scroll Lock键： VK_SCROLL (145)

本文链接

C# 删除字符串中任何位置的空格

2010-04-21T07:05:00Z

你或许知道你能使用String.Trim方法去除字符串的头和尾的空格,不幸运的是. 这个Trim方法不能去除字符串中间的C#空格。　　

static void Main()
        {
            //demo1     除去空格，提取出各个单词
            string s = "a b c";
            string[] word = s.Split(new char[] { ' ' });
            foreach (string temp in word)
                Console.WriteLine(temp);

            //demo2     直接去除所有空格
            s=s.Replace(" ","");
            Console.WriteLine(s);

            //demo3     去掉首尾空格
            s = " aaa ";
            s = s.Trim();
            Console.WriteLine(s);
        }

另一版本如下:　　　　

string text = "  My test\nstring\r\n is\t quite long  ";  
string trim = text.Trim();

这个'trim' 字符串将会是:

"My test\nstring\r\n is\t quite long" (31 characters)

另一个清除C#空格方法是使用 String.Replace 方法, 但是这需要你通过调用多个方法来去除个别C#空格:

string trim = text.Replace( " ", "" );  
trim = trim.Replace( "\r", "" );  
trim = trim.Replace( "\n", "" );  
trim = trim.Replace( "\t", "" );

这里最好的方法就是使用正则表达式.你能使用Regex.Replace方法, 它将所有匹配的替换为指定的字符.在这个例子中,使用正则表达式匹配符"\s",它将匹配任何空格包含在这个字符串里C#空格, tab字符, 换行符和新行(newline).

string trim = Regex.Replace( text, @"\s", "" );

这个'trim' 字符串将会是:

"Myteststringisquitelong"  (23 characters)

本文链接

在VB.NET中使用MS Access存储过程(转载)

2009-02-05T08:14:00Z

最新发布的MS Access中，微软已经尽努力使这种产品成为一个真正全功能的关系数据库系统。存储过程，一个通常和企业数据库系统例如SQLServer相关的功能，现在也可以在Access里找到了。自从Access2000以来，Access已经具备了存储过程的功能，而且是Jet 4 Database Engine自带的。如果你习惯于在SQL SERVER里使用存储过程，那么你就会很熟悉它们如何在A...

Access存储过程,环境:VB 2005+.NET2.0+ACCESS2003(转载)

2009-02-05T08:13:00Z

简化程序,仅有创建读取查询,读取查询语句,创建存储过程模块CreateSP.vb=======================================================Imports SystemImports System.DataImports System.Data.OleDbModule CreateSPSub Main()ProductsProcs()End Sub...

关键性代码整理

2008-12-05T02:17:00Z

[代码][代码][代码]

WinForm窗体间传值

2008-11-19T08:59:00Z

Form1——主窗体：namespace FirstDlg{ public partial class Form1 : Form { private Form2 f; public Form1() { InitializeComponent(); } public string TextStored { get { return tbTest.Text; } set { t...