-
支持代理的VB FTP服务器程序
一个FTP程序的例子，不过这个是支持代理服务器的，用VB编写FTP的例子,支持代理服务器。这个程序同样来自国外VB网站，代码中很多注释，不过是英文的。这个FTP程序的样子似乎还需要完善，和当下流行的、CuteFTP、FlashFXP都有很大的区别，甚至说有点简陋，不过这个代码主查面向学习的，英文好的可下载本源码学习。
- 2022-03-06 02:53:34下载
- 积分：1
-
VB实现子窗体跟随主窗体自动移动
VB实现子窗体跟随主窗体自动移动，这个窗体的形式，相信大家也见到过，就像一些播放器的子窗口，当拖动主窗体的时候，子窗体会跟着移动，紧紧贴服，自动跟随，好像是主窗口带有磁性一样。
测试时，请在主窗口中单击“打开跟随窗体”后，会显示子窗口，此时拖动父窗口，即可看到效果。
- 2023-07-19 00:25:03下载
- 积分：1
-
VB的保存文件对话框调用创建一例
VB的保存文件对话框调用创建一例，弹出“打开”对话框，还有保存对话框，另存为对话框，通用对话框，cdlOFNFileMustExist当用户输入非法的文件名时,要显示一个警告。
cdlOFNReadOnly指示对话框关闭时只读复选框的状态。。
- 2022-02-11 13:06:23下载
- 积分：1
-
在状态栏中显示当前状态-VB范例
VB6.0在状态栏中显示当前状态，演示程序以一个画图程序来演示窗口状态栏的变化，当我们画直线、执行操作： 画正方形，执行操作： 画圆的时候，会显示出状态，要注意观察窗口的状态栏上的文字提示信息。这种形式现在不算什么高大上功能了，很早的VB示例中就实现了，因此本源码比较基础了，高手请绕行。
- 2023-03-24 17:45: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.NET 轻松提速打字游戏源代码
VB.NET 轻松提速打字游戏源代码，同时调用了MID背景音乐文件，边打字边听音乐。程序功能：打字时间设置、倒计时、打字难易程序设置、背景音乐和文字设置、游戏速度设置、窗口背景颜色设置、音乐开关设置等，其实这是一个打字小游戏，从窗口顶部会随机掉下来字母，敲击键盘上对应的字母键即可消除该字符，算打字成功。本趣味打字帮助大家面对键盘只会‘一指弹’炼成‘弹指神功’的炉火纯清的地步。
在编写时保证了窗体大小发生变化时保证窗体下面几个界面元素不会混乱，同时也调用了Windows编程库，比如Windows MediaPlayer的相关组件AxInterop.WMPLib.dll/Interop.WMPLib.dll，用于播放背景声音。程序中的随机生成器，即每次产生的随机种子不一样，很有用，用来生成随机掉下来的字母。
- 2022-04-12 19:44:43下载
- 积分：1
-
VB求解数学问题，求两个数最大公约数
VB6.0演示一个求解数学问题，求两个数最大公约数，这是个简单的数学问题，数学基础好，用VB很轻松就编写出本程序了。在运行的窗口中，分别输入两个整数，单击按钮，程序将显示两个数的最大公约数是多少。求解的过程代码描述如下：
If (Val(Text1.Text) = 0 Or Val(Text2.Text) = 0) Or Val(Text1.Text) > 2147483647 Or Val(Text2.Text) > 2147483647 Then
MsgBox "输入的数0或溢出，请重新输入！"
MsgBox "输入的数0或溢出,请重新输入!", vbInformation + vbOKOnly, "数据错误"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
m = Val(Text1.Text)
n = Val(Text2.Text)
If m < n Then
temp = m: m = n: n = temp
End If
Do
r = m Mod n
m = n
n = r
Loop While r 0
Label3.Caption = "两个正整数m和n的最大公约数为: " & m
End If
- 2022-07-16 14:37:29下载
- 积分：1
-
VB演示矩阵的加法运算
VB6.0演示矩阵的加法运算，本例中一共是两个矩阵，每一个矩阵都根据不同的算法生成矩阵数字序列，然后把这两个矩阵求和，最后一栏展示的是矩阵相加后的结果，以指定格式输出。看了代码，我暂时没搞懂是什么算法，感兴趣的自己下载源码，研究学习吧。
- 2022-04-27 13:59:41下载
- 积分：1
-
VB.NET获取Windows 7操作系统信息
VB.NET获取Windows 7操作系统信息，本程序获取的内容比较多，主要有：显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。
- 2023-06-05 04:30:03下载
- 积分：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
