水如烟

                 顺其自然,水到渠成 LzmTW

文或代码皆是面向初学者.我是爱好者,也是初学者.那些"文章",只按自己理解写,我是不知术语名词的.所以只供参考,也仅供参考.

导航

2005年10月26日

摘要: 果是奇怪参考:风满袖《To handle Unhandled Exception 》 Public Class Form2Class Form2 Inherits System.Windows.Forms.FormWindows 窗体设计器生成的代码#Region " Windows 窗体设计器生成的代码 " Public Sub New()Sub New() MyBa... 阅读全文

posted @ 2005-10-26 17:09 水如烟(LzmTW) 阅读(1706) 评论(0) 推荐(0) 编辑

2005年10月25日

摘要: Author:水如烟 一、异常是避免不了的 异常是避免不了的。比如将一个八位数字字串转换为相应的日期。 初始的代码如下: Public Class Dig8ToDateTimeClass Dig8ToDateTime Private Const DIG8_PATTERN As String = "\b(\d{4})(\d{2})(\d{2})\b" Priv... 阅读全文

posted @ 2005-10-25 17:47 水如烟(LzmTW) 阅读(871) 评论(4) 推荐(0) 编辑

2005年10月22日

摘要: Author:水如烟 身份证的前6位就是表示开出身份证所在地的区划代码。 图:测试示图 类: ''' ----------------------------------------------------------------------------- ''' Project : LzmTW.Common ''' Class : Common.RegionalCodeClas... 阅读全文

posted @ 2005-10-22 22:53 水如烟(LzmTW) 阅读(27497) 评论(92) 推荐(0) 编辑

2005年10月21日

摘要: Author:水如烟 '测试一 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '列出所有菜单项名称和标题 Dim t As Hashtable = L... 阅读全文

posted @ 2005-10-21 02:50 水如烟(LzmTW) 阅读(620) 评论(0) 推荐(0) 编辑

2005年10月17日

摘要: Author:水如烟有时候我们想将数组的内容显示在DataGrid上。怎么做呢,MSDN关于DataGrid的说明上说,“也可以将 DataGrid 绑定到 ArrayList。ArrayList 的一个功能是它可以包含多种类型的对象,但当列表中的所有项与第一项具有相同的类型时,DataGrid 只能绑定到这类列表。这意味着所有的对象必须是同一种类型,或者必须从与列表中第一项相同的类继承。例如,如... 阅读全文

posted @ 2005-10-17 00:32 水如烟(LzmTW) 阅读(1361) 评论(4) 推荐(0) 编辑

摘要: Author:水如烟项目要求:Option Strict Off并引用Microsoft OLE DB Service Component 1.0 Type Library Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand... 阅读全文

posted @ 2005-10-17 00:15 水如烟(LzmTW) 阅读(270) 评论(0) 推荐(0) 编辑

摘要: Author:水如烟使用ManagementClass。下面的示例是检索硬盘信息的。 Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim disks As New Ma... 阅读全文

posted @ 2005-10-17 00:11 水如烟(LzmTW) 阅读(247) 评论(0) 推荐(0) 编辑

摘要: Author:水如烟当然,这里所谓的文件是指完整的文件名称,至于文件的内容,须按实际情况进一步的操作。我这里的控件为一个ListBox。代码如下: Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ... 阅读全文

posted @ 2005-10-17 00:08 水如烟(LzmTW) 阅读(292) 评论(0) 推荐(0) 编辑

摘要: Author:水如烟关键引用空间:System.directoryservices,System.Management 说明:Form上有一个TreeView1,Button1 代码如下: Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArg... 阅读全文

posted @ 2005-10-17 00:02 水如烟(LzmTW) 阅读(381) 评论(0) 推荐(0) 编辑

2005年10月16日

摘要: 原作者:John Papa, Matthew Shepker 1999 整理: 水如烟 示例: Use pubs GO exec prCrosstab 'stor_id','ord_date','qty','sales',1,5 结果: RowHead Year_1992 Year_1993 Year_1994 6380 0 0 8 706... 阅读全文

posted @ 2005-10-16 23:34 水如烟(LzmTW) 阅读(408) 评论(0) 推荐(0) 编辑

摘要: Author:水如烟用的是VBS.我的域名是fkdl.lcoal,添加用户到Users中.下面是AddUsers.Vbs的内容:它从同文件夹的users.txt读取要添加的用户及其密码.Set adsOU=GetObject("LDAP://CN=Users,DC=fkdl,DC=local")Const ForReading = 1Set objFSO = CreateObject("Scrip... 阅读全文

posted @ 2005-10-16 23:08 水如烟(LzmTW) 阅读(1662) 评论(5) 推荐(0) 编辑