无忧岛

这三个控件在.NET的工具箱里面默认是没有的,需要手工添加
右击工具箱中的任意单元 点击选择项
然后在.NET Framework组件中找到对应的选项在前面勾上即可.

大概分为两种 一种是单数据存储,这类应用就是 保存配置之类的,所有节点元素 都是单一的,首先先看一个操作XML中的元素值的类 Public Class CSysXML Dim mXmlDoc As New System.Xml.XmlDocument Public XmlFile As String Public Sub New(ByVal File As String) MyClass.XmlFile = File MyClass.mXmlDoc.Load(MyClass.XmlFile) '加载配置文件 End Sub '功能：取得元素值 '参数：node–节点 element–元素名 '返回：元素值 字符型 ' $–表示出错误 Public Function GetElement(ByVal node As String, ByVal element As String) As String On Error GoTo Err Dim mXmlNode As [...]

一是数据库放两个表,车站表和线路表,然后只能在车站列表中选择输入条件,用线路关联查询,特点:成本低实现简单,是个程序员就差不多.

上午弟弟问我这个问题:有一段字符串 111111+22222+33333333+44444+55555+66666… 如何得到任意两个符号”+”之间的字符串,譬如 22222 或者 33333333 以下为代码全过程,函数为增强版,支持任意字符,只需要在调用的时候修改参数就OK了,代码注释中已经有描述: 新建工程在窗体上放置两个TextBox控件和一个Command控件,名称不需要修改默认就OK,分别名为:text1.text text2.text 和 command1 然后复制以下代码: Private Sub Command1_Click() Text2.Text = GetChar(Trim(Text1.Text), "+", 1, 3) End Sub '函数使用方法： getchar(mStr:原始字符,charX:规律字符,比如截取两段加号之间的那么就输入"+", 'BofNum: 起始字符位, EofNum: 终点字符位) Private Function GetChar(mStr As String, charX As String, BofNum As Integer, EofNum As Integer) As String Dim i As Integer '循环 Dim x As Integer '记录第几个"+"符号 [...]

函数 '生成指定范围的随机数 'NumMin 起始值 NumMax 终点值 Function MyRnd(NumMin, NumMax) Randomize MyRnd = Int(Rnd * (NumMax – NumMin + 1)) + NumMin End Function 使用方法 新建工程,在窗体上拖上一个按钮 command1和一个文本框text1 输入以下代码 Private Sub Command1_Click() Text1.Text = MyRnd(1, 10) '生成1-10之间的随机数 End Sub

前段时间在落伍把网页照相机落伍版的编译出来的可执行程序发布了,很多朋友提出需要源代码,方便大家学习交流,今天提供源代码下载

VB的32位MD5加密算法

新建窗体,然后拉个Command按钮控件和Textbox文本控件就OK了!
注意:本模块获取的是当前机器的内网IP地址
其实也用的是API来实现的,下面是主要代码…

点了锁定了之后,鼠标不能移动到解除按钮上可别慌噢:dm/tx,记得用键盘的tab键盘或者方向键移动下就是啦:dm/tx

一个简单的通过修改注册表设置IE首页的方法,别用它来做流氓哦
记得以前遇到过一个流氓,篡改IE首页,然后在IE选项中主页设置里面禁止了[使用当前页][使用默认页][使用空白页]这几个按钮.其实这些个人认为也都可以通过修改注册表来实现的.