我为她/它狂~~~在工作中注重结果，在生活中享受过程!GIS服务网|GIS服务论坛:http://www.gisfuwu.com淘宝店铺:http://shop60774720.taobao.com-->http://feed.cnblogs.com/blog/u/19938/rss2011-05-08T12:58:28Z潘奕涛http://www.cnblogs.com/pyt5208/feed.cnblogs.comhttp://www.cnblogs.com/pyt5208/archive/2011/04/17/2018972.html

Option Explicit Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As LongPrivate Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As LongPrivate lHwnd As Long Private Sub Form_Load() On Error GoTo ErrTrap Dim acadAp

2011-04-17T08:50:00Z2011-04-17T08:50:00Z潘奕涛http://www.cnblogs.com/pyt5208/<div style="background-color: #F5F5F5;border: 1px solid #CCCCCC;padding:10px;">Option Explicit <br/>Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long<br/>Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long<br/>Private lHwnd As Long <br/>Private Sub Form_Load()<br/> <br/> On Error GoTo ErrTrap<br/> Dim acadApp As Object<br/> Set acadApp = CreateObject("AutoCAD.Application")<br/> acadApp.Visible = True<br/> lHwnd = GetParent(GetParent(acadApp.Activedocument.hwnd))<br/> If lHwnd = 0 Then Exit Sub<br/> SetParent lHwnd, Form1.hwnd<br/> Exit Sub<br/> <br/>ErrTrap:<br/> On Error GoTo 0<br/>End Sub <br/>Private Sub Form_Unload(Cancel As Integer)<br/> If lHwnd = 0 Then Exit Sub<br/> SetParent lHwnd, 0<br/>End Sub<br/></div><img src="http://www.cnblogs.com/pyt5208/aggbug/2018972.html?type=1" width="1" height="1" alt=""/><p><a href="http://www.cnblogs.com/pyt5208/archive/2011/04/17/2018972.html" target="_blank">本文链接</a></p>http://www.cnblogs.com/pyt5208/archive/2010/06/21/1761817.html

安装sqlserver2005，安装过程中却出现了msxml安装失败，其他就跟着一连串失败。然后就直接找到msxml6.msi安装，可却提示安装失败，原因是已经有更高版本。于是打开添加删除程序，里面真的有msxml6了。可问题又来了，我卸载msxml6是居然说安装出现严重错误之类的提示，然后就是怎么也卸载不了。到网上找到的结果说是由于xpsp3对msxml6的保护而导致的，所以卸掉sp3是一个解决...

2010-06-21T03:28:00Z2010-06-21T03:28:00Z潘奕涛http://www.cnblogs.com/pyt5208/<p>安装sql&nbsp;server&nbsp;2005，安装过程中却出现了msxml安装失败，其他就跟着一连串失败。然后就直接找到msxml6.msi安装，可却提示安装失败，原因是已经有更高版本。于是打开添加删除程序，里面真的有msxml6了。可问题又来了，我卸载msxml6是居然说安装出现严重错误之类的提示，然后就是怎么也卸载不了。<br />&nbsp;&nbsp;&nbsp;&nbsp;到网上找到的结果说是由于xp&nbsp;sp3对msxml6的保护而导致的，所以卸掉sp3是一个解决方法。但我不想这么做，还是想把msxml6给干掉。搜索继续，终于有个人说了msxml6的卸载方法，就是找一个专门的卸载软件可以卸载掉。可惜他并没有说是什么软件，只说是在外国网上一个网友提供的。很不爽，我这个终于过六级的孩子也决定Google搜索外国网站看看。果然，一个叫Dave的外国网友提出相同的问题，而在别人的回复中就给出了该卸载软件（windows&nbsp;install&nbsp;clean&nbsp;up）到下载地址，文件名是msicuu2.exe，但下载不了（可能是学校的网速不行）。于是在搜索栏里输入&ldquo;msicuu2&nbsp;下载&rdquo;，居然有不少的结果，用该软件果然能顺利地把msxml&nbsp;6.0&nbsp;给卸载了。再去安装sql&nbsp;server&nbsp;2005时一切就顺利了。</p><img src="http://www.cnblogs.com/pyt5208/aggbug/1761817.html?type=1" width="1" height="1" alt=""/><p><a href="http://www.cnblogs.com/pyt5208/archive/2010/06/21/1761817.html" target="_blank">本文链接</a></p>http://www.cnblogs.com/pyt5208/archive/2010/05/02/1726056.html

看到§猪阿不猪§提到一个DataTable.Select的注意事项: 注意去掉不正确的单引号.平时项目中,我们一般是直接在写filter语句时这样写theName = theName.Replace("'","''");string filter = string.Format("Name = '{0}'", theName);不过有时候也比较麻烦, 如果你的filter里面c...

2010-05-02T11:19:00Z2010-05-02T11:19:00Z潘奕涛http://www.cnblogs.com/pyt5208/看到§猪阿不猪§提到一个DataTable.Select的注意事项: 注意去掉不正确的单引号.平时项目中,我们一般是直接在写filter语句时这样写theName = theName.Replace("'","''");string filter = string.Format("Name = '{0}'", theName);不过有时候也比较麻烦, 如果你的filter里面c...http://www.cnblogs.com/pyt5208/archive/2010/04/23/1719005.html

之前写的VBA代码，如果全部用.NET改写，比较劳命伤财，没什么兴趣改写。所以用了一种很偷懒的方法。 通过com方式调用AutoCAD 200x Type Library，和AutoCAD/ObjectDBX Common xx.x Type Library，定义VBA中的ThisDrawing对象，书写比较规范的VBA代码基本上不用做什么修改就能运行了。 对于VBA中的窗体，可以先导出为VB窗体...

2010-04-23T15:45:00Z2010-04-23T15:45:00Z潘奕涛http://www.cnblogs.com/pyt5208/之前写的VBA代码，如果全部用.NET改写，比较劳命伤财，没什么兴趣改写。所以用了一种很偷懒的方法。 通过com方式调用AutoCAD 200x Type Library，和AutoCAD/ObjectDBX Common xx.x Type Library，定义VBA中的ThisDrawing对象，书写比较规范的VBA代码基本上不用做什么修改就能运行了。 对于VBA中的窗体，可以先导出为VB窗体...http://www.cnblogs.com/pyt5208/archive/2010/04/23/1718999.html

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 tran...

2010-04-23T15:29:00Z2010-04-23T15:29:00Z潘奕涛http://www.cnblogs.com/pyt5208/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 tran...http://www.cnblogs.com/pyt5208/archive/2010/04/21/1717250.html

你或许知道你能使用String.Trim方法去除字符串的头和尾的空格,不幸运的是. 这个Trim方法不能去除字符串中间的C#空格。static void Main() { //demo1 除去空格，提取出各个单词 string s = "a b c"; string[] word = s.Split(new char[] { ' ' }); foreach (string temp in ...

2010-04-21T07:05:00Z2010-04-21T07:05:00Z潘奕涛http://www.cnblogs.com/pyt5208/你或许知道你能使用String.Trim方法去除字符串的头和尾的空格,不幸运的是. 这个Trim方法不能去除字符串中间的C#空格。static void Main() { //demo1 除去空格，提取出各个单词 string s = "a b c"; string[] word = s.Split(new char[] { ' ' }); foreach (string temp in ...http://www.cnblogs.com/pyt5208/archive/2009/02/05/1384698.html

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

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

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

2009-02-05T08:13:00Z2009-02-05T08:13:00Z潘奕涛http://www.cnblogs.com/pyt5208/简化程序,仅有创建读取查询,读取查询语句,创建存储过程模块CreateSP.vb=======================================================Imports SystemImports System.DataImports System.Data.OleDbModule CreateSPSub Main()ProductsProcs()End Sub...http://www.cnblogs.com/pyt5208/archive/2008/12/05/1348099.html

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

2008-12-05T02:17:00Z2008-12-05T02:17:00Z潘奕涛http://www.cnblogs.com/pyt5208/[代码][代码][代码]http://www.cnblogs.com/pyt5208/archive/2008/11/19/1336811.html

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

2008-11-19T08:59:00Z2008-11-19T08:59:00Z潘奕涛http://www.cnblogs.com/pyt5208/Form1——主窗体：namespace FirstDlg{ public partial class Form1 : Form { private Form2 f; public Form1() { InitializeComponent(); } public string TextStored { get { return tbTest.Text; } set { t...