VB 值参与变参举例

VB让窗口标题栏闪烁效果源码，不过我测试没有发现标题栏闪烁，咋回事呢？实现的思路是：声明API函数Flashwindow，然后编写下面的代码： 　　Call FlashWindow(hwnd, 1) 　　If Me.Caption = "闪烁的标题栏" Then 　　 Me.Caption = "欢迎使用管理软件！ " 　　Else 　　 Me.Caption = "闪烁的标题栏-www.codesc.net" 　　End If

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

Vb6.0 仿制资源管理器界面折叠菜单，这个菜单的形式估计大家都见到过，像Windows窗口右侧的资源管理器窗口那样，鼠标单击的时候会折叠起来，再次点击会展开所属子菜单项，相信这个菜单的功能不用多介绍了，代码方面实现还是挺麻烦的，有兴趣的下载源码参见代码。

VisualBasic 6.0 获取网页超链接，VB根据网址打开指定页面，预览网页并获取该页面中所有的超链接，最后会统计出该网页内有多少个链接。 　　同时本源码还可区分网页中的文本和图片，将剔除图片，在文本中查找超链接个数，主要是针对href进行精准匹配统计出出现的次数，运行效果如下图所示。 　　具体源代码请下载本源码查看。

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

FSO对象模型提供了三种创建和打开文件的方法：其实本示例是创建了FileSystemObject对象，然后用FSO对象的FileExists、CreateTextFile、OpenTextFile方法，对文件进行操作，演示了三种FSO对象的操作方法，对学习初级的FSO文件操作有相当好的帮助作用。

VB 使用DataGrid显示书名数据表，这个例子相当简单，主要是学习在VB编程中如何使用DataGrid数据网格控件，将数据库内容读取出来，然后绑定到DataGrid表格中显示： 　　Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=book" 　　Adodc1.RecordSource = "select * from 书名" 　　Set DataGrid1.DataSource = Adodc1 　　DataGrid1.Columns(3).NumberFormat = "$0.00" 　　DataGrid1.Columns(4).NumberFormat = "$0.00" 　　End Sub

播放器窗口界面中的操作菜单，实现了弹出菜单的功能，把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。 　　播放器功能支持DVD格式的视频播放，包括了暂停、播放、停止、弹出等功能。 　　本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。

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

vb.net获取TXT文件的各种属性参数，除了复制、移动文件、删除文件外，还可获取到文件的各种属性参数，不过只是针对TXT文本文件，可以获取到以下的参数：文 件 名 、路 径 、文件大小 、创建文件时间、最近访问时间、最近写入时间、是否隐藏文件、是否只读文件、是否系统文件 、是否脱机文件等 。