VISUAL BASIC - 技术教程文章

VB.NET 将JSON格式的字符串保存到XML文件中【代码】【图】

1.关于本文这几天打算写一个工具类JsonXmlHelper,用来进行用XML来保存JSON格式文件的工作。该工具类中要实现2个最主要的函数:1)将JSON格式的内容写入到地址为address的XML中:WriteJsonToXml2)把函数1中构造的XML文件恢复成JSON格式文档:RecoverJsonFromXml函数1的实现将在本文中给出,函数2的实现将在以后发表的博文中给出2.代码说明1)添加引用:Newtonsoft.Json.dll2)导入库‘JSON解析相关函数,需要添加引用Newtonsoft.J...

VB.NET-轻松判断文本框是否为空,一键清空文本框内容【图】

房收费系统的时候,令人相当恶心的一件事就是判断文本框和组合框是否为空还有清空文本框。基本上每个窗体都要进行判断,那一个接着一个的If...Else...语句,长长一串,看着就头疼,但是第一次做机房收费系统的时候竟然傻傻的一个不落都写了出来。真佩服当时的自己,不过这一次还是不要在做那种傻事了,因为我们经历了不少面向对象的洗礼,认识了封装。 向对象的范畴里,对于相同的或者类似的代码只要重复3次以上我们应...

《Visual Basic开发实战1200例》包括第I卷、第II卷共计1200个例子,本书是第I卷,共计600个例子。【图】

本书以开发人员在项目开发中经常遇到的问题和必须掌握的技术为中心,介绍了应用Visual Basic进行程序开发各个方面的知识和技巧。主要包括基础知识、窗体界面设计、控件应用等。全书分6篇20章,共计600个实例和600个经验技巧。每个实例都是经过笔者精心筛选的,具有很强的实用性,其中一些实例是开发人员难于寻觅的解决方案。本书两卷共计1200个例子,包括了开发中各个方面最常用的实例,是目前市场上实例最全面的开发类图书;本书...

【VB.Net机房重构】--简述配置文件【代码】【图】

机房收费系统的重构中,看到许多资料关于反射+配置文件,自己也不知道是啥,怎么用,为什么用,但是很多前辈们都走过了,有了这个东西,自己当然也要尝试一下,然后经过查询以及讨论之后,对各方的知识进行汇总和整理加上自己的一点理解,留下来这篇博文。1.是什么,能干什么? 配置文件是标准的 XML 文件,XML 标记和属性区分大小写。随安装程序一起被安装到计算机上的文件,里面存放着安装好的应用程序运行时所需要的参数,它...

Assembly Manipulation and C# / VB.NET Code Injection【代码】【图】

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...

[VB.NET]Select Case语句拾遗【代码】

正常的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...

vb.net版机房收费——助你学会七层架构(二)反射+抽象工厂【图】

上一篇咱们做好了准备工作,数据库设计和Entity层,现在介绍 4、反射+抽象工厂 反射:用来消除Switch和if的,这里我尽量简单地介绍,以便大家理解。反射其实用起来很简单,你就认为他就是决定:去某个地方找应该要实例化的类是哪个。怎么理解? '************************** '文 件 名:DataAccess '命名空间:Factory '内 容: '功 能: '文件关系: '作 者:邱慕夏 '小 组:邱慕夏 '生成日期:2014-06-09 9:17:51 ...

短信中VB.NET编码PDU(一)

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...

vb.net_一个半成品【代码】

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) ...

VB.NET & 策略模式(下机用户类型选择)【图】

上篇文章讲述了对于下机操作和基本数据设定的时间联系,今天主要就是应用“策略模式”来了解了解对于固定用户,以及临时用户之间的选择,看学习设计模式的时候自己对于策略模式的理解,我们可以把固定用户和临时用户封装起来,这样系统就可以按照用户的类型来进行选择了。当然前提首先要抽象一个类,来封装这两个用户类型。看类图:代码具体化:首先看抽象类:BL_CashSuper,定义两种支持算法的公共接口''' <summary> ''' 抽象类,定...

VB.NET开发中遇到的一个小问题

在修改公司用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" 删除后,...

自己写的文件操作的function和Sub vb.net dll

'原来用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 ...

c# – 名称空间“Microsoft.VisualBasic”中不存在类型或命名空间名称“FileIO”【代码】

我正在使用visual studio 2012和.Net framework 4.5.我在项目参考中包含了“Microsoft.VisualBasic”. 执行项目时出现以下错误.Compilation Error Description: An error occurred during thecompilation of a resource required to service this request. Pleasereview the following specific error details and modify your sourcecode appropriately. Compiler Error Message: CS0234: The type or namespace name ‘FileIO...

vb.net 與 SQLite連線

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....

vb.net数组PHP使用数组实现队列

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");//再压入一个...

PHP;VisualBasic.NET;JavaScript_程序员入门必读:编程语言争霸霸主是他

5、 PHP PHP也叫做超文本预处理器(Hypertext Preprocessor),其语法吸收了Java、C语言的优点,同时也自创了PHP新语法,支持几乎所有流行的数据库和操作系统。PHP属于开源脚本语言,所以是完全免费的,PHP源代码也能够看得到。PHP的便捷性让新手学习起来十分容易上手,而且程序开发快运行快,经常用于Web开发。 PHP 6、Visual Basic .NET Visual Basic .NET在2014年开始挤入排行榜前十名,而在最新版当中,V...

VB.NET生成随机串或随机数字的方法总结

本文一共介绍了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存储过程并获得返回值的方法

本文实例讲述了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...

vb.net借助剪贴板将图片导入excel内

代码如下: Dim im as Image=Image.FromFile ("C:/picture.bmp") 获得Image System.Windows.Forms.Clipboard.SetDataObject(im, True) 复制到剪贴板 Dim xlApp As Excel.Application = New Excel.Application() Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet xlBook = xlApp.Workbooks().Add xlSheet = xlBook.Worksheets("sheet1") Dim range As Excel.Ra...

VB.NET拷贝整个目录下所有子目录及文件的实例代码

代码如下: Public Sub CopyDerictory(ByVal DirectorySrc As DirectoryInfo, ByVal DirectoryDes As DirectoryInfo) Dim strDirectoryDesPath As String = DirectoryDes.FullName & "" & DirectorySrc.Name If Not Directory.Exists(strDirectoryDesPath) Then Directory.CreateDirectory(strDirectoryDesPath) End If Dim f, fs() As FileInfo fs = DirectorySrc.GetFiles() ...

VB.NET设置屏幕分辨率、颜色位数、刷新率 实例代码

代码如下:Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As LongPrivate Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (lpDevMode As Any, ByVal dwflags As Long) As Long Private Const CCDEVICENAME As Long = 32Private Const CCFORMNAME As Long = 32Private Const DM_BITSPERPEL As Long = &H40000Private Const DM_PELSWIDTH As...

VB.NET进度条的方法代码

1.创建进度条: 代码如下:<DIV id="Lay1" style="Z-INDEX: 1; LEFT: 1%; VISIBILITY: hidden; WIDTH: 99%; CURSOR: crosshair; POSITION: absolute; TOP: 32px; HEIGHT: 95%; BACKGROUND-COLOR: #ffffff"><FONT face="宋体"></FONT><FONT face="宋体"></FONT><FONT face="宋体"></FONT><FONT face="宋体"></FONT><br><b><font color="#800080" size="2"> & nbsp; 正在检索数据,请稍候...</font></b><table align="c...

VB.NET 中删除DataGridView中所选行的小例子

代码如下:For Each r As DataGridViewRow In DataGridView1.SelectedRows If Not r.IsNewRow Then DataGridView1.Rows.Remove(r) End IfNext其实就是一个IsNewRow属性,判断是不是为新选中的行,如果不是,remove!

vb.net 数组参与SQL语句的查询范例

首先定义数组,我是同事session传值的代码如下:Dim struser As New List(Of String)struser = Session("chooseuser")strruser = "" For a = 0 To struser.Count - 1If a = 0 Thenstrruser = "" & struser.Item(a).ToString.Trim & ""Elsestrruser = strruser & " , " & "" & struser.Item(a).ToString.Trim & ""End IfNext然后就可以吧strruser带入到sql语句中使用。

获取客户端IP地址c#/vb.net各自实现代码【图】

公司的域环境内,程序要求获取客户端的IP地址,分部程序码分享于此。 C#:VB.NET:

asp.net 验证码的简单制作(vb.net+C#)【图】

网站上验证码效果一般制作方法是: 1)使用HttpHandler(一般处理程序)绘制随机验证码的图,以及产生随机码,并输出到页面的OutputStream中。 2)页面中使用异步方式(js等)进行刷新当前页面的验证码。 【示例】 1)创建一个“一般应用处理程序ashx”,代码如下: [C#] 代码如下:public class ValidationCode : IHttpHandler { //随机发生器 static Random r = new Random(Guid.NewGuid().GetHashCode()); //排除黑色、透明色颜...

VB.NET验证邮件地址的合法性实现代码【图】

一、提出问题  现在,对于用户在Web页面上或电话中给出的Email地址,我们越来越不敢肯定它是否真的有效。在今天这个垃圾邮件泛滥成灾的年代,人们完全有理由舍不得轻易透露Email地址。    另一方面,对于通过正规途径得到的邮件地址,当我们将它用于合法的目的时,也常常要为邮件地址是否有效而烦恼,用户可能有意或无意地写错地址,也可能由于长时间不访问而导致邮箱失效。对于少量的邮件地址,也许可以手工验证其合法性,例...

asp.net(vb.net)获取真实IP的函数

aspx vb.net获取真实IP的函数如下: 代码如下:<script runat="server"> Public Function CheckIp(ByVal ip As String) As Boolean Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" Dim reg As Regex = New Regex(pat) if ip = "" Then CheckIp = False exit Function end if CheckIp = reg.IsMatch(ip) End Function Public Function get_cli_ip() As String If ( Not( System.Web.HttpContext.Current.Req...

.NET从优酷专辑中采集所有视频及信息(VB.NET代码)

这个方法就是提取优酷的专辑ID,然后一个个ID进行循环采集网页代码,从中提取title标签和VID,没什么技术含量。=..= 采集中应用.NET中的HttpWebRequest和HttpWebResponse类,代码分析用了正则表达式。 这个代码效率不是很好,一个网页的解析时间在0.5~2秒之间,不适合大量采集。也许将它转换成JavaScript速度会快一点吧。 暂时就研究这么多,代码直接发出来给大家共享一下。 代码VB.NET,新建一个窗体frmMain,添加一个TextBox,一...

VB.net 查询获取数据库数据信息

代码如下:'数据操作执行 Public Sub getConn(ByVal SqlStr As String, ByVal TableName As String) Try objCommand.CommandText = SqlStr objDataSet.Clear() objDataAdapter.SelectCommand = objCommand objDataAdapter.Fill(objDataSet, TableName) Catch ex As Exception MsgBox(ex.Message) End Try End Sub