内核为VB6的一个下载软件开源源码

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使用Microsoft Agent控件制作的软件助手动画，软件助手这个相信大家都熟悉吧，最早的Office里面，就有一个大眼睛小助手，不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手，为制作同类程序的VB开发者提供参考。 　　注：我测试失败了，我的系统是Widows7，当时这个程序是面向Windows XP的。

一个实现图像的旋转效果实例，由VB6.0编写，前几年的源码，本程序实现图片的逆时针旋转90度，单击窗口中的按钮即可实现旋转功能，这部分代码，可参考如下代码： 　　逆时针旋转90度 　　Private Sub Command2_Click() 　　 For j = 0 To h Step 1 　　 For i = 0 To w Step 1 　　 BitBlt Picture2.hDC, i, j, 1, 1, Me.Picture1.hDC, j, i, srCopy 　　 Next i 　　 Next j 　　End Sub

VB 6.0 对字符串进行加、减、乘、除计算，如何对字符串进行加、减、乘、除计算呢，本示例演示了这个功能，其实就是数学表达式的计算，运算式中可以有括号，程序将按照运算规则，按照括号优先、乘除优先的原则进行运算，计算出结果并显示在Textbox中，最终运行效果如示例图所示。

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

VB利用地址偏移访问内存，整个处理过程 封装在事件函数中，用户单击后，执行以下代码： 　　Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) 　　Private Sub Form_Load() 　　 Dim i As Long 　　 Dim j As Long 　　 i = 1234 　　 j = 4321 　　 Debug.Print VarPtr(i) 　　 Debug.Print VarPtr(j) 　　 CopyMemory ByVal VarPtr(i), ByVal VarPtr(i) - 4, 4 　　 Text1.Text = i 　　End Sub

VB6.0 使用递归过程实现阶乘运算 　　Function F(n As Integer) As Single 　　 If n > 1 And n

1.用易懂的VB语言编程   2.可设置串口号波特率   3.支持十六进或字符形式发送或接收，可定时发送。3，可自己换程序的图片

VB6.0 使用列表播放midi等媒体文件，代码中添加了注释，了解VB如何操作MIDI文件进行播放，核心是调用了msdxm.ocx文件，如果程序不能运行,将本目录中的msdxm.ocx文件拷贝到C:WINDOWSsystem32目录下,然后,在"开始"/"运行"中键入regsvr32 C:WINDOWSsystem32msdxm.ocx, 回车再运行程序即可.

文件夹复制VB6.0实例源码，这里用了一个用户自定义函数，此函数可以出现一个对话框，并返回所选择的路径，若没有选择返回("")。模拟了Windows系统的文件夹模拟功能，看上去比较低级，只是通过这个功能，熟悉一些VB与文件操作的函数用法。