posted @ 2006-11-23 21:23 隐客 阅读(356) 评论(0) 推荐(0)
摘要:
select a,b,c,d from tablename group by a,b,c,d having count(*)>1 阅读全文
摘要:
通过此演练,可以用 VB 创建 COM 加载项。COM 加载项可以在不给用户增加复杂性的情况下扩展应用程序的功能。究其实质,COM 加载项是一个动态链接库 (DLL),需要进行注册才能供 Microsoft? Office XP 应用程序加载和使用。虽然可以将加载项编写成可执行文件 (.exe),但 DLL 通常会比.exe 文件提供更好的性能。 此演练将使用 VB 创建并运行一个自定义工... 阅读全文
posted @ 2006-10-26 09:32 隐客 阅读(2935) 评论(4) 推荐(0)
摘要:
//write by wenhui.orgusing System;using System.IO;using System.Text;using System.Collections; namespace PDFGenerator{ public class PDFGenerator{static float pageWidth = 594.0f;static float pageDepth =... 阅读全文
posted @ 2006-10-11 09:50 隐客 阅读(888) 评论(1) 推荐(1)
摘要:
一般来说,每一个字段的内容会单独显示于DataGridView控件的一个数据行中。问题是,某些字段拥有大量文字数据,我是不是能够让该字段的内容以跨数据行的方式来显示,以便在有限的画面空间中的呈现出更完整的内容呢?答案当然是肯定的。 以图表1所示的执行画面而言,「自传」字段的内容并未单独显示于一个数据行中,而是以横跨数据行的方式,显示在同笔数据列之各字段内容的下方。相关程序代码... 阅读全文
posted @ 2006-10-10 17:14 隐客 阅读(2031) 评论(1) 推荐(0)
摘要:
已知有一个XML文件(bookstore.xml)如下:Oberon's LegacyCorets, Eva5.951、往节点中插入一个节点:XmlDocument xmlDoc=new XmlDocument();xmlDoc.Load("bookstore.xml");XmlNode root=xmlDoc.SelectSingleNode("bookstore");//查找XmlElemen... 阅读全文
posted @ 2006-10-10 17:10 隐客 阅读(600) 评论(0) 推荐(0)
摘要:
Option ExplicitPrivate Sub Command1_Click()CreateProgManGroup Me, "测试", "test.grp"CreateProgManItem Me, "d:\ghost.exe", "Ghost"CreateProgManItem Me, "d:\setupQQ.exe", "QQ"End SubSub CreateProgManGroup... 阅读全文
posted @ 2006-09-29 09:04 隐客 阅读(2669) 评论(0) 推荐(0)
摘要:
控制面板 模块: control.exe 命令: rundll32.exe shell32.dll,Control_RunDLL 结果: 显示控制面板窗口。 例子: Dim x x = Shell("rundll32.exe shell32.dll,Control_RunDLL") 辅助选项 模块: access.cpl 命令: rundll32.exe shell32.dll,Control_R... 阅读全文
posted @ 2006-09-29 08:59 隐客 阅读(13800) 评论(5) 推荐(0)
摘要:
上网的朋友一定都用过网络蚂蚁(Net Ants)的吧?不知你在使用过程中有没有注意过,那就是如果你想调动两个“蚂蚁”为您效力是不可能的——它总会把新运行的关闭。这点在VB中很容易实现:Private Sub Form_Load()If App.PrevInstance ThenMsgBox "你已经运行这个应用程序了"End ' 退出新运行的程序End IfEnd Sub这样如果你运行这个程序后在... 阅读全文
posted @ 2006-09-29 08:57 隐客 阅读(725) 评论(0) 推荐(0)
摘要:
两个API函数,这两个函数分别是SHGetSpecialFolderLocation和SHGetPathFromIDList,这就是我们用来获得各种路径的武器。 函数声明: Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hwndOwner As Long, ByVal nFolder As Inte... 阅读全文
posted @ 2006-09-29 08:54 隐客 阅读(853) 评论(0) 推荐(0)
摘要:
Option ExplicitPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)'测试Private Sub Command1_Click()selectitem "e:\mc\mmtest.jpg"Sleep 10000selectitem "e:\mc"End SubPrivate Sub select... 阅读全文
posted @ 2006-09-29 08:52 隐客 阅读(742) 评论(0) 推荐(0)
浙公网安备 33010602011771号