- 
                        VB 为菜单添加分割线
                        
                          VB6为菜单制作添加分割线,在菜单项与菜单项之间显示一个分隔线,这个在Windows经典风格的窗口中,十分常见,像一个水平线那样,把菜单分成多个部分,这个水平线带有阴影效果,视觉效果更立体。
  本窗口中的菜单,是一个企业综合管理系统的主界面面板,那些菜单都是测试用的,你可以看一下菜单中的分隔线是如何嵌入到菜单中的。                         
                            - 2022-09-22 23:30:03下载
- 积分:1
 
- 
                        VB.NET 获取全局鼠标坐标范例
                        
                          VB.NET 获取全局coordinate鼠标坐标,显示窗体内的XY坐标,窗体外凡是显示屏幕的任意位置都可以显示出坐标,获取全局鼠标坐标,测试截图是获取本窗口外的鼠标坐标,请参见截图效果。随着鼠标移动会显示出各个鼠标坐标点的XY坐标信息。单击窗口的“开始”按钮后,将执行以下代码获取全局坐标:
  GetCursorPos(p)
  tooltip1.SetToolTip(Me, "当前鼠标位置 X=:" & p.x & "Y=:" & p.y)
  tooltip1.Active = True                         
                            - 2022-11-10 13:15:03下载
- 积分:1
 
- 
                        VB 值参与变参举例
                        
                          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                         
                            - 2022-07-25 08:20:44下载
- 积分:1
 
- 
                        VB NET写的DVD播放器源代码
                        
                          播放器窗口界面中的操作菜单,实现了弹出菜单的功能,把控制菜下的各菜单项添加到弹出式菜单ContextMenuStrip1中。
  播放器功能支持DVD格式的视频播放,包括了暂停、播放、停止、弹出等功能。
  本播放器程序依赖于AxInterop.MSWEBDVDLib.dll、Interop.MSWEBDVDLib.dll。                         
                            - 2023-05-18 15:05:03下载
- 积分:1
 
- 
                        vb 设置窗体透明度
                        
                          vb 拖动滑块设置窗体透明度,在如图所示的窗体中,有一个滑块可左右滑动,用户可改变滑块的值,来改变窗体的透明度,如图所示是在30%位置的透明度效果,滑块往右,则透明度减小,也就是窗体越清淅,往左则窗口越来越透明。源码运行于VB6.0,欢迎VB爱好者下载研究源码。                         
                            - 2022-02-04 04:51:17下载
- 积分:1
 
- 
                        vb 交换两个变量的值
                        
                          vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值,从运行效果截图你可看出这个功能:
  If IsNumeric(Txt_a.Text) Then
      a = Val(Txt_a.Text)
  Else
      MsgBox "请输入数字!"
      Exit Sub
  End If
  If IsNumeric(Txt_b.Text) Then
      b = Val(Txt_b.Text)
  Else
      MsgBox "请输入数字!"
      Exit Sub
  End If
  a = a + b
  b = a - b
  a = a - b
  Lbl_Info.Caption = "a的值是:" & a & "   b的值是:" & b                         
                            - 2023-09-06 03:35:03下载
- 积分:1
 
- 
                        vb 将数字格式化为金额
                        
                          vb 将数字格式化为金额,这个更像是一个自动计算程序,根据用户输入的单位、数量、价格等参数,自动计算出金额,这才是程序要表达的功能,相差代码:
  Private Sub Text1_LostFocus(Index As Integer)
      Text1(Index).BackColor = &H80000005
      If Index = 3 Then Text1(3) = Format(Text1(3), "0.00")
  End Sub                         
                            - 2023-01-25 23:50:04下载
- 积分:1
 
- 
                        药品管理程序源码Vb 6.0 SqlServer
                        
                          一款基于VB开发的药品管理程序,数据库采用SqlServer,运行之前首先在SQL查询分析器里执行SQL目录下的myMedsys.sql脚本.大家可根据源程序代码自行扩展程序,二次开发完善。                         
                            - 2022-04-24 20:15:24下载
- 积分:1
 
- 
                        VB 实现FTP功能的小程序 包括FTP操作类
                        
                          VB 实现FTP功能的小程序 包括FTP操作类,将诸多功能收集到一块,实现了一个简单的FTP客户端程序,可用来下载和上传一些文件,该程序由busywxp改编,修复了源程序中的一些bug。现在可程序可完成文件编码类型的切换,比如ASCII、二进制的转换,还可选择传输的类型是主动类型或是被动类型,程序窗口基于分隔条进行分割,用于显示不同的功能,你可了解超多的VB网络编程知识和窗口可视化的相关操作。                         
                            - 2022-06-30 23:29:33下载
- 积分:1
 
- 
                        Visual basic  vb6.0 制作个人调查表窗体
                        
                          Visual basic  vb6.0 制作个人调查表窗体,这个主要是练习一些VB Form 窗体控件中的元素用法,如果你初学习VB的话,这个例子非常适合你学习。
  本例子中主要包括了对VB基本控件元素Check、Option、Text、Label、Button的用法进行了演示,具分享出了具体实现某一功能的代码及设置方法,涉及到光标自动归位、清空文本框、判断用户输入是否正确,断用户选择了哪一项按钮等功能,虽然简单,但对于VB打基础还是挺有帮助的。                         
                            - 2022-04-18 16:36:31下载
- 积分:1