VB6 利用Combo、DTPicker组合框辅助录入数据

VB.NET获取Windows 7操作系统信息，本程序获取的内容比较多，主要有：显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、控制面板、辅助选项/常规、系统属性、增加打印机、添加/删除程序、显示安装/卸载、显示Windows 安装、添加/删除程序、Windows7时间/日期、Windows7背景设置、外观设置、键盘/速度属性、设备管理器。

VB 6.0 过程引用传递参数，显示传递前和传递后的参数值： 　　Private Sub mysub(ByRef i As Integer) 　　 i = 100 　　End Sub 　　Private Sub Form_Resize() 　　 Dim num As Integer 　　 num = 1 　　 Print "传递前:" & num 　　 Call mysub(num) 　　 Print "传递后:" & num 　　End Sub

VB 柱状图生成的例子,看看,是不是很实用的图表效果,这种图表也叫做直方图表,这是纵向的,也有横向的柱状图.本柱状图的生成是使用了Vb内置的微软图表控件MSChart控件,因此可看作是此控件的应用范例.

VB Windows操作监视程序，一个 Windows的文件目录操作即时监视程序，可以监视在Explore中的重命名、新建、删除文件或目录；改变文件关联；插入、取出CD和添加删除网络共享都可以被该程序记录下来。源程序来源于国外，注释英文。运行界面效果如图所示。当有文件操作时，在程序运行窗口中会有所提示。

VB 设置随机访问文件的读取位置，本例中是使用Seek语句来设置随机访问文件的读取位置，代码编写方面，主要是掌握Seek的用法，以下代码将用户的单击行为作为触发Seek的事件条件： 　　Private Sub Command1_Click() 　　 Dim str As String * 10 　　 Open App.Path & "MyFile.txt" For Binary As #1 　　 Seek #1, 5 　　 Get #1, , str 　　 Text1.Text = str 　　 Close #1 　　End Sub 　　当用户单击按钮后，执行seek语句。

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

分享一个VB Excel表格生成模块，借助了模块中的ChangeToExcel.ocx组件来生成，使用时需要引入此组件。该组件中具备创建Excel文件、向Excel文件中插入内容、出错处理等功能。 　　Excel表格生成模块为该组件的源代码文件，你还可以通过源码对组件功能进行调整。 　　Demo文件夹下是使用此组件导出Excel文件的例子，单击按钮即可生成Excel文件。

VB 值参与变参如何用的小例子源码，这个其实平时有时候也用到了，只是不知道这是值参或是变参，通过这个小实例，你或许对这两者的用法会更熟悉些，以下代码仅供参考： 　　Private Sub Command2_Click() 　　Dim a As Integer, b As Integer 　　 a = 10: b = 20 　　 Picture2.Print "交换前:a="; a; " b= "; b 　　 Swap2 a, b 　　 Picture2.Print "交换后:a="; a; " b= "; b 　　End Sub

VB6.0为Lable标签着色（填充不同颜色），把标签分别填充上不同的颜色，在显示一些统计数据的时候，可清淅的显示出各种数据类型，提升用户浏览体验。 　　为Lable着色是非常简单的，你可以从本例子中学会用法。

VB6.0 实现表格样式的内容生成Excel表格式，将DataGrid的表格数据转换成Excel格式，生成Excel表文件，用Offie套件就可以打开，在转换前可设置文字格式、样式等参数，看上去是一个国外的程序，代码里的注释全是英文的，如果E文好的话，推荐参考。