-
VB6.0 如何计算加权平均值
VB6.0 代码演示如何计算加权平均值，计算加权平均值可编写以下代码实现：
Private Sub Command1_Click()
Text7.Text = jiaquan(Text1, Text2, Text3, Text4, Text5, Text6)
End Sub
Private Function jiaquan(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer, ByVal e As Integer, ByVal f As Integer)
Dim sum As Integer
sum = (a * b + c * d + e * f) / (b + d + f)
sum = Round(sum, 2)
jiaquan = sum
End Function
- 2022-02-25 12:19:27下载
- 积分：1
-
Visual basic vb6.0 制作个人调查表窗体
Visual basic vb6.0 制作个人调查表窗体，这个主要是练习一些VB Form 窗体控件中的元素用法，如果你初学习VB的话，这个例子非常适合你学习。
本例子中主要包括了对VB基本控件元素Check、Option、Text、Label、Button的用法进行了演示，具分享出了具体实现某一功能的代码及设置方法，涉及到光标自动归位、清空文本框、判断用户输入是否正确，断用户选择了哪一项按钮等功能，虽然简单，但对于VB打基础还是挺有帮助的。
- 2022-04-18 16:36:31下载
- 积分：1
-
VB6.0仿迅雷悬浮窗口（图标）的实现源码
VB6.0仿迅雷悬浮窗口（图标）的实现源码，迅雷的悬浮窗相信大家很熟悉了，其实就是显示一个图标，悬浮在屏幕上，通过这个悬浮图标可单击右键调出菜单，双击图标则会显示主窗口，本源码模拟了悬浮窗口的实现，另外是模拟了悬浮窗口双击显示主窗口的功能。代码中注释不多，不过没有使用过多复杂的代码，对VB新手友好。
- 2022-03-24 09:58:35下载
- 积分：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 控件随窗体自动调整大小，像窗口中的ListBox、Image、FileListBox、VB.Frame控件等，都可以随窗口的大小变化而变化，当用户拖动改变窗口大小时，这些控件的大小也会随之改变，这个功能的实现得益于自定义函数Form_Resize()，用此来控制各个控件的变化，来看代码：
Dim x, y As Long
x = Form1.Width - 200 - Frame1.Width - Image1.Width
y = (Frame1.Height - Drive1.Height - Drive1.Top - 200)
Frame1.Width = Frame1.Width + x / 2
Image1.Left = Frame1.Left + Frame1.Width + 100
Image1.Width = Image1.Width + x / 2
Image1.Height = Me.Height - 600
Frame1.Height = Image1.Height
Dir1.Width = Frame1.Width - 280
File1.Width = Dir1.Width
Drive1.Width = Dir1.Width
Dir1.Height = y / 3
File1.Top = Dir1.Top + Dir1.Height + 100
File1.Height = 2 / 3 * y
此段代码被封装在按钮事件中，请参见源代码文件。
- 2023-02-03 17:15:04下载
- 积分：1
-
vb 将数字格式化为金额
vb 将数字格式化为金额，这个更像是一个自动计算程序，根据用户输入的单位、数量、价格等参数，自动计算出金额，这才是程序要表达的功能，相差代码：
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
If Index = 3 Then Text1(3) = Format(Text1(3), "0.00")
End Sub
- 2023-01-25 23:50:04下载
- 积分：1
-
VB.NET自制的看图工具软件
VB.NET自制图片查看器，一个看图工具软件，功能方面主要有图片原图显示、自动缩放图片、图片居中、自动缩放图片框、背景色设置、文件名及其路径、视图ToolStripMenuItem等。你可以通过这个小程序了解一些VB.NET与图片之间的操作技巧，另外还可以学习到窗口对话框的一些基本操作、PictureBox控件用法、目录和文件列表框的使用、处理鼠标事件、偏移量计算图片位置，重画图片、绘图画面，颜色填充、窗体界面元素控制等的控制方法。。
- 2022-12-25 17:15:03下载
- 积分：1
-
VB Windows文件操作监视程序
VB Windows操作监视程序，一个 Windows的文件目录操作即时监视程序，可以监视在Explore中的重命名、新建、删除文件或目录；改变文件关联；插入、取出CD和添加删除网络共享都可以被该程序记录下来。源程序来源于国外，注释英文。运行界面效果如图所示。当有文件操作时，在程序运行窗口中会有所提示。
- 2023-06-19 19:00:03下载
- 积分：1
-
一个演示VB API高速搜索文件的程序
一个演示VB高速搜索文件程序，基于API来实现，用于快速查找文件，类似的例子在前几年的书籍实例中，有很多，这一个也是从VB的书中整理出来的，代码中有丰富的注释，主要是分享给VB新手参考学习的。
- 2022-10-25 13:25:04下载
- 积分：1
-
网络五子棋游戏源码之客户大厅和服务器
网络五子棋游戏源码之客户大厅和服务器
VB编的
- 2023-07-18 23:30:04下载
- 积分：1
