-
VB 6.0 将数组中的数据利用图表分析
VB 6.0 将数组中的数据利用图表分析,也就是用柱状图来显示数组中的数据,所有的操作都是从点击按钮开始的,如下代码:
Private Sub Form_Load()
Dim i
i = Array(1, 2, 3, 4, 5, 6, 7)
Dim j
For j = 0 To UBound(i)
With MSChart1
.RowCount = UBound(i) + 1
.Row = j + 1
.ColumnCount = 1
.Data = i(j)
.RowLabel = i(j)
End With
Next j
End Sub
- 2022-01-25 18:47:19下载
- 积分:1
-
VB6.0使用InPutBox显示密码输入框
VB6.0使用InPutBox显示密码输入框,InPutBox大部分情况下是用于输入数据,与用户交互,但这些数据并不是密码类型的,本实例是展示是使用InPutBox作为密码输入框,其实也是挺简单的:
Private Sub Command1_Click()
On Error GoTo Err_Out
Dim lTemp As Long
Dim sTemp As String
lTemp = SetTimer(Me.hwnd, NV_INPUTBOX, 1, AddressOf TimerProc)
sTemp = InputBox("请输入密码", "密码输入框")
Err_Out: End Sub
- 2023-02-13 07:30:04下载
- 积分:1
-
VB将程序图标添加到托盘
VB将程序图标添加到托盘,任务栏的系统托盘上有本程序的图标,并可通过图标的右键菜单,调出程序主窗口、退出关闭程序等功能,是一种比较常见的添加系统托盘的示例。
- 2022-03-24 10:49:35下载
- 积分:1
-
VB 6.0 对字符串进行加、减、乘、除计算
VB 6.0 对字符串进行加、减、乘、除计算,如何对字符串进行加、减、乘、除计算呢,本示例演示了这个功能,其实就是数学表达式的计算,运算式中可以有括号,程序将按照运算规则,按照括号优先、乘除优先的原则进行运算,计算出结果并显示在Textbox中,最终运行效果如示例图所示。
- 2022-03-02 02:18:41下载
- 积分:1
-
VB.NET邮件发送实例 可发附件
VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式,为了避免程序出错,在本程序刚启动时,帐号、密码框暂时不可用。
- 2022-08-15 21:36:57下载
- 积分:1
-
VB 6.0 按字段显示数据库所有值
VB 6.0 按字段显示Access数据库所有值,是一个按条件查询数据库的例子,这里的数据库为BOOK2.mdb,核心的代码如下:
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "ook2.mdb;Persist Security Info=False "
Adodc1.RecordSource = "select * from 作者"
Set DataCombo1.DataSource = Adodc1
DataCombo1.DataField = "城市"
Set DataCombo1.RowSource = Adodc1
DataCombo1.ListField = "姓名"
End Sub
- 2022-09-25 11:45:03下载
- 积分:1
-
窗体分割 窗口分栏程序- vB版
窗体分割 窗口分栏程序- vB版,这个可将窗口分为上下部分、左右部分,可分成二栏、三栏,通过程序左侧的参数设置面板,决定程序窗口要经过怎么的切割。本源码同样来自于国外源代码网站。代码注释英文,这里就不帖代码,你可以单击页面底部的“下载源码”按钮,下载本窗口切割实例的完整源码。
- 2022-09-05 06:00:03下载
- 积分:1
-
VB.NET Try Catch Finally用法演示源码
VB.NET 演示带Finally的Try Catch 异常处理用法演示,这个源码就是捕捉VB.NET运行错误的,结合了最常规的try catch组合,并且使用了Finally处理的情况,那么为什么要使用Finally呢?使用Finally的好处是,把资源释放或状态还原的代码放到finally块中,可以保证在try和catch语句执行完后,一定会执行finally语句块,而不用考虑各种复杂的跳转情况。
- 2023-05-11 05:35:04下载
- 积分:1
-
VB.NET获取Windows 7操作系统信息
VB.NET获取Windows 7操作系统信息,本程序获取的内容比较多,主要有:显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。
- 2023-06-05 04:30:03下载
- 积分:1
-
VB 使用VsMenu控件创建漂亮菜单
VB 使用VsMenu控件创建漂亮菜单,是一个很不错的VsMenu控件用法演示实例,在窗体上单击右键,可以看到弹出式菜单效果。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then PopupMenu MDIfrmMain.mnuEdit
End Sub
- 2022-09-24 14:25:02下载
- 积分:1