-
vb IsDate判断字符串是否为日期或时间
vb 判断字符串是否为日期或时间,在输入框输入任意字符串类型,程序将会判断出该字符串是否是时间字符串,这个判断方法VB员自带有函数,使用IsDate即可实现,下面是使用IsDate的简单用法示例:
If IsDate(Text1) = True Then
Text2.Text = "是日期"
Else
Text2.Text = "不是日期"
End If
您也可以在本页下载完整的源码实例。
- 2022-08-18 06:21:54下载
- 积分:1
-
VB 实现FTP功能的小程序 包括FTP操作类
VB 实现FTP功能的小程序 包括FTP操作类,将诸多功能收集到一块,实现了一个简单的FTP客户端程序,可用来下载和上传一些文件,该程序由busywxp改编,修复了源程序中的一些bug。现在可程序可完成文件编码类型的切换,比如ASCII、二进制的转换,还可选择传输的类型是主动类型或是被动类型,程序窗口基于分隔条进行分割,用于显示不同的功能,你可了解超多的VB网络编程知识和窗口可视化的相关操作。
- 2022-06-30 23:29:33下载
- 积分:1
-
VB6.0使用InPutBox显示密码输入框
VB6.0使用InPutBox显示密码输入框,InPutBox大部分情况下是用于输入数据,与用户交互,但这些数据并不是密码类型的,本实例是展示是使用InPutBox作为密码输入框,其实也是挺简单的:
Private Sub Command1_Click()
On Error GoTo Err_Out
Dim lTemp As Long
Dim sTemp As String
lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)
sTemp = InputBox("请输入密码", "密码输入框")
Err_Out: End Sub
- 2023-02-13 07:30:04下载
- 积分:1
-
VB6.0 改变扩展名保护Access数据库
VB6.0 改变扩展名保护Access数据库,也就是让用户修改Access数据库的扩展名,之前可能禁止改变,但本代码介绍的方法允许修改扩展名,以下是本例子核心功能部分的完整源码,仅供参考:
Private Sub Form_Load()
Dim cnnstr As String
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db_wjgl.bak;Persist Security Info=False"
cn.Open cnnstr
Adodc1.ConnectionString = cnnstr
Set Picture1.DataSource = Adodc1
Picture1.DataField = "文件"
End Sub
Private Sub Form_Unload(Cancel As Integer)
cn.Close
End Sub
- 2022-05-16 07:33:58下载
- 积分:1
-
vb 拉霸游戏源代码
vb 拉霸游戏,这个游戏我没玩过,玩上去像是抽奖的游戏,有个杠杆可以搬动,搬动后左边的数字滚轮会不停的变化,右边可以设置难度等级,同时这个游戏的窗口也是很特别的,采用不规划的椭圆形,在设计创建不规则的VB窗口时,本源码中的窗口编写技巧也是可以用上的,本游戏是由国外源码改写,在VB6.0环境下可直接编译运行。
- 2022-04-29 19:05:48下载
- 积分:1
-
VB 石头剪刀布猜拳游戏
VB 石头剪刀布猜拳游戏,游戏操作方法:在窗体左下方的石头、剪子、布图标中,单击用户想要出的一种手势,电脑会自动给出该手势,任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑:
将用户和计算机所选的图片的序号合成一个字符串,根据这个字符串判断用户的输赢
00 石头对石头 重来
01 石头对剪子 用户赢
02 石头对布 用户输
10 剪子对石头 用户输
11 剪子对剪子 重来
12 剪子对布 用户赢
20 布对石头 用户赢
21 布对剪子 用户输
22 布对布 重来
- 2023-07-03 14:45:03下载
- 积分:1
-
VB 6.0 按字段显示数据库所有值
VB 6.0 按字段显示Access数据库所有值,是一个按条件查询数据库的例子,这里的数据库为BOOK2.mdb,核心的代码如下:
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "ook2.mdb;Persist Security Info=False "
Adodc1.RecordSource = "select * from 作者"
Set DataCombo1.DataSource = Adodc1
DataCombo1.DataField = "城市"
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "姓名"
End Sub
- 2022-09-25 11:45:03下载
- 积分:1
-
VB.NET自制的看图工具软件
VB.NET自制图片查看器,一个看图工具软件,功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧,另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置,重画图片、绘图画面,颜色填充、窗体界面元素控制等的控制方法。。
- 2022-12-25 17:15:03下载
- 积分:1
-
VB.NET应用程序管理工具-类似360桌布助手
这是一个用VB.NET开发的应用程序管理工具-类似360桌布助手的某此功能,通过导入保存有常用程序列表的XML文件,来通过程序来管理各应用程序的快捷方式,用户可以把常用的程序收集起来,在这里可以直接双击列表中程序名称或点击【启动程序】来启动每个程序。不用到处找你所安装的程序或软件。方便,快捷,常用程序列表:(用户可以拖放任何文件到下面列表中)。
程序列表的操作有导入和导出。
- 2022-08-20 10:25:11下载
- 积分:1
-
VisualBasic 6.0 获取网页超链接
VisualBasic 6.0 获取网页超链接,VB根据网址打开指定页面,预览网页并获取该页面中所有的超链接,最后会统计出该网页内有多少个链接。
同时本源码还可区分网页中的文本和图片,将剔除图片,在文本中查找超链接个数,主要是针对href进行精准匹配统计出出现的次数,运行效果如下图所示。
具体源代码请下载本源码查看。
- 2022-10-27 08:40:03下载
- 积分:1