登录
首页 » VB源码 » VB6 给窗体添加滚动条

VB6 给窗体添加滚动条

于 2023-02-22 发布 文件大小:61.54 kB
0 131
下载积分: 2 下载次数: 1

代码说明:

VB6 给窗体添加滚动条,调整水平滚动条的一些属性。当窗体的大小发生变化时发生,垂直滚动条与窗体相对位置不变,滚动条的大小随着窗体大小的改变而改变,命令按钮作水平滚动条与垂直滚动条交接处的填充。   因代码注释较多,详细代码情况请您下载本源码包,自行解压查看。

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

发表评论

0 个回复

  • 内核为VB6的一个下载软件开
    内核为VB6的一个下载软件开源源码, 界面方面支持悬浮窗、支持TAB窗口选项卡切换内容,操作方便,关于下载文件方面,已经实现的功能:   1.同时下载两个文件   2.支持断点续传   3.支持代理服务器   使用方法:   1.双击开始或停止   2.其他按鼠标右键
    2022-10-17 00:05:03下载
    积分:1
  • VB6 FileExists判断文件是否存在
    VB6 判断文件是否存在,使用VB内置的函数FileExists来实现,可以说实现方法简单,直接调用函数(文件路径)即可,至于返回的结果,这里有两种形式,一种是以MsgBox的方式弹出窗口告之,另一种是返回布尔值,True或False,然后再进行相关处理。关于FileExists用法,有以下代码供参考:   Dim B As Boolean   B = FileExists(Me.Txt_Path.Text)   If B Then    MsgBox "文件存在"   Else    MsgBox "文件不存在"   End If   以上代码段封装在按钮事件中,用户单击按钮后,执行本段代码,判断指定的文件是否存在。
    2022-07-04 15:21:27下载
    积分:1
  • VB 利用Tag属性存储用户名
    VB 利用Tag属性存储用户名   If Text1.Text = "" Or Text2.Text = "" Then    MsgBox "用户名或密码不能为空", vbCritical, "信息提示"    Exit Sub   Else    If Text1.Text = "TSoft" And Text2.Text = "111" Then    Me.Tag = Text1.Text    Frm_Main.Show 1    Unload Me    Else    MsgBox "输入的名户名或密码不正确", vbCritical, "信息提示"    End If   End If
    2022-02-04 07:45:58下载
    积分:1
  • VB 使用鼠标分割窗体的Split实例
    VB6.0 使用鼠标分割窗体,用鼠标切分主窗体,实现SplitForm,可以用鼠标切分的窗体,在一些流行的应用程序中,经常见到窗体上有二个相邻的列表框,可以用鼠标任意拉动中间分割条,改变列表框的大校   演示窗口其实是一个布满了各种导航菜单的窗口,这也是大家学习的一个亮点哦,作为一个信息管理系统的主界面效果还是相当不错的,分隔窗体在很多时候我们也用得上的。
    2022-08-08 21:38:42下载
    积分:1
  • VB为Lable标签着色(填充不同颜色)
    VB6.0为Lable标签着色(填充不同颜色),把标签分别填充上不同的颜色,在显示一些统计数据的时候,可清淅的显示出各种数据类型,提升用户浏览体验。   为Lable着色是非常简单的,你可以从本例子中学会用法。
    2022-02-05 08:55:36下载
    积分:1
  • VB6.0 获取网络连接信息
    VB6.0 获取网络连接信息,在如图所示的窗口中,点击按钮即可获取显示本机的网络连接信息,这些信息包括:   是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示:“系统通过LAN与Internet连接,系统安装了远程访问服务”。
    2023-05-26 06:40:02下载
    积分:1
  • VB 6 在DataGrid表格中实现下拉列表框
    VB 6.0 在DataGrid表格中实现下拉列表框,大家可以看截图,在如演示效果所示的DataGrid表格中,单击“单位”一列任意行数据,会显示出一个下拉框,供输入者选择单位,扩展了DataGrid的功能,增加了易用性,提升了用户体验。添加这一功能的核心代码为:   Adodc1.CommandType = adCmdTable   Adodc1.RecordSource = "tb_stock"   Set DataGrid1.DataSource = Adodc1   List1.AddItem ("支")   List1.AddItem ("瓶")   List1.AddItem ("盒")   List1.AddItem ("袋")   DataGrid1.Columns(6).Button = True   仅供参考,本示例是配合数据库实现的,请确保测试时数据库是连接的。
    2022-07-26 04:39:52下载
    积分:1
  • VB.NET邮件发送实例 可发附件
    VB.NET编写支持发送附件的邮件发送实例,本实例源码中包含用于将电子邮件发送到简单邮件传输协议(SMTP)服务器进行传送的类,这里使用了SmtpClient 类发送电子邮件,可设置允许添加的附件类型,支持文本文件(*.txt)|*.txt|Word文档(*.doc)|*.doc|图像文件*.BMP;*.JPG;*.GIF等格式,为了避免程序出错,在本程序刚启动时,帐号、密码框暂时不可用。
    2022-08-15 21:36:57下载
    积分:1
  • VB 控件随窗体自动调整大小
    VB 控件随窗体自动调整大小,像窗口中的ListBox、Image、FileListBox、VB.Frame控件等,都可以随窗口的大小变化而变化,当用户拖动改变窗口大小时,这些控件的大小也会随之改变,这个功能的实现得益于自定义函数Form_Resize(),用此来控制各个控件的变化,来看代码:   Dim x, y As Long   x = Form1.Width - 200 - Frame1.Width - Image1.Width   y = (Frame1.Height - Drive1.Height - Drive1.Top - 200)   Frame1.Width = Frame1.Width + x / 2   Image1.Left = Frame1.Left + Frame1.Width + 100   Image1.Width = Image1.Width + x / 2   Image1.Height = Me.Height - 600   Frame1.Height = Image1.Height   Dir1.Width = Frame1.Width - 280   File1.Width = Dir1.Width   Drive1.Width = Dir1.Width   Dir1.Height = y / 3   File1.Top = Dir1.Top + Dir1.Height + 100   File1.Height = 2 / 3 * y   此段代码被封装在按钮事件中,请参见源代码文件。
    2023-02-03 17:15:04下载
    积分:1
  • 药品管理程序Vb 6.0 SqlServer
    一款基于VB开发的药品管理程序,数据库采用SqlServer,运行之前首先在SQL查询分析器里执行SQL目录下的myMedsys.sql脚本.大家可根据源程序代码自行扩展程序,二次开发完善。
    2022-04-24 20:15:24下载
    积分:1
  • 696516资源总数
  • 106679会员总数
  • 14今日下载