登录
首页 » VB源码 » VB OutLook折叠展开的主界面菜单

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

于 2022-05-14 发布 文件大小:446.05 kB
0 138
下载积分: 2 下载次数: 1

代码说明:

VB OutLook式主界面菜单,可折叠和展开,类似WindowsXP的界面左侧菜单,如示例图所示,本示例菜单效果请看左侧的图文式菜单,鼠标单击后可向下滑开,显示出二级的图文菜单,再次单击则合拢菜单。以前这种菜单在微软Windows的OutLook中使用,本源码是仿写的这种菜单。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • VB制作的软件助手动画 使用Microsoft Agent控件完成
    VB使用Microsoft Agent控件制作的软件助手动画,软件助手这个相信大家都熟悉吧,最早的Office里面,就有一个大眼睛小助手,不过感觉这个小助手似乎并没有赢得大家的喜爱。本程序就是调用Windows中固有的Agent控件够实现一个简单的小助手,为制作同类程序的VB开发者提供参考。   注:我测试失败了,我的系统是Widows7,当时这个程序是面向Windows XP的。
    2023-01-24 11:35:03下载
    积分:1
  • VB6.0 改变扩展名保护Access数据库
    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
    2022-05-16 07:33:58下载
    积分:1
  • VB6.0 如何计算加权平均值
    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
    2022-02-25 12:19:27下载
    积分:1
  • VB Http proxy代理服务器
    Http proxy,由VB6.0编写的代理服务器的源码,要测试代理示例,请单击“LISTEN”按钮并使用浏览器访问代理。 代理端口是3280.您当前的IP是192.168.1.2,此例程等待浏览器发送HTTP请求标头。 收集所有必要信息后,它连接到真实服务器并传递标头数据。   打开程序后,可单击监听按钮,实现代码服务的监听功能,也可适时停止这个功能。   本源码来自于国外。
    2022-09-10 03:25:03下载
    积分:1
  • vb.net 捕获键盘按键和鼠标XY坐标位置
    vb捕获键盘按键和鼠标坐标位置,监测鼠标的位置和鼠标按键的名称,如窗体所示,随意移动鼠标,即可适时显示出鼠标坐标,若敲击键盘,则会获取到哪一个键被按下,两个功能的代码写在按钮事件中,获取鼠标XY坐标位置:   Me.Label3.Text = "x=" + e.X.ToString() + " y=" + e.Y.ToString()   获取键盘按下:   Me.Label4.Text = "code=" + e.KeyCode.ToString() + " value=" + e.KeyValue.ToString()
    2023-06-22 15:00:03下载
    积分:1
  • VB 6.0 过程引用传递参数
    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
    2022-02-12 05:00:23下载
    积分:1
  • vb 通过程序设置系统日期和时间的格式
    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
    2023-06-21 17:25:03下载
    积分:1
  • VB6.0检查是否有拨号连接
    VB6.0检查你的电脑是否有拨号连接,获取本机的网络连接列表,重点是检测是否有拨号网络连接。
    2022-07-25 20:56:18下载
    积分:1
  • 国外的VB版跳棋游戏
    一款国外的VB版跳棋游戏源码,源代码中同样包括了很多注释,不过注释都是英文。这款跳棋感觉和国内的不一样,走棋方法不同,试着玩了,按照国内的走棋方法,棋子并不走动,不知道如何玩。但是源代码在VB6.0下可顺利编译成功,有兴趣的可下载源代码参考学习。运行效果如下图所示。
    2022-04-21 21:15:12下载
    积分:1
  • vb RTrim()去除字符串行尾空格
    vb 演示如何去除字符串结尾空格,把输入框中的含有空格的字符串,全部过滤掉空格,这个源码似乎有上结简单了,使用RTrim(),一行代码即可搞定:   Private Sub Command1_Click()    Text2.Text = RTrim(Text1)   End Sub   主要是使用了RTrim()函数,这个函数不只是过滤行尾空格,也会将字符串中间空格过滤掉。
    2022-10-07 20:30:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载