-
visual studio VB 学生信息管理系统 源码
用visual studio VB语言编写的学生信息管理系统 WINFORM 数据库采用的是ORACLE
- 2022-02-24 12:49:02下载
- 积分：1
-
一个演示VB API高速搜索文件的程序
一个演示VB高速搜索文件程序，基于API来实现，用于快速查找文件，类似的例子在前几年的书籍实例中，有很多，这一个也是从VB的书中整理出来的，代码中有丰富的注释，主要是分享给VB新手参考学习的。
- 2022-10-25 13:25:04下载
- 积分：1
-
VB程序托盘控件+源码实例
VB程序托盘控件+源码实例，VB自定义一个添加程序到Windows托盘图标的控件，编译控件源码后生成Tray.ocx，源码包中附有一个调用本托盘程序的示例，在TrayDEMO文件夹内，在Class1.cls文件中实现了托盘的主要操作：将程序图标添加到系统托盘区，将图标从系统托盘区中删除，设置图标的提示信息，添加图标右键操作等功能。
- 2022-07-07 04:23:33下载
- 积分：1
-
VB Windows文件操作监视程序
VB Windows操作监视程序，一个 Windows的文件目录操作即时监视程序，可以监视在Explore中的重命名、新建、删除文件或目录；改变文件关联；插入、取出CD和添加删除网络共享都可以被该程序记录下来。源程序来源于国外，注释英文。运行界面效果如图所示。当有文件操作时，在程序运行窗口中会有所提示。
- 2023-06-19 19:00:03下载
- 积分：1
-
网络五子棋游戏源码之客户大厅和服务器
网络五子棋游戏源码之客户大厅和服务器
VB编的
- 2023-07-18 23:30:04下载
- 积分：1
-
VB6.0 屏幕滚动字幕（文字滚动）
VB6 屏幕滚动字幕，这个文字滚动区域被控制在屏幕的右下角，由右向左开始滚动，中间的高度可以调节，通过调节Me.Top = Screen.Height - Me.Height - 800参数，来改变文字滚动区域距离屏幕顶部的距离，文字滚动的实现是基于计时器和循环来实现，下面的代码可为你提供本效果的实现思路：
Label1.Caption = "这里定义需要滚动的文字内容： 用VB制作的文字滚动效果！"
Me.Left = Screen.Width
Me.Top = Screen.Height - Me.Height - 800
BeginPath Me.hWnd
SetBkMode Me.hWnd, TRANSPARENT
EndPath Me.hWnd
rgn = PathToRegion(Me.hWnd)
SetWindowRgn Me.hWnd, rgn, True
Timer1.Interval = 200
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Me.Left = Me.Left - 100
If Me.Left < Label1.Width * (-1) Then
Timer1.Enabled = False
Me.Left = Screen.Width
Timer1.Enabled = True
End If
End Sub
- 2022-05-21 14:58:30下载
- 积分：1
-
超强的音频格式文件处理动态库
这个代码是一个支持不同音频格式的声音动态库文件，支持声音回放、音频编码、解码。他能解码（所以也能播放）WAV, MP3, OGG Vorbis, WMA, APE和CDA, 以及编码 WAV, MP3, OGG Vorbis, WMA和APE。在音频流回放上使用了 DirectSound 8(所以你需要dx8vb.dll),支持DSP,频谱分析，可视化效果等数据控制。文件夹内的示例说明：1、通吃音乐播放器 Ver 2.0（支持播放所有格式的音频文件，支持显示文件TAG,3种可视化效果（频率、时间、dBFS显示）；2、CD提取转换工具 Ver 1.0（提取CD内音轨并转换为所有的支持格式）；3、音频格式文件转换器 Ver 1.0（各种音频格式的相互转换）；4、简单示例（一个简单的背景回放示例）。需要说明的是其中需要的部分编解码文件需要第三方的支持，以下是下载地址： APE 和 MP3:
源码中已经包含了dx8vb.dll，编译前记得引用。
- 2023-04-25 07:40:03下载
- 积分：1
-
vb 交换两个变量的值
vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值，从运行效果截图你可看出这个功能：
If IsNumeric(Txt_a.Text) Then
a = Val(Txt_a.Text)
Else
MsgBox "请输入数字！"
Exit Sub
End If
If IsNumeric(Txt_b.Text) Then
b = Val(Txt_b.Text)
Else
MsgBox "请输入数字！"
Exit Sub
End If
a = a + b
b = a - b
a = a - b
Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b
- 2023-09-06 03:35:03下载
- 积分：1
-
VB 石头剪刀布猜拳游戏
VB 石头剪刀布猜拳游戏，游戏操作方法：在窗体左下方的石头、剪子、布图标中，单击用户想要出的一种手势，电脑会自动给出该手势，任一方赢了都会给出相应提示图片信息。游戏结果判定逻辑：
将用户和计算机所选的图片的序号合成一个字符串，根据这个字符串判断用户的输赢
00 石头对石头 重来
01 石头对剪子 用户赢
02 石头对布 用户输
10 剪子对石头 用户输
11 剪子对剪子 重来
12 剪子对布 用户赢
20 布对石头 用户赢
21 布对剪子 用户输
22 布对布 重来
- 2023-07-03 14:45:03下载
- 积分：1
-
VB 实现FTP功能的小程序 包括FTP操作类
VB 实现FTP功能的小程序 包括FTP操作类，将诸多功能收集到一块，实现了一个简单的FTP客户端程序，可用来下载和上传一些文件，该程序由busywxp改编，修复了源程序中的一些bug。现在可程序可完成文件编码类型的切换，比如ASCII、二进制的转换，还可选择传输的类型是主动类型或是被动类型，程序窗口基于分隔条进行分割，用于显示不同的功能，你可了解超多的VB网络编程知识和窗口可视化的相关操作。
- 2022-06-30 23:29:33下载
- 积分：1
