- 博客(32)
- 资源 (4)
- 收藏
- 关注
原创 HOW TO:Access的身份验证
Author:水如烟 Public Class SimpleWorksDatabase Private Const gConnectionString As String = _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|SimpleWorks.mdb;Persist Security Info=
2006-12-26 15:29:00 1888 1
原创 HOW TO:重启程序(WinForm)
Author:水如烟 Public Class RestartProgramService Private Shared gAppLocation As String Public Shared Sub Run() AddHandler AppDomain.CurrentDomain.ProcessExit, AddressOf AppDomain_ProcessE
2006-12-21 17:03:00 1566
原创 HOW TO:设置默认打印机
Author:水如烟 需要引用System.Management空间再Imports System.Management使用: Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click For Each printe
2006-12-21 12:32:00 2329 2
原创 HOW TO:控制是否允许用户退出ExcelApplication的Workbook
Author:水如烟 程序中若打开了一个Workbook给用户直接操作,那么,用户有可能将Workbook关闭了甚至退出了整个ExcelApplicatoin。可以通过以下方法防止这种情形:Imports Microsoft.Office.InteropPublic Class Form1 Private gWorkbookCanClose As Boolean = False
2006-12-21 08:53:00 1605
原创 HOW TO:避免“将COM对象与其基础RCW分开后不能再使用该对象”错误
Author:水如烟 出现这个情形,是在重写了Finalize并在里面含有调用Com对象的代码,同时在销毁对象前没有显式释放Com对象。解决的办法是,显式调用释放代码。如:Public Sub Quit() ...End SubProtected Overridable Sub Dispose(ByVal disposing As Boolean) If Not Me.
2006-12-20 21:21:00 6946 1
原创 LzmTW.uSystem.uCollection + SimpleFilter
Author:水如烟 SimpleFilter.Array.vbNamespace LzmTW.uSystem.uCollection Partial Class SimpleFilter(Of T) Public Sub Find(ByVal collection As ICollection, ByVal propertyNameOfArray As Stri
2006-12-18 16:06:00 1320
原创 LzmTW.uSystem.uCollection + BaseTypeCompare
Author:水如烟 Namespace LzmTW.uSystem.uCollection Partial Class BaseTypeCompare Public Shared Function IsValid(Of T)(ByVal target As T, ByVal operate As CompareOperate, ByVal a As Object)
2006-12-18 16:01:00 1062
原创 LzmTW.uSystem.uReflection + GetSameTypeCollectionFromType
Author:水如烟 Namespace LzmTW.uSystem.uReflection Public Class GetSameTypeCollectionFromType Private gMemberInfos As New Dictionary(Of String, Reflection.MemberInfo) Private gCollec
2006-12-18 15:58:00 1096
原创 LzmTW + CompareOperate
Author:水如烟 Namespace LzmTW Public Enum CompareOperate Equal NotEqual Greater GreaterEqual Less LessEqual [Like] NotLike Between
2006-12-18 15:57:00 1013
原创 LzmTW + uRuntimeHelper
Author:水如烟 Namespace LzmTW Public Class uRuntimeHelper Private Shared gInternalSyncObject As Object Public Shared ReadOnly Property InternalSyncObject() As Object Get
2006-12-18 15:56:00 1131
原创 一个数据筛选类
Author:水如烟 参考应用类代码和辅助类代码利用System.Collections.Comparer类,可以做出比较基本数据大小的类,进而做出集合数据的筛选类。所谓基本数据,特指除Object外的系统数据,即system.TypeCode枚举的类型。一个类实例,是否属基本数据,可以这样判断: Public Shared Function IsBaseT
2006-12-18 14:14:00 1368
原创 从类中搜寻是本类集合的成员
Author:水如烟 参考应用类代码和辅助类代码尝试的。这个类蛮偏,应用范围不大。示例代码:Public Class GetSameTypeCollectionFromTypeTest Private Shared gService As New LzmTW.uSystem.uReflection.GetSameTypeCollectionFromType P
2006-12-17 22:45:00 1357
原创 数据比较
Author:水如烟 参考应用类代码和辅助类代码尝试的。Namespace LzmTW Public Enum CompareOperate Equal NotEqual Greater GreaterEqual Less LessEqual [Like] Not
2006-12-16 14:52:00 1295
原创 三级次数据(一):在数据库使用存储过程输出为自联表形式
Author:水如烟 参考应用类代码和辅助类代码我这里定义的所谓三级次数据,是指都具有属性(ID,Name)的三种类别数据的集合。这种数据较常见,也通用。一般数据的分门别类多采用三级或二级,少有多于三级的。比如行政区划,现在是省、市、县三级,到了县级截止了。县级以下的设定,其实还是三级,农村的就是:县、镇、管理区。在学校,年级,班级,学员;在公司,部门,班组,职员;材料上,类
2006-12-14 11:01:00 2153 1
原创 Google的Analytics,显示的是什么
前些时候将BLOG连上 Google的Analytics服务,就是不知数据的意义是什么.如图:怀疑国外的那些是搜索站点,如Google之类.
2006-12-11 17:30:00 1402
原创 WinForm设计之主窗体
Author:水如烟 参考应用类代码和辅助类代码现在尝试做一个通用的主窗体.所谓通用,按我的理解,是尽可能的把常用功能实现在一个类上,应用时仅考虑实际需求.因为是尝试,所以这部分代码我就不贴上来了,现在只说表现.主窗体一般的表现有两种,一是MDI,一是象IDE那种形式.我就将这两种集合在一起.使用时,简单的代码就可以实现如下的效果.代码:Public Class
2006-12-11 11:48:00 4006
原创 WinForm设计之SQLServer登录窗体
Author:水如烟 代码见应用类代码和辅助类代码这个类使处理登录SqlServer服务器显得非常简单。示例代码:Public Class MainForm Private gConnectionString As String 初始 Private Sub Button1_Click(ByVal sender As System.Object, ByVa
2006-12-08 15:31:00 4008
原创 LzmTW.uSystem.uData.uSql
Author:水如烟 Namespace LzmTW.uSystem.uData.uSql Serializable()> _ Public Class LoginInformation Private gServerName As String = "./SQLExpress" Private gDatabase As String
2006-12-08 14:10:00 1959
原创 WinForm设计之插件
Author:水如烟 代码见应用类代码和辅助类代码这个插件方案比较简单,如果只是自己使用的话,那可以应付过去。如果是做一般应用软件并面向大众的话,那就不妥了。最不妥的是安全,因为它把整个主窗体都暴露给插件设计者。示例插件AddInsClassLibrary.Dll:Imports LzmTW.uSystem.uWindows.AddInsAddIns("About", "Ad
2006-12-07 00:11:00 3535
原创 LzmTW.uSystem.uWindows.AddIns(2)
Author:水如烟 Namespace LzmTW.uSystem.uWindows.AddIns Friend Delegate Sub ManagerActionHandler(ByVal assemblyFilesOrAddInsNames As String())End Namespace Namespace LzmTW.uSystem.uWindows.
2006-12-06 23:46:00 1367
原创 LzmTW.uSystem.uWindows.AddIns
Author:水如烟 Namespace LzmTW.uSystem.uWindows.AddIns Public Interface IPackage Sub Load(ByVal mainform As Windows.Forms.Form) Sub Unload() End InterfaceEnd Namespace Na
2006-12-06 23:41:00 1206
原创 WinForm设计之进度消息提示窗体
Author:水如烟 代码见应用类代码和辅助类代码进度不可预知,所以只是置ProgressBar.Style = Marquee。使用方法:Public Class MainForm 示例一,一般消息提示 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve
2006-12-06 14:41:00 3303
原创 LzmTW.uSystem.uWindows.uForms + ProgressFormHelper
Author:水如烟 Namespace LzmTW.uSystem.uWindows.uForms Public Class ProgressFormHelper Private Sub New() End Sub Private Shared gForm As ProgressForm Private Shared gIn
2006-12-06 14:22:00 1203
原创 LzmTW.uSystem.uWindows.uForms + ProgressForm
Author:水如烟 Imports System.ComponentModelImports System.ThreadingNamespace LzmTW.uSystem.uWindows.uForms Friend Class ProgressForm Private gAction As Threading.ThreadStart Priv
2006-12-06 14:20:00 1380
原创 WinForm设计之配置文件
Author:水如烟 代码见应用类代码和辅助类代码 在这是第三次说配置文件,因为有了泛型,所以现在做的也更简单,使用也更方便了。示例代码:Public Class MainForm Private gConfigManager As New LzmTW.ConfigManger(Of Student) Private Sub MainForm_Load(ByVal
2006-12-05 15:59:00 1640
原创 LzmTW + ConfigManger
Author:水如烟 Imports LzmTW.uSystemImports System.ComponentModelNamespace LzmTW Public Class ConfigManger(Of T) Private gFileName As String = AppDomain.CurrentDomain.BaseDirectory & "{0}.{
2006-12-05 15:23:00 1132
原创 WinForm设计之初始窗体(SplashScreenForm)
Author:水如烟 代码见应用类代码和辅助类代码关于初始窗体,在这也曾说过,不过因为图片说明的多,是链接到博客园我的博客里的.如何操作,详见《HOW TO:溅射屏幕(Splash Screen),也叫程序启动画面的制作(.NET2005) 》和《HOW TO:溅射屏幕(Splash Screen),也叫程序启动画面的制作(.NET2003) 》。在这里我只是简单说一下该留意的:
2006-12-02 20:57:00 4405 2
原创 LzmTW.uSystem.uWindows.uForms.uMainForm +SplashScreenForm
Author:水如烟 Namespace LzmTW.uSystem.uWindows.uForms.uMainForm Public Class SplashScreenForm Private Sub SplashScreenForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Fo
2006-12-02 20:34:00 1268
原创 LzmTW.uSystem.uWindows.uForms.uMainForm + SplashScreenHelper
Author:水如烟 Namespace LzmTW.uSystem.uWindows.uForms.uMainForm Public Class SplashScreenHelper Friend Delegate Sub MessageSendingHandler(ByVal sender As Object, ByVal Message As String)
2006-12-02 20:32:00 1106
原创 WinForm设计之About窗体
Author:水如烟 代码见应用类代码和辅助类代码关于About窗体,已经在这做过。现在结合这段时间设计的类,重新组织一下。这个About窗体附加了一些功能:一是置主窗体的Text值为程序集信息Title值;二是让程序每十分钟强制垃圾回收。设计时的主窗体:主窗体代码:Imports lzmtw.uSystem.uWindows.uFormsPublic Class M
2006-12-01 17:31:00 3234 2
原创 LzmTW +EntryAssemblyInfo
Author:水如烟 Namespace LzmTW Friend Class EntryAssemblyInfo Public Shared Function Instance() As Microsoft.VisualBasic.ApplicationServices.AssemblyInfo Dim mAssemblyInfo As Mi
2006-12-01 16:53:00 1288
原创 LzmTW.uSystem.uWindows.uForms.uMainForm + AboutForm
Author:水如烟 Imports System.Windows.FormsNamespace LzmTW.uSystem.uWindows.uForms.uMainForm Public Class AboutFormAddtoMainForm Private WithEvents gMainForm As Windows.Forms.Form P
2006-12-01 16:51:00 1295
lzmtw.data.dll
2008-04-01
lzmtw.data.dll
2008-04-01
OfficeApplicationInfo
2007-11-19
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人