登录
首页 » VB源码 » VB 控件随窗体自动调整大小

VB 控件随窗体自动调整大小

于 2023-02-03 发布 文件大小:2.30 kB
0 212
下载积分: 2 下载次数: 1

代码说明:

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   此段代码被封装在按钮事件中,请参见源代码文件。

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

发表评论

0 个回复

  • vb禁用窗体最大化、最小化和关闭快捷菜单
    vb禁用窗体最大化、最小化和关闭快捷菜单,禁用最大化、最小化不可用,重点实现了禁止关闭窗口的功能,禁止后窗口上的关闭按钮变成灰色不可点击了,在实现方面,核心代码如下:   Private Sub Form_Load()    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_COLSE, MF_REMOVE//禁止关闭    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MAXIMIZE, MF_REMOVE//禁止最大化    RemoveMenu GetSystemMenu(Me.hWnd, 0), SC_MINIMIZE, MF_REMOVE//禁止最小化   End Sub
    2022-08-06 00:49:36下载
    积分:1
  • VB 数据库连接通用类
    VB 数据库连接通用类,这个数据库连接类支持的版本比较多了,不过有些老了,但是大致的连接原理都一样,支持Access95、Access2000、SQLServer、Dbfiles、Excel等各类存储型数据库的连接方法,并制作成了窗口的形式,以及测试程序,可以打开此数据库测试连接方法。
    2023-04-15 17:45:04下载
    积分:1
  • VB.NET 轻松提速打字游戏
    VB.NET 轻松提速打字游戏源代码,同时调用了MID背景音乐文件,边打字边听音乐。程序功能:打字时间设置、倒计时、打字难易程序设置、背景音乐和文字设置、游戏速度设置、窗口背景颜色设置、音乐开关设置等,其实这是一个打字小游戏,从窗口顶部会随机掉下来字母,敲击键盘上对应的字母键即可消除该字符,算打字成功。本趣味打字帮助大家面对键盘只会‘一指弹’炼成‘弹指神功’的炉火纯清的地步。   在编写时保证了窗体大小发生变化时保证窗体下面几个界面元素不会混乱,同时也调用了Windows编程库,比如Windows MediaPlayer的相关组件AxInterop.WMPLib.dll/Interop.WMPLib.dll,用于播放背景声音。程序中的随机生成器,即每次产生的随机种子不一样,很有用,用来生成随机掉下来的字母。
    2022-04-12 19:44:43下载
    积分:1
  • VB6.0演示的AutoSize实例
    VB6.0演示的AutoSize实例,自动改变图片框的大小以显示图形全部内容,当图片框比图形小时,图形超出部分不被显示,减少图片框高度,使图片框小于图形。
    2022-08-07 04:59:17下载
    积分:1
  • vb 判断经历多少个工作日
    vb 判断经历多少个工作日,在两个日期选择器中选择日期值,然后判断选定的两个日期之间相差了多少天,判断两个定点之间的天数,比较基础,但也很有必要学习,时间和日期计算在很多软件中都要用到,这个例子相对简单些。大致代码:   If IsDate(Text1) = True And IsDate(Text2) = True Then    Dim i As Integer    i = gongzuori(CDate(Text1), CDate(Text2))    Label3.Caption = "经历" & i & "个工作日"   Else    MsgBox "请输入日期型"   End If
    2022-03-03 21:14:10下载
    积分:1
  • VB6.0 获取网络连接信息
    VB6.0 获取网络连接信息,在如图所示的窗口中,点击按钮即可获取显示本机的网络连接信息,这些信息包括:   是否通过LAN连接、是否通过Modem连接、是否通过Proxy连接、是否在线连接、是否安装了网络RAS等信息。获取完成最后可提示:“系统通过LAN与Internet连接,系统安装了远程访问服务”。
    2023-05-26 06:40:02下载
    积分:1
  • 文件夹复制VB6.0实例
    文件夹复制VB6.0实例源码,这里用了一个用户自定义函数,此函数可以出现一个对话框,并返回所选择的路径,若没有选择返回("")。模拟了Windows系统的文件夹模拟功能,看上去比较低级,只是通过这个功能,熟悉一些VB与文件操作的函数用法。
    2022-03-05 20:29:32下载
    积分:1
  • VB6.0 添加、修改、删除数据库指定表
    VB6.0 添加、修改、删除数据库指定表,添加、修改、删除作者表,VB6.0 添加、修改、删除数据库指定表。
    2022-08-15 01:24:59下载
    积分:1
  • VB将程序图标添加到托盘
    VB将程序图标添加到托盘,任务栏的系统托盘上有本程序的图标,并可通过图标的右键菜单,调出程序主窗口、退出关闭程序等功能,是一种比较常见的添加系统托盘的示例。
    2022-03-24 10:49:35下载
    积分:1
  • telnet VB
    一个不错的VB TELNET实现源码,虽然很简单,但是对于新手来说比较容易学习
    2023-02-26 22:25:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载