-
VB.net 绘制实时曲线源码
VB.net 绘制实时曲线，是一个实时曲线控件的DEMO测试，使用这个控件，可以生成适时曲线 、历史曲线 、动态历史曲线。可用于流量 监控、访问量统计、员工绩效排名等众多场合中。
CEGraphControl目录中为控件的源代码，DeviceApplication1为使用此控件的示例，测试时要把CEGraphControl目录中生成的CEGraphControl.dll文件拷贝到测试源码的Bin同级目录中。
- 2022-07-26 13:54:49下载
- 积分：1
-
VB NET写的DVD播放器源代码
播放器窗口界面中的操作菜单，实现了弹出菜单的功能，把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。
播放器功能支持DVD格式的视频播放，包括了暂停、播放、停止、弹出等功能。
本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。
- 2023-05-18 15:05:03下载
- 积分：1
-
VB 演示如何使用WeekdayName获取星期名称
VB 演示如何获取星期名称，这里获取星期几是使用了VB内置的WeekdayName函数，将获取到的日期和星期几直接显示在Text控件中，下面是这个函数的具体用法：
Private Sub Command1_Click()
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
Private Sub Form_Load()
Text1.Text = Date
Text2.Text = WeekdayName(Weekday(CDate(Text1)), vbMonday)
End Sub
在VB6.0 IDE环境中编译此源代码，生成如演示截图所示的运行效果。
- 2022-11-30 01:55:03下载
- 积分：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程序托盘控件+源码实例
VB程序托盘控件+源码实例，VB自定义一个添加程序到Windows托盘图标的控件，编译控件源码后生成Tray.ocx，源码包中附有一个调用本托盘程序的示例，在TrayDEMO文件夹内，在Class1.cls文件中实现了托盘的主要操作：将程序图标添加到系统托盘区，将图标从系统托盘区中删除，设置图标的提示信息，添加图标右键操作等功能。
- 2022-07-07 04:23:33下载
- 积分：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
-
VB制作可移动按钮位置的Toolbar工具栏
VB制作可移动按钮位置的工具栏，这个窗口中的Toolbar允许用户自己调整位置，可以拖动至指定位置，记得word中的工具栏就是这样，当你改变默认的工具栏布局时，程序会使用 MsgBox ("您确实要调整工具栏按钮的位置吗？")弹出确认信息。另外，本范例也可看作是一个在VB窗口中制作图标菜单的好范例，如示例图所示的效果。
- 2022-11-01 12:50:03下载
- 积分：1
-
VB6 利用Combo、DTPicker组合框辅助录入数据
VB6.0 利用组合框辅助录入数据，输入框什么的就不多说了，主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法，方便用户选择数据、选择时间，特别是时间，可固定为指定格式，防止程序出错等。
- 2023-03-15 11:25:03下载
- 积分：1
-
VB源码演示如何制作倒计时程序
VB编写的倒计时程序，测试时，请输入目标日期与时间，格式如演示截图中所示，然后按下“倒计时”按钮，即可开始倒计时了，会显示出具体剩余的天数和时、分、秒。程序主要基于CDate函数和DateDiff函数来实现，主要代码如下：
Private Sub Timer1_Timer()
On Error GoTo H
Timer1.Interval = 1000
Dim i As Date
i = CDate(Text1)
Label1.Caption = "距离" & Text1 & "还剩" & DateDiff("d", Now, i) & "天" & CLng(DateDiff("h", Now, i)) Mod 24 & "小时" & CLng(DateDiff("n", Now, i)) Mod 60 & "分" & CLng(DateDiff("s", Now, i)) Mod 60 & " 秒"
Exit Sub
H:
MsgBox "请输入正确的时间"
Timer1.Enabled = False
End Sub
- 2022-03-13 16:12:01下载
- 积分：1
-
VB.NET 人事管理系统 SQLSERVER版
VB.NET 人事管理系统 SQLSERVER版，这个系统主要是练习VB.NET与数据库方面的操作，功能不复杂，包括了启动窗口界面、系统设置、添加用户、修改密码、重新登录、员工档案管理、查询员工档案、员工档案报表、编辑考勤信息、考勤信息报表、查查找员工评价、工作评价报表、编辑员工调动、员工调动报表、编辑员工工资、查找员工工资、系统帮助、工资管理模块等。在软件启动时，有一个启动窗口效果，带渐变的动画。
- 2022-07-11 07:49:30下载
- 积分：1
