自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

水如烟

秋里生活,恬淡宁静。那如洗碧空,那伏黄草地,风凉夜寂,心儿涌动,情绪萦绕。可以凭窗,可以临江,可以坐,可以仰卧,可以独处,可以相依。倚明月,抚清辉,人生多少情怀,尽在秋里?

  • 博客(47)
  • 资源 (4)
  • 收藏
  • 关注

原创 LzmTW.uSystem.uWindows.uForms.uMainForm.Menu(3)

Author:水如烟  Namespace LzmTW.uSystem.uWindows.uForms.uMainForm.Menu    Public Class MenuDesignForm        Private Delegate Sub DataRefleshHandler(ByVal sender As DataAction)        Private Event Da

2006-11-30 13:46:00 2140

原创 LzmTW.uSystem.uWindows.uForms.uMainForm.Menu(2)

Author:水如烟   Namespace LzmTW.uSystem.uWindows.uForms.uMainForm.Menu    Public Class MenuManager        Private gCollection As New MenusCollection        Private gMenuStrip As MenuStrip        Pu

2006-11-30 13:25:00 1464

原创 LzmTW.uSystem.uWindows.uForms.uMainForm.Menu

Author:水如烟  Imports System.ComponentModelImports System.ComponentModel.Design.SerializationImports System.ReflectionImports System.GlobalizationNamespace LzmTW.uSystem.uWindows.uForms.uMainForm.Me

2006-11-30 13:08:00 1453

原创 LzmTW.uSystem.uCollection.SinceLink

Author:水如烟   Namespace LzmTW.uSystem.uCollection          树节点          LzmTW 20061111    Serializable()> _    Public Class Node(Of T)        Friend gIsRoot As Boolean = True        F

2006-11-29 20:56:00 1535

原创 WinForm设计之菜单控制

Author:水如烟   这个你不一定用到它,但有时候会用到它。比如,应用插件的时候,或者按角色权限配置菜单的时候。使用它是相当简单,首先设计好菜单,然后保存了一个文件。使用时主程序MainForm加载菜单文件,绑定事件,就OK了。你可以在保存菜单时附加密码,主程序加载菜单时要求验证密码,这样来保证菜单文件的完整性。由于加密方法各有方法,所以在此我没有具体实现,只给出一个空函数。代

2006-11-29 18:50:00 5778

原创 WinForm设计之UBindingNavigator

Author:水如烟  代码见应用类代码:LzmTW.uSystem.uWindows.uForms + uBindingNavigator  示意图:示例代码:Imports System.ReflectionPublic Class Form1    Private gNorthwind As New Northind    Private Sub Button1_Cl

2006-11-27 10:59:00 2385

原创 LzmTW.uSystem.uWindows.uForms + GridPropertyForm

Author:水如烟  Namespace LzmTW.uSystem.uWindows.uForms    Friend Class GridPropertyForm        Private Sub HScrollBar_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEvent

2006-11-27 10:29:00 1210

原创 LzmTW.uSystem.uWindows.uForms + uBindingNavigator

Author:水如烟  Imports System.ComponentModelNamespace LzmTW.uSystem.uWindows.uForms    System.Drawing.ToolboxBitmap(GetType(BindingNavigator))> _    Public Class uBindingNavigator              Privat

2006-11-27 10:27:00 1912 1

原创 WinForm设计之ToolPanelTree

 Author:水如烟  因为但求简单实现,自己也不深究,所以做出来比较粗糙。马马虎虎应付过去。效果图:控件代码见应用类代码:LzmTW.uSystem.uWindows.uForms + ToolPanelTree Imports System.ReflectionPublic Class Form1    Private Sub Form1_Load(ByVal sen

2006-11-25 21:00:00 2131

原创 LzmTW.uSystem.uWindows.uForms + ToolPanelTree

Author:水如烟  Namespace LzmTW.uSystem.uWindows.uForms    Drawing.ToolboxBitmap(GetType(TreeView))> _    Public Class ToolPanelTree    End ClassEnd Namespace Imports System.ComponentModelName

2006-11-25 20:52:00 1929

原创 WinForm设计之ToolPanel

Author:水如烟  效果图: 模妨IDE。因为不想让用户(含设计者)直接用它,所以设了Friend Class。在下一篇,举例一下,建一个ToolPanelTree控件。代码见应用类代码。LzmTW.uSystem.uWindows.uForms + ToolPanel

2006-11-25 20:47:00 1410

原创 LzmTW.uSystem.uWindows.uForms + ToolPanel

 Author:水如烟  Imports System.Windows.FormsImports System.ComponentModelImports System.ComponentModel.DesignNamespace LzmTW.uSystem.uWindows.uForms    System.Drawing.ToolboxBitmap("../../Resources/T

2006-11-25 20:44:00 1486

原创 LzmTW.uSystem.uWindows.uForms.uMainForm+KeyStatusWatcherStripStatus

Author:水如烟  Imports LzmTW.uSystem.uWindows.Win32APIImports System.ComponentModelNamespace LzmTW.uSystem.uWindows.uForms.uMainForm    Partial Class KeyStatusWatcherStripStatus        Inherits Windo

2006-11-16 00:12:00 1343

原创 LzmTW.uSystem.uWindows.uForms.uMainForm+uNotifyIcon

Author:水如烟  Namespace LzmTW.uSystem.uWindows.uForms.uMainForm    Public Class uNotifyIcon        Private WithEvents gNotifyIcon As New NotifyIcon        Private WithEvents gContextMenuStrip As N

2006-11-16 00:08:00 1251

原创 LzmTW + VisualUiFont

Author:水如烟  注:字体文件在职X:/Program Files/Microsoft Visual Studio 8/Common7/IDE下,嵌为资源。Imports System.Windows.FormsImports System.DrawingNamespace LzmTW    Friend Class VisualUiFont        Private gPr

2006-11-15 23:59:00 1426

原创 小巧门:VS2005的图标哪里找

或许,你并不知道,但宝贝就在你眼前:X:/Program Files/Microsoft Visual Studio 8/Common7/VS2005ImageLibrary 里头的压缩文件便是了。如果没有,下载:VS2005ImageLibrary

2006-11-15 17:41:00 3512 5

原创 WinForm设计之状态栏

Author:水如烟   效果图:代码见 应用类代码 和 辅助类代码。下面说说这个的特点:1、对界面我所学甚浅,也不深究,所以运用方法可能不当。仅只是实现了功能。这也是特点吧。2、对线程的认识我肤浅得很,没有掌握不能把握,乱用一通。3、对反射自己倒是常用,但不知所以然,也没有掌握不能把握。4、以上适用于以后的,即所有的。所以请多指教,不是虚伪般的谦虚。关于ToolS

2006-11-15 17:17:00 2350

原创 LzmTW.uSystem.uReflection+MemberInfoFunction

Author:水如烟  Namespace LzmTW.uSystem.uReflection    Public Class MemberInfoFunction        Private Sub New()        End Sub        Public Shared Function TypeHasFields(ByVal t As Type) As Boolean  

2006-11-15 16:51:00 1139

原创 LzmTW.uSystem.uReflection+DatasFunction

Author:水如烟  Imports LzmTW.uSystem.uReflection.MemberInfoFunctionNamespace LzmTW.uSystem.uReflection    Public Class DatasFunction        Private Sub New()        End Sub        Public Shared Funct

2006-11-15 16:50:00 1245

原创 LzmTW.uSystem.uThreading+CrossThread

Author:水如烟  Imports System.Runtime.InteropServicesNamespace LzmTW.uSystem.uThreading    Public Class CrossThread        Private Sub New()        End Sub        Public Shared Sub SetControlProperty

2006-11-15 16:46:00 1441

原创 LzmTW.uSystem.uThreading+DelegateHandler

Author:水如烟  Namespace LzmTW.uSystem.uThreading    Friend Delegate Sub SetControlPropertyValueHandler(ByVal ctr As Object, ByVal propertyName As String, ByVal value As Object, ByVal index As Object

2006-11-15 16:44:00 1365

原创 注意:因博客园服务器搬迁,本BLOG有关图片、下载文件、链接等失效。请不要尝试使用可能弹出的证书。

搬迁时间自14:00至18:00 不便处,望谅。

2006-11-14 16:20:00 1516

原创 说与做,读《软件质量保证的最佳实践之一:Code review和Case review 》感

刚才读了《软件质量保证的最佳实践之一:Code review和Case review 》,有一感,就是做说结合可以促进质量。我们常提倡默默工作,埋头苦干,在这个大协作的国际分工里头,好象行不通了。做了要说,说了要做,再做再说才是正道。在平常工作中,做了的事向大家说出来,说个所以然来,说与不说,对自己,对工作,对别人,效果大不一样。所以行政上也来了个质询机制。无论是CodeRev

2006-11-14 11:30:00 1388

原创 如何管理标签?

我在问自己。该有个标签理论了,应该早有了,只是自己没看到或没注意到。标签是什么?路标?标签的作用对象是什么?知识?标签的本质是什么?知识整理?村签的用用途是什么?按图索骥?标签管理的关键是什么?整理方法?分类方法?怎么才是好标签?简单扼要?事物普通性和特殊性,标签不理?“代码片”,管它是.NET还是SQL?“技巧”,管它是做扬州蛋炒饭还是绕开防火墙?标签不能

2006-11-13 18:49:00 1223

原创 知识是全人类的?

知识是全人类的,这是从长远来说的。短期来说,知识是垄断集团的,首先为集团(不说阶级)服务。创造知识的过程是付出成本的;投入成本创造知识的过程是为利益服务的,所以有版权。美国总在知识产权维护方面对中国说三道四,说我们使用了他的知识。知识无国界,那可是五十年之后的事,旧知识无国界了,新知识壁垒更深。《掌中无限起诉腾讯垄断 要求QQ开发接口》,莫名其妙。水如烟 2006年11月13日

2006-11-13 17:10:00 1925 1

原创 LzmTW.uSystem.uWindows.Win32API+KeyStatusWather

Author:水如烟   Imports LzmTW.uSystem.uWindows.SafeNativeNamespace LzmTW.uSystem.uWindows.Win32API    Public Class KeyStatusWather        Public Event KeyStatusChanged As KeyStatusWatcherHandler   

2006-11-13 13:09:00 1210

原创 LzmTW.uSystem.uWindows.Win32API+MouseKeyboardHook

Author:水如烟  Imports System.ReflectionImports System.Runtime.InteropServicesImports LzmTW.uSystem.uWindows.SafeNative.SafeNativeMethodsImports LzmTW.uSystem.uWindows.SafeNative.ConstantNamespace Lz

2006-11-13 13:02:00 1254

原创 LzmTW.uSystem.uWindows.Win32API+WindowsAction

Author:水如烟  Imports LzmTW.uSystem.uWindows.SafeNativeImports LzmTW.uSystem.uWindows.SafeNative.ConstantImports System.TextNamespace LzmTW.uSystem.uWindows.Win32API    Public Class WindowsAction   

2006-11-13 12:58:00 1392

原创 LzmTW.uSystem.uWindows.Win32API+MessageStructure

Author:水如烟  Namespace LzmTW.uSystem.uWindows.Win32API    Public Structure WindowInfo        Dim WindowText As String        Dim ClassName As String        Dim hWnd As Integer        Public Functio

2006-11-13 12:55:00 1066

原创 LzmTW.uSystem.uWindows.Win32API+DelegateHandler

Author:水如烟  Namespace LzmTW.uSystem.uWindows.Win32API    Public Delegate Function EnumWindowsCallback(ByVal hWnd As Integer, ByVal lParam As Integer) As Boolean    Public Delegate Sub KeyStatusWat

2006-11-13 12:52:00 1109

原创 LzmTW.uSystem.uWindows.SafeNative+SafeNativeMethods

Author:水如烟  Imports System.Runtime.InteropServicesImports System.TextNamespace LzmTW.uSystem.uWindows.SafeNative    Friend Class SafeNativeMethods        Sub New()        End Sub        ---------

2006-11-13 12:45:00 1213

原创 LzmTW.uSystem.uWindows.SafeNative+Constant

Author:水如烟  Namespace LzmTW.uSystem.uWindows.SafeNative    Friend Class Constant        Public Const WM_MOUSEMOVE As Integer = &H200        Public Const WM_LBUTTONDOWN As Integer = &H201        Pu

2006-11-13 12:40:00 1128

原创 树和自联表(六)

Author:水如烟  三种情形示例第一个示例,树情形。取MainForm主菜单的数据。ToolStripMenuItem本身是一个树。随便在一个Form上加一些菜单。我的如图:结果是:代码:Public Class FormTree    Private Sub Button1_Click(ByVal sender As System.Object, By

2006-11-11 18:52:00 2303 1

原创 树和自联表(五)

Author:水如烟  正式代码关于数据实体类的定义:注意使用Serializable修饰,那是复制和存储数据文件所必需的。属性值不要使用数组。保留New()构造函数。形式已限定为属性类型。例如菜单项信息,可以定样定义: _Public Class MenuItem    Inherits LzmTW.uSystem.uCollection.SinceLink.SinceLinkIte

2006-11-11 15:14:00 1853

原创 树和自联表(四)

Author:水如烟  应用在下面的几篇中,实现WinForm菜单的控制。它实现如下的基本菜单,当然可以增加添除。这也是为插件服务的。因为比较综合,所以代码会较多。我尽量的将代码按功能用途分解归类。 ID ParentID Name

2006-11-09 14:12:00 1717

原创 树和自联表(三)

Author:水如烟  实现。再次思考尝试后,做成这样:具体使用时,要实现这个类SinceLinkItemBase。SinceLinkItemBase.vb Namespace LzmTW.uSystem.uCollection.SinceLink    Serializable()> _    Public MustInherit Class SinceLinkIte

2006-11-07 21:11:00 1544 1

原创 树和自联表(二)

Author:水如烟  自联表的应用层抽象这方面我没有把握,因为对数据类的总是半知且不解。一样的按自己理解来应用。自联表的数据存储形式一般有三种,一种是直接的,一种的多表级联的,还有本身就是自联表。三种情形可以相互转换。直接的,比如行政区划码(其实我做这个也是为行政区划码方案服务的,那个还没写完):数据形式为:代码,名称,即:XXXXXX 名称。六位代码分为三组,每组两位,字符型。

2006-11-07 14:36:00 2615

原创 树和自联表(一)

Author:水如烟  自联表我们经常用到,它总是跟树联结在一起。对于它们的处理,.NET没有专门的处理类。控件类TreeNode,也没有直接跟自联表挂上钩。所以,我也尝试一下写写这方面的代码。如我以往所写的一样,仅提供一种方法,至于更好的方法,更好的效率,鉴于自己学识所限,不深究。通常的,要做成泛型类才能通用。所以,若还是使用.Net FrameWork1.1的话,无法使用下面的类了

2006-11-06 17:10:00 1711

原创 大数运算(十)

Author:水如烟 用户使用的大数运算类这里只是简单提供。可以考虑让它自动分拆多线程。BigInt.vbSerializable()> _Public Class BigInt    Private gMath As New MathsUnit    Public Property StringValue() As StringValue        Get        

2006-11-02 17:15:00 1359

原创 大数运算(九)

Author:水如烟 运算单元组单元 加法想不到,在运算器中,原来加法是最重要最关键也最复杂的。原来以为是乘法。谁知乘法是那么的简单。此中地址处理是关键。MathsUnit.Add.vbPartial Class MathsUnit    Public Sub Add(ByVal unit As MathsUnit)        gIsZero = gIsZero And

2006-11-02 16:57:00 1295 1

LzmTW.uData.Dll

实现数据处理的一般功能.参考者请保持原命名空间.

2008-06-06

lzmtw.data.dll

数据库操作类<br>利用DbProviderFactory了. <br><br>1,方便,简单,扩展(复杂的话,专业的多多,不容自己来考虑) <br>2,方便无主键表的更新 <br>3,方便输出到Excel(可以利用Select ..From [Sheet1$]来选择Excel数据再传到另一个Excel)

2008-04-01

lzmtw.data.dll

数据库的处理类<br>SqlServer,Access,DBase,Excel<br>可以方便更新无主健的表;可以方便导出Excel<br>(含源代码,可以自我扩展修改)

2008-04-01

OfficeApplicationInfo

获取当前Office应用程序的安装版本语言等信息 工程源代码,MS2005 20071119 取安装语言的代码已做修改. 以贴子代码为准.

2007-11-19

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除