-
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
-
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.net 绘制实时曲线源码
VB.net 绘制实时曲线，是一个实时曲线控件的DEMO测试，使用这个控件，可以生成适时曲线 、历史曲线 、动态历史曲线。可用于流量 监控、访问量统计、员工绩效排名等众多场合中。
CEGraphControl目录中为控件的源代码，DeviceApplication1为使用此控件的示例，测试时要把CEGraphControl目录中生成的CEGraphControl.dll文件拷贝到测试源码的Bin同级目录中。
- 2022-07-26 13:54:49下载
- 积分：1
-
VB 只允许输入特殊字符
VB 只允许输入特殊字符，这只是一个普通的用户查询窗口，字段名称、运算符、关 键 字，然后对其进行查询，因为要向cbofields中添加规范化数据，所在再输入时只能输入“>”、“
- 2022-03-19 10:07:52下载
- 积分：1
-
VB OutLook折叠展开的主界面菜单
VB OutLook式主界面菜单，可折叠和展开，类似WindowsXP的界面左侧菜单，如示例图所示，本示例菜单效果请看左侧的图文式菜单，鼠标单击后可向下滑开，显示出二级的图文菜单，再次单击则合拢菜单。以前这种菜单在微软Windows的OutLook中使用，本源码是仿写的这种菜单。
- 2022-05-14 02:45:19下载
- 积分：1
-
VB6.0演示的AutoSize实例
VB6.0演示的AutoSize实例，自动改变图片框的大小以显示图形全部内容，当图片框比图形小时，图形超出部分不被显示，减少图片框高度，使图片框小于图形。
- 2022-08-07 04:59:17下载
- 积分：1
-
Vb6.0 仿制资源管理器界面折叠菜单
Vb6.0 仿制资源管理器界面折叠菜单，这个菜单的形式估计大家都见到过，像Windows窗口右侧的资源管理器窗口那样，鼠标单击的时候会折叠起来，再次点击会展开所属子菜单项，相信这个菜单的功能不用多介绍了，代码方面实现还是挺麻烦的，有兴趣的下载源码参见代码。
- 2023-01-05 08:10:03下载
- 积分：1
-
VB将程序图标添加到托盘
VB将程序图标添加到托盘，任务栏的系统托盘上有本程序的图标，并可通过图标的右键菜单，调出程序主窗口、退出关闭程序等功能，是一种比较常见的添加系统托盘的示例。
- 2022-03-24 10:49:35下载
- 积分：1
-
VB 批量录入数据
VB 批量录入数据，批量显示数据在MSHFlexGrid控件中，本示例同时需要SQLSERVER数据库配合，添加的数据也会显示在在表格MSHFlexGrid中。
- 2022-11-17 13:55:03下载
- 积分：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
