VB OutLook折叠展开的主界面菜单

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

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

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

Http proxy，由VB6.0编写的代理服务器的源码，要测试代理示例，请单击“LISTEN”按钮并使用浏览器访问代理。 代理端口是3280.您当前的IP是192.168.1.2，此例程等待浏览器发送HTTP请求标头。 收集所有必要信息后，它连接到真实服务器并传递标头数据。 　　打开程序后，可单击监听按钮，实现代码服务的监听功能，也可适时停止这个功能。 　　本源码来自于国外。

vb捕获键盘按键和鼠标坐标位置，监测鼠标的位置和鼠标按键的名称，如窗体所示，随意移动鼠标，即可适时显示出鼠标坐标，若敲击键盘，则会获取到哪一个键被按下，两个功能的代码写在按钮事件中，获取鼠标XY坐标位置： 　　Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString() 　　获取键盘按下： 　　Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()

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 通过程序设置系统日期和时间的格式，设定时可以改变长日期格式，短日期格式，改变时间格式，看着很像是以前Windows XP时候的时间设置窗口的功能。请注意，日期格式设置成功，需要重新启动计算机或注销后可以看到新的短日期格式！以下是改变日期格式其中的一个例子代码，仅供参考： 　　Dim ret2 As Long 　　Dim sd As String 　　ret2 = RegOpenKey(HKEY_CURRENT_USER, "Control PanelInternational", hKey) 　　If ret2 = 0 Then 　　 sd = Combo1.Text 　　 RegSetValueEx hKey, "sShortDate", "0", REG_SZ, ByVal sd, LenB(StrConv(sd, vbFromUnicode)) 　　 MsgBox "日期格式已设置成功，重新启动计算机或注销后可以看到新的短日期格式！", , "提示窗口" 　　End If

VB6.0检查你的电脑是否有拨号连接，获取本机的网络连接列表，重点是检测是否有拨号网络连接。

一款国外的VB版跳棋游戏源码,源代码中同样包括了很多注释，不过注释都是英文。这款跳棋感觉和国内的不一样，走棋方法不同，试着玩了，按照国内的走棋方法，棋子并不走动，不知道如何玩。但是源代码在VB6.0下可顺利编译成功，有兴趣的可下载源代码参考学习。运行效果如下图所示。

vb 演示如何去除字符串结尾空格，把输入框中的含有空格的字符串，全部过滤掉空格，这个源码似乎有上结简单了，使用RTrim()，一行代码即可搞定： 　　Private Sub Command1_Click() 　　 Text2.Text = RTrim(Text1) 　　End Sub 　　主要是使用了RTrim()函数，这个函数不只是过滤行尾空格，也会将字符串中间空格过滤掉。