翰文个人计算机学习网
  • 翰文快讯
  • 翰文PC快讯
  • 综合软件区
  • 操作系统
  • 注册表解析
  • Windows系列
  • Unix/Linux
  • 其他系统
  • 应用软件
  • 微软MS Office
  • WPS Office
  • 多媒体软件
  • 图像处理
  • Photoshop
  • Painter
  • Illustrator
  • CorelDRAW
  • 三维空间
  • AutoCAD
  • 3DMAX
  • 3DMAYA
  • 硬件资源
  • 攒机指南
  • 硬件超频
  • 维修指南
  • 网络资源
  • 在线通讯
  • 网上冲浪
  • 浏览器中心
  • 网络故障解析
  • 病毒资料
  • 病毒通报
  • 病毒防治
  • 病毒常识
  • 黑客技巧
  • SQL/MySQL
  • Oracle
  • Delphi
  • 编程资源
  •  C/C#/C++/VC++/VC.NET
  •  Basic/VB/VB.NET/VBScript
  •  FoxBasic/FoxPro/VF/VF.NET
  •  Java/JavaScript
  • PowerBuilder
  • 热门词:
  • 翰文计算机学习网首页
  • >
  • Basic/VB/VB.NET/VBScript
  • >
  • VB中保存窗口位置来增加专业性
  • VB中保存窗口位置来增加专业性

  • 资源来源:
  • HW-PCS.ORG
  • 资源作者:
  • 翰文计算机学习网
  • 人气指数:
  • [3510]
  • 关键词:计算机

      GetSetting和SaveSetting函数对储存在HKEY_CURRENT_USER/Software/VB和VBAProgramSettings下面的注册值进行读和写。由于值被储存在HKEY_CURRENT_USER之下,因此针对计算机的每一个用户的大小和位置参数也被储存了进去。
    通过在你的Form_Load和Form_Unload事件中加入下面的代码,你就可以保存你的窗口的大小和位置。

    PrivateSubForm_Load()
    Me.Width=GetSetting(App.Title,Me.Name,"Width",7200)
    Me.Height=GetSetting(App.Title,Me.Name,"Height",6300)
    Me.Top=GetSetting(App.Title,Me.Name,"Top",100)
    Me.Left=GetSetting(App.Title,Me.Name,"Left",100)
    EndSub

    PrivateSubForm_Unload(CancelAsInteger)
    CallSaveSetting(App.Title,Me.Name,"Width",Me.Width)
    CallSaveSetting(App.Title,Me.Name,"Height",Me.Height)
    CallSaveSetting(App.Title,Me.Name,"Top",Me.Top)
    CallSaveSetting(App.Title,Me.Name,"Left",Me.Left)
    EndSub

      这段代码使用窗体名称来唯一地确定注册之中的每一个窗体。如果同一个窗体需要被储存在多个位置信息之中的话你可以使用不同的标识符。

    感谢您对翰文计算机学习网的支持

  • 关于我们
  • 联系方式
  • 成功案例
  • 技术报价
  • RSS索引
  • 网站地图
  • 翰文电脑学习网
  • MSN:LNDDYGYC9@HOTMAIL.COM Powered by 翰文个人计算机学习网 版权所有,未经允许不得转载
    ICP备案号码:[沪ICP备12020678号] Copyright 2008-2020 HW-PCS.ORG, All Rights Reserved.