房收费系统的时候，令人相当恶心的一件事就是判断文本框和组合框是否为空还有清空文本框。基本上每个窗体都要进行判断，那一个接着一个的If...Ｅｌｓｅ...语句，长长一串，看着就头疼，但是第一次做机房收费系统的时候竟然傻傻的一个不落都写了出来。真佩服当时的自己，不过这一次还是不要在做那种傻事了，因为我们经历了不少面向对象的洗礼，认识了封装。 向对象的范畴里，对于相同的或者类似的代码只要重复3次以上我们应...
机房收费系统的重构中，看到许多资料关于反射+配置文件，自己也不知道是啥，怎么用，为什么用，但是很多前辈们都走过了，有了这个东西，自己当然也要尝试一下，然后经过查询以及讨论之后，对各方的知识进行汇总和整理加上自己的一点理解，留下来这篇博文。1.是什么，能干什么？ 配置文件是标准的 XML 文件，XML 标记和属性区分大小写。随安装程序一起被安装到计算机上的文件，里面存放着安装好的应用程序运行时所需要的参数，它...
Latest ReleasesYou can always get the latest Reflexil releases here.IntroductionReflector and JustDecompile are great tools for doing an in-depth examination of various types of assemblies and also for disassembling IL code towards a supported .NET language. However, they are unable to modify either the structure or the IL code of assemblies. Reflexil allows such modifications by using the po...
正常的Select 语句如下： Dim status As Integer = 5Select Case statusCase 0Console.WriteLine("状态是:0")Case 1Console.WriteLine("状态是:1")Case 2Console.WriteLine("状态是:2")Case ElseConsole.WriteLine("其它状态!")End Select 也可以比较数值范围，确定数值范围的两个值用关键字To连接。如果Select表达式在这个范围中，则执行該Case语句。 Dim status As Integer = 5Select Case statusCase 0Console.Wr...
上一篇咱们做好了准备工作，数据库设计和Entity层，现在介绍 4、反射+抽象工厂 反射：用来消除Switch和if的，这里我尽量简单地介绍，以便大家理解。反射其实用起来很简单，你就认为他就是决定：去某个地方找应该要实例化的类是哪个。怎么理解？ '************************** '文 件 名：DataAccess '命名空间：Factory '内 容： '功 能： '文件关系： '作 者：邱慕夏 '小 组：邱慕夏 '生成日期：2014-06-09 9:17:51 ...
PDU的编码器的工作原理是解码器的逆过程。根据需要编码器只需要编码发送的PDU代码，工作相对简单。本文讲解编码思路，具体代码请参考Blog中PDUEncoder部分我把PDU的编码分为两部分，SMS和EMS。EMS部分我只提供了ConcatenatedShortMessage的编码器。这是超长短信的编码，用得最多。SMS编码编码一个SMS一般需要如下的信息：TP_Data_Coding_Scheme TP_UD编码方式TP_Destination_Address 对方号码TP_Message_Reference 参考号码TP_Stat...
Imports System.Text Imports System.Runtime.InteropServices PublicClass Form1‘引用win32api进行枚举窗体句柄操作PrivateDeclareFunction FindWindow Lib"user32"Alias"FindWindowA" (ByVal lpClassName AsString, ByVal lpWindowName AsString) As IntPtrPrivateDeclareFunction FindWindowEx Lib"user32"Alias"FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 AsString, ByVal lpsz2 AsString) ...
上篇文章讲述了对于下机操作和基本数据设定的时间联系，今天主要就是应用“策略模式”来了解了解对于固定用户，以及临时用户之间的选择，看学习设计模式的时候自己对于策略模式的理解，我们可以把固定用户和临时用户封装起来，这样系统就可以按照用户的类型来进行选择了。当然前提首先要抽象一个类，来封装这两个用户类型。看类图：代码具体化：首先看抽象类：BL_CashSuper,定义两种支持算法的公共接口''' <summary> ''' 抽象类，定...
在修改公司用vb.net的写的代码时，遇到一个小问题页面上有一个button, ID是btnNext, 在属性页中，它的click事件对应的是cmdNext, 我像在c#中一样，在属性页中双击cmdNext,自动进入.vb后台代码，产生事件Protected Sub cmdNext(sender As Object, e As System.EventArgs) Handles btnNext.Click //一些处理代码End Sub运行debug调试时，发现这个代码会执行两次，怎么都不理解为啥。后来把后面的 "Handles btnNext.Click" 删除后，...
'原来用VB写的封装成dll供asp使用，后来升级到vb.net '这个是我以前写的电影站影片处理的一部份，程序挺简单的，没怎么注释，大家对付看 'program by someeyes '需要声明Imports System.IO命名空间 Public Function myFileExists(ByVal pathName As String) As String '检查文件是否存在 If File.Exists(pathName) = False Then myFileExists = "<font color=""Red"">文件丢失</font>" Else ...
Dim ModuleSql As String Dim n As Integer SQLite連線Dim connSQLite As New Data.SQLite.SQLiteConnectionDim CmdSQLite As New Data.SQLite.SQLiteCommand 定义一个SQL操作Dim drSQLite As Data.SQLite.SQLiteDataReader Public Sub Open_SQLite() 打开SQLite連線 connSQLite.ConnectionString = "Data Source=資料庫" connSQLite.Open() 数据库连接 CmdSQLite.Connection = connSQLite CmdSQLite....
PHP中将数组当做一个栈，主要是使用array_push()和array_pop()两个系统函数来完成。入栈主要是利用array_push()函数向第一个参数的数组尾部添加一个或多个元素，然后返回新数组的长度，示例如下： 而PHP中，将数组当作是队列则主要是用array_push()和array_shift()实现。 代码如下:$zhan=array("WEB");//声明一个数组当做队列 array_push($zhan,"PHP");//将字符串压入栈（数组）中 array_push($zhan,"WWW.CHHUA.COM");//再压入一个...
5、 PHP PHP也叫做超文本预处理器（Hypertext Preprocessor），其语法吸收了Java、C语言的优点，同时也自创了PHP新语法，支持几乎所有流行的数据库和操作系统。PHP属于开源脚本语言，所以是完全免费的，PHP源代码也能够看得到。PHP的便捷性让新手学习起来十分容易上手，而且程序开发快运行快，经常用于Web开发。 PHP 6、Visual Basic .NET Visual Basic .NET在2014年开始挤入排行榜前十名，而在最新版当中，V...
本文一共介绍了5种生成随机数方式，具体如下：第一种：转载的方法 Public Enum stringtypeallstring = 1 大小写字母allnumic = 2 数字str_num = 3 大小写字母+数字str_upper = 4 大写字母str_lower = 5 大写字母 End EnumFunction GenerateRandom(ByVal Length As Integer, ByVal s As stringtype) As StringDim strtemp As String = ""Dim constant() As String = NothingSelect Case sCase stringtype.allnumicstrt...
本文实例讲述了VB.NET调用MySQL存储过程并获得返回值的方法。分享给大家供大家参考。具体实现方法如下： Dim myConnectionString As String = "Database=" & myDatabase & _" ;Data Source=" & myHost & _";User Id=" & myUserId & ";Password=" & myPassword Dim myConnection As New MySqlConnection(myConnectionString) TrymyConnection.Open() Catch MyException As MySqlExceptionConsole.WriteLine("Connection error: MySQ...