小隐的博客

人生在世,笑饮一生
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  编程资料

上一页 1 ··· 5 6 7 8 9

摘要://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 隐客 阅读(889) 评论(1) 推荐(1)

摘要:一般来说,每一个字段的内容会单独显示于DataGridView控件的一个数据行中。问题是,某些字段拥有大量文字数据,我是不是能够让该字段的内容以跨数据行的方式来显示,以便在有限的画面空间中的呈现出更完整的内容呢?答案当然是肯定的。 以图表1所示的执行画面而言,「自传」字段的内容并未单独显示于一个数据行中,而是以横跨数据行的方式,显示在同笔数据列之各字段内容的下方。相关程序代码... 阅读全文

posted @ 2006-10-10 17:14 隐客 阅读(2032) 评论(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 隐客 阅读(601) 评论(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)

上一页 1 ··· 5 6 7 8 9
QQ交流