[VB] VB6.0拖拽功能源代码

说明： 本程序主要体现VB拖拽功能的使用方法. 本例使用四个picture控件作为拖拽对象的容器,然后使用四个picture控件作为四个拖拽对象.
<jzzj3687> 上传 | 大小：19kb

[VB] 财务工资管理系统 代码

说明： 自己常用的一样VB系统 用来入门学习尝试很有用！
<gskingdestiny> 上传 | 大小：180kb

[VB] 数据库PPT初级阶段入门教程

说明： 数据库编程入门初级阶段。如何数据库链接VB
<xdwrui> 上传 | 大小：330kb

[VB] 商品销售管理系统 VB+SQL

说明： 采用VB和SQL编写而成的商品销售管理系统
<lixiaochun0818> 上传 | 大小：505kb

[VB] 计算机等级考试上机操作形象图解.pdf

说明： 等级考试上机操作图解 对于很多第一次参加上机考试的考生来说，熟悉上机届面是很重要的，为使大家了解真正的上机环境届面操作步骤，特以二级VB（三级上机相同）的操作届面为例附图说明： 一、从桌面或开始菜单中启动“考试系统”，启动后出现下图窗口：
<youjie2003> 上传 | 大小：260kb

[VB] 简易图片浏览器- VB.NET编写

说明： 本软件可以浏览各种图片文件,因为是用VB.NET编写的,请使用之前,电脑一定要安装: .NetFramework 3.5 这个软件方可使用.
<yhl668> 上传 | 大小：13kb

[VB] 数码管编码器-用VB.NET编写的

说明： 这是一个可以用于单片机驱动数码管的程序中,帮助编写数码管代码的软件.因为是用VB.NET编写的,所以使用这个软件之前,电脑要安装: .NetFramework 3.5 才可以使用.
<xjl20051201> 上传 | 大小：24kb

[VB] 试用期限制程序(VB6.0源代码编写)试用期限制程序，运行程序后，试用30天后，程序就不能启动

说明： 试用期限制程序(VB6.0源代码编写)试用期限制程序，运行程序后，试用30天后，程序就不能启动 。Dim ss As Date Dim dd As Integer If GetSetting(appname:="this", section:="user", Key:="time") = "" Then MsgBox "尊敬的用户：你好！你还没有注册软件，从现在开始，你的试用为30天！" SaveSetting appname:="this", section:="user", Key:="t
<mdflyy> 上传 | 大小：6kb

[VB] 考试系统--选择题(VB6.0源代码编写)Answer = "驻马店"

说明： 考试系统--选择题(VB6.0源代码编写)Answer = "驻马店" If MsgBox("您选择的答案为： 【" + Choose(Option1(Index).Index + 1, "驻马店", "北京 ", "上海", "大连") + "】 是否确定？", vbQuestion + vbYesNo, "是否确定选项") = vbYes Then If CBool(Answer = Choose(Option1(Index).Index + 1, "驻马店", "北京", "上海", "
<leshan1025> 上传 | 大小：7kb

[VB] 文件提取器程序，文件提取器将所选文件名存到Word表格中(VB6.0源代码编写)irecordcount = File1.ListCount

说明： 文件提取器程序，文件提取器将所选文件名存到Word表格中(VB6.0源代码编写)irecordcount = File1.ListCount 'On Error Resume Next '创建word应用程序，这一句话打开word2000 Set wdapp = CreateObject("Word.Application") '在word中添加一个新文档 Set wddoc = wdapp.Documents.Add With wdapp .Visible = True .Activate
<f132132132243> 上传 | 大小：71kb

[VB] 获得计算机系统版本程序Dim EnvString, Indx, Msg, PathLen

说明： 获得计算机系统版本程序Dim EnvString, Indx, Msg, PathLen ' 声明变量 Indx = 1 ' 设置索引值的初值为 1 Do EnvString = Environ(Indx) ' 取得环境变量 If Left(EnvString, 3) = "OS=" Then ' 检查 PATH 项 PathLen = Len(Environ("OS")) ' 取得长度 Msg = "系统版本为：" & Mid(EnvString, 4, PathLen) Exit Do E
<qq223857666> 上传 | 大小：5kb

[VB] 工资计算程序(VB6.0源代码编写)工资计算：基本工资+奖金+加班费=实发工资

说明： 工资计算程序(VB6.0源代码编写)工资计算：基本工资+奖金+加班费=实发工资 Dim i As Integer For i = 0 To Text1.UBound Text2.Text = Val(Text2.Text) + Val(Text1(i).Text) Next i
<yjpzxc> 上传 | 大小：7kb