- VB公农历1.02版，不需要任何DLL2007-08-21 20:09:51
- '建一个Form1，然后添加一个CommandButton，贴上以下代码做测试。Option ExplicitPrivate Sub Command1_Click() Dim t As clsDate Dim y As Long Dim m As Long Dim d As Long Dim st As Single Dim et
- VB深度下潜 之 一米深度（VB指针入门）2007-08-21 20:09:51
- 前 言
本来我也是非常赞同网上一个流行的观点，VB只是一个玩具。诚然，作为一个VB的普通使用者的确无法玩出更多的东东。但是，这几个月我完全不管VB的普通应用，而是一头扎入COM的海洋里，凭着潘爱民老师的一片小帆
- 如何让你的VB6 IDE支持鼠标滚轮？2007-08-21 20:09:48
- VB6最让人不满意的地方就是不支持鼠标滚轮了，今天到网上搜索了一下，找到几个解决方法，试用之后感觉不错。1、外挂方式，见如下地址http://www.e3i5.com/book/list.asp?id=202、微软补丁http://download.microsoft.
- 如何在vb中使用流水号2007-08-21 20:09:40
- 在一些MIS 系统中，有很多程序需要使用流水号。比如： 0000000000000001 0000000000000002 0000000000000003 0000000000000004 。。。。。 0000000000001888 0000000000001888
因为大多数流水号需要前面补0，大学同
- VB中 Err--msgbox提示处理技巧2007-08-21 20:09:35
- 很多初学者经常在企业级别的软件开发中，用这样的格式来提示出现问题。MsgBox "内容"这样没有图标，仅评文字很难让人感觉到专业性。应该为每个提示加上个性化参数。通常常用如下：
'警告MsgBox "",VbExclamation, "警
- LCS问题算法VB.net版2007-08-21 20:09:34
- LCS问题就是求两个字符串最长公共子串的问题。解法就是用一个矩阵来记录两个字符串中所有位置的两个字符之间的匹配情况，若是匹配则为1，否则为0。然后求出对角线最长的1序列，其对应的位置就是最长匹配子串的位置。
- vb api制作总在最前的窗体2007-08-21 20:07:47
- 第一步使用VB打开工程如图第二步在工程中窗体中加入check控件第三步:添加模块1,在其中使用外界程序中的API浏览器添加如下代码Public Declare Function SetWindowPos Lib "user32" _( _ ByVal hwnd As Long, ByVal
- VB.NET中的一些操作(增加第三方控件等)2007-08-21 20:06:50
- VB.NET 中增加 EI TABELLE 的控件 打开VB.NET,在TOOLBOX（工具盒）中单击鼠标右键，在弹出的菜单中选择ITEM ADD/REMOVE(ITEM 增加/删除)。 在弹出的窗体中选择BROWSE“浏览”，进入到EI TABELLE 2.0
- VB6如何让程序开机就自动启动2007-08-21 20:03:58
- 这需要将要启动的应用程序路径写到注册表中具体的路径是：HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRun只需要在上面的路径下写一个键并为此键设置一个当前应用程序的路径即开机自载具体的方法
- VB6如何让程序只能启动一个实例2007-08-21 20:03:57
- 1、在VB6中新建立一个工程2、在Form1的Load事件中加入下面这段代码：'本程序只能运行一次的判断 If App.PrevInstance = True Then '判断程序是否已运行，如果为真 Title = App.Title '记录下本程序的标题 Ca
- VB6如何在拖托盘中写入应用程序图标2007-08-21 20:03:56
- 1、新建立一个VB6工程，将Form1的ShowInTaskBar属性设置为False2、菜单：工程--添加模块 按“打开”这样就添加了一个新模块，名为Module1,保存为Module1.bas3、在Module1中写下如下代码：Option Explici
- 再谈我在VB.NET上的信心2007-08-21 20:03:32
- 哎呀呀，这两天忙着考TOEFL，都没来上我的BLOG，没想到我的“这段可笑的代码更坚定了我在VB.NET上的信心了”一文居然已经淹没在口水中了。谢谢各位网友的评论，我承认我当初看到那个网站（http://www.vbc
- 使用VB实现OLE拖放功能2007-08-21 20:02:42
- 这里以我的软件“文章管理系统”为例解释一下OLE拖放在VB中的应用：在窗体中添加一个Image控件，在它的imgDrop_OLEDragDrop过程中添加如下代码：Private Sub imgDrop_OLEDragDrop(Data As DataObject, Eff
- vb.net中的数据库连接2007-08-21 20:02:42
- 在项目中选择左边“工具盒”中的数据库适配器，本例子用的是ODBC数据源，所以选择OdbcDataAdapter.选中OdbcDataAdapter，在属性窗口中选择SelectCommand,展开，选择Connection,在下拉框中选择“新建&
- 在VB中实现多线程!2007-08-21 20:01:42
- '功能：创建多线程类，用于初始化线程。 类名：cls_Thread
'参数：LongPointFunction 用于接收主调过程传递过来的函数地址值
'调用方法：1.声明线程类对象变量 Dim mythread as cls_Thread
' 2.调用形式：
- VB版人物---第二期: ghj19762007-08-21 19:59:53
- 最近真是祸不单行，前段时间机器坏了，然后又赶上出差，结果耽误了写这篇稿子，结果被莫伊批评了，唉，只好牺牲今天的午休时间来完成文章啦，不然再没脸见莫伊同志啦。
网名：蝈蝈网名来源：见过蝈蝈的人都知道为什么
- VB版人物---第一期:TechnoFantasy2007-08-21 19:59:52
- 伪CIA档案之----TechnoFantasy
网名：TechnoFantasy(冰儿马甲www.applevb.com)
网名来源：applevb是他的小站，很有名哦，在TW看见著名的小纪站长也是推荐这个站，冰儿非他mm,而是给他介绍mm的mm，欠人人情，为了还债
- RSA加密算法在VB中的实现2007-08-21 19:59:45
- －忘了摘自何处' RSA加密算法在VB中的实现
Public key(1 To 3) As Long Private Const base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
Public Sub GenKey() Dim d As Long,
- VB版人物---第四期:online(龙卷风)2007-08-21 19:59:39
- 乐与怒前两年，精心写的那篇文章送给了那个离我远去的女孩。今天，我却又要提笔来写，写我自己。为了纪念这四年的程序生涯。
时间追溯到了2000年，毕业了，学校没有给我们一丝喘息机会，一脚把我们揣进了社会这个大染
- VB版第三期人物---yoki2007-08-21 19:59:38
- 网名:yoki (小马哥--鬓微霜，又何妨)来源：大抵是看多《上海滩》职务和荣誉：VB版原数据库斑竹，多次的MS社区之星,因此A了很多免费书，哈哈，羡慕ing~照片：http://blog.csdn.net/images/blog_csdn_net/daisy8675/13
- MD5加密算法在VB中的实现2007-08-21 19:59:35
- -摘抄于网络' MD5加密算法在VB中的实现
Option Explicit
Dim w1 As String, w2 As String, w3 As String, w4 As String
Function MD5F(ByVal tempstr As String, ByVal w As String, ByVal X As String, ByVal y
- VB下如何编写CRC校验程序2007-08-21 19:59:26
- -摘自于网络 VB下如何编写CRC校验程序
随着计算机技术的不断发展，在现代工业中，利用微机进行数据通讯的工业控制应用得也越来越广泛。由于传输距离、现场状况等诸多可能出现的因素影响，计算机与受控设备之间的
- 利用VB解决华容道问题的源代码2007-08-21 19:58:57
- 全局变量定义
Type HRDState '华容道的棋局表示state(1 To 12) As Long '棋盘上的12个棋子的当前位置Superid As Long '上一步棋盘的位置编号,0代表无上一步Level As Long '这一不
- 使用VB求解华容道问题2007-08-21 19:58:44
- 1、问题的提出 1.1“华容道”简介 “华容道”是一种中国古代的智力游戏玩具，在一个宽为4，长为5的矩形框中，有10个棋子，包括一个曹操，五虎上将，四个小卒，要求在各个棋子不重叠的情况下进行
- VB PDU mode UCS2 解码2007-08-21 19:58:33
- Dim tep As String Dim temp As String Dim i As Integer Dim B As Integer tep = rmsg i = Len(tep) If i < 1 Then Exit Function B = i / 4 If i = B * 4 Then
tep = Lef
