精华内容
下载资源
问答
  • VB窗体变大

    2013-05-10 11:58:04
    可以让窗体变大,界面也跟着变大,比较实用的一段程序代码
  • VB使用API函数实现动画窗体特效,窗体闪现动画,由小变大窗体动画,滑入窗体动画。程序调用AnimateWindow函数实现滑入窗体动画效果,调用AnimateWindow函数实现由小变大窗体动画效果,调用AnimateWindow函数实现窗体...
  • # 窗体设计器内的窗体和控件四周可大小伸缩框闪烁 已经尝试解决闪烁的问题,不过没有什么用,不管是SetStyle还是CreateParams都没有用,多半怀疑是动态创建导致的,因为TabControl和MenuItem还有ToolBox都重写...
  • vb贪食蛇源代码

    2012-04-21 16:52:54
    "果子后,蛇的身体会长,越长难度越。祝您好运!!", 0 + 64, "游戏规则" End Sub '该过程用于显示游戏开发信息 Private Sub cmdAbout_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As ...
  • VB6.0代码 实现控件随窗体变大变小功能.提供下参考思路.有测试样例.或许不是最好的办法.但是也提供种思路大家一起参考参考
  • VB 代码编写的带表针的时钟,具有夜晚彩色效果,美丽大方,钟表大小随窗体大小而
  • Ani 控件(182KB) 16,ft.zip 可用一行代码创建窗体边框和透明窗体的控件(19KB) 17,fsmsg20d.exe 窗体信息捕获控件(247KB) 18,fssc120d.exe 窗体滚动控件,当控件放不下时,它可以给您更的区域...
  • Ani 控件(182KB) 16,ft.zip 可用一行代码创建窗体边框和透明窗体的控件(19KB) 17,fsmsg20d.exe 窗体信息捕获控件(247KB) 18,fssc120d.exe 窗体滚动控件,当控件放不下时,它可以给您更的区域...
  • 那位能将下面的代码改一下,要求不论原图多,放进此框后,都要随此框大小相应放大或缩小:原代码如下:提示:在窗体上有二个按钮(放进图片和保存图片),另要引进一个CommonDialog控件.Dim OpenFileName As StringPrivate ...

    如何让放进框内的图片随框大小而变

    有一个图片框,可以随进放进新图片,替换旧图图片,但问题是放进的新图片无法随原框的大小,而放不满一个框或比框大.

    那位能将下面的代码改一下,要求不论原图多大,放进此框后,都要随此框大小相应放大或缩小:

    原代码如下:

    提示:在窗体上有二个按钮(放进图片和保存图片),另要引进一个CommonDialog控件.

    Dim OpenFileName As String

    Private Reg

    Private Sub Command1_Click()

    On Error Resume Next

    CommonDialog1.DialogTitle = "放进新图片"

    CommonDialog1.Filter = "所有支持的格式" + _

    "(*.bmp;*.jpg;*.gif;*.pcx;*.ico)|" + _

    "*.bmp;*.jpg;*.gif;*.pcx;*.ico)"

    CommonDialog1.ShowOpen

    If CommonDialog1.FileName <> "" Then

    If Err <> 32755 Then

    OpenFileName = CommonDialog1.FileName

    Picture1.Picture = LoadPicture(OpenFileName)

    End If

    End If

    End Sub

    Private Sub Command2_Click()

    Call Reg.RegWrite("HKLM\SOFTWARE\PIC\Lj", OpenFileName, "REG_SZ") '保存新图片

    End Sub

    Private Sub Form_Load()

    On Error Resume Next

    Set Reg = New IWshShell_Class

    If Reg.RegRead("HKLM\SOFTWARE\PIC\Lj") = "" Then

    Exit Sub

    End If

    Picture1.Picture = LoadPicture(Reg.RegRead("HKLM\SOFTWARE\PIC\Lj"))

    CommonDialog1.CancelError = True

    End Sub

    e35bcbe7d8bbc73a593a185732ad163d.gif5on3rLhw.rar

    (6.9 KB)

    如何让放进框内的图片随框大小而变

    展开全文
  • 网上很多资料并没有区分vb和vba,vb窗体的borderstyle属性可以设置为可调,但vba只有两个选项都是不可调的。 开始不能理解ms为什么要这样做,但最终还是接受了 现在有了这段小代码,嘿嘿,一切又
    [分享]vba窗体添加最大化最小化按钮,并且可以运行时调整大小[复制链接]
    
    网上很多资料并没有区分vb和vba,vb窗体的borderstyle属性可以设置为可调,但vba只有两个选项都是不可调的。
    开始不能理解ms为什么要这样做,但最终还是接受了
    现在有了这段小代码,嘿嘿,一切又变得简单了,ms也就那点小心思
    Option Explicit
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Const GWL_STYLE = (-16)
    Private Const WS_THICKFRAME As Long = &H40000 ’(恢复大小)
    Private Const WS_MINIMIZEBOX As Long = &H20000 ’(最小化)
    Private Const WS_MAXIMIZEBOX As Long = &H10000 ’(最大化)

    Private Sub UserForm_Initialize()
      Dim hWndForm As Long
      Dim IStyle As Long
      hWndForm = FindWindow("ThunderDFrame", Me.Caption)
      IStyle = GetWindowLong(hWndForm, GWL_STYLE)
      IStyle = IStyle Or WS_THICKFRAME ’还原
      IStyle = IStyle Or WS_MINIMIZEBOX ’最小化
      IStyle = IStyle Or WS_MAXIMIZEBOX ’最大化
      SetWindowLong hWndForm, GWL_STYLE, IStyle
    End Sub



    ,在窗体代码中加上以上这段,ok搞定!
    展开全文
  • 观察第三个窗口FORM01.FRM甚至还可以看出窗体内部的API声明及自定函数和(常)量内容等,而且它提供了一个准确的框架,这样一来就可以让您重建VB应用程序了,节省用户部分时间。另外,VBRezQ主要用于将网上下载...
  • VB程序!

    2014-02-23 15:31:34
    vb6中控件没有anchor与dock属性,窗体变大后原来要在resize中调整控件的move属性,否则就面目全非了.网上找到一些调整控件大小的代码,发现并不太适合自己,于是按照思路自己做了一个类似anchor属性的类模块。  ...

      vb6中控件没有anchor与dock属性,窗体变大后原来要在resize中调整控件的move属性,否则就面目全非了.网上找到一些调整控件大小的代码,发现并不太适合自己,于是按照思路自己做了一个类似anchor属性的类模块。

      代码如下:

      Option Explicit

      '设置控件Left,Top,Height,Width 类似Anchor属性

      '控件大小与位置

      Private Type cP

      Wp As Single

      Hp As Single

      Tp As Single

      Lp As Single

      End Type

      Private ccp() As cP

      Private iCIndex As Integer '控件的index

      Private colControl As New Collection

      Private frmOldWidth As Single '记录下原始窗口值宽与高

      Private frmOldHeight As Single

      Private lFrom As Form

      Public Sub InitControlSize(strCName As String)

      '存控件初始位置

      colControl.Add iCIndex, strCName

      ccp(iCIndex).Lp = lFrom.Controls(strCName).Left

      ccp(iCIndex).Tp = lFrom.Controls(strCName).Top

      ccp(iCIndex).Hp = lFrom.Controls(strCName).Height

      ccp(iCIndex).Wp = lFrom.Controls(strCName).Width

      iCIndex = iCIndex + 1

      End Sub

      Public Sub InitFromAllControl()

      '把所有控件初始位置大小都保存

      If lFrom Is Nothing Then Exit Sub

      If iCIndex <> 1 Then Exit Sub

      Dim myControl As Control

      For Each myControl In lFrom.Controls

      colControl.Add iCIndex, myControl.Name

      ccp(iCIndex).Lp = myControl.Left

      ccp(iCIndex).Tp = myControl.Top

      ccp(iCIndex).Hp = myControl.Height

      ccp(iCIndex).Wp = myControl.Width

      iCIndex = iCIndex + 1

      Next

      End Sub

      Public Sub ControlAnchor(strCName As String, _

      Optional bLeft As Boolean = False, _

      Optional bTop As Boolean = False, _

      Optional bHeight As Boolean = False, _

      Optional bWidth As Boolean = False)

      On Error Resume Next

      Dim fHorizontal As Single

      Dim fVertical As Single

      Dim index As Integer

      fHorizontal = lFrom.ScaleWidth - frmOldWidth '横坐标 对应 left、width属性

      fVertical = lFrom.ScaleHeight - frmOldHeight '纵坐标 对应 Top、Height属性

      index = colControl.Item(strCName) '从集合里取得控件的index

      If bLeft Then lFrom.Controls(strCName).Left = fHorizontal + ccp(index).Lp

      If bTop Then lFrom.Controls(strCName).Top = fVertical + ccp(index).Tp

      If bHeight Then lFrom.Controls(strCName).Height = fVertical + ccp(index).Hp

      If bWidth Then lFrom.Controls(strCName).Width = fHorizontal + ccp(index).Wp

      End Sub

      Public Property Set setFrom(ByVal sValue As Form)

      Set lFrom = sValue

      frmOldWidth = lFrom.ScaleWidth

      frmOldHeight = lFrom.ScaleHeight

      ReDim ccp(1 To lFrom.Controls.Count)

      End Property

      Private Sub Class_Initialize()

      iCIndex = 1

      End Sub

      Private Sub Class_Terminate()

      Set lFrom = Nothing

      End Sub

      调用方法:

      Option Explicit

      Dim myAnchor As New clsAnchor

      Private Sub Form_Load()

      Set myAnchor.setFrom = Me

      myAnchor.InitFromAllControl

      End Sub

      Private Sub Form_Resize()

      myAnchor.ControlAnchor "gridOrder", , , True, True

      myAnchor.ControlAnchor "Frame2", , , , True

      End Sub

      效果图:

      

      

     

      Collection集合效率不高,可以换成哈希表。

    展开全文
  • VB6.0在窗口中实现背景渐变,渐变可随窗口的大小变化自动填充,挺平滑的渐变,修改渐变可修改VB中的代码即可,本渐变不仅限于窗体背景,也可用于其它的窗口元素中,比如按钮和对话框中。
  • vb6中控件没有anchor与dock属性,窗体变大后原来要在resize中调整控件的move属性,否则就面目全非了.网上找到一些调整控件大小的代码,发现并不太适合自己,于是按照思路自己做了一个类似anchor属性的类模块。  ...

        vb6中控件没有anchor与dock属性,窗体变大后原来要在resize中调整控件的move属性,否则就面目全非了.网上找到一些调整控件大小的代码,发现并不太适合自己,于是按照思路自己做了一个类似anchor属性的类模块。

        代码如下:

               

    Option Explicit
    '设置控件Left,Top,Height,Width      类似Anchor属性
    
    '控件大小与位置
    Private Type cP
      Wp As Single
      Hp As Single
      Tp As Single
      Lp As Single
    End Type
    
    Private ccp() As cP
    Private iCIndex As Integer          '控件的index
    Private colControl As New Collection
    Private frmOldWidth As Single       '记录下原始窗口值宽与高
    Private frmOldHeight As Single
    Private lFrom As Form
    
    Public Sub InitControlSize(strCName As String)
    '存控件初始位置
            colControl.Add iCIndex, strCName
            
            ccp(iCIndex).Lp = lFrom.Controls(strCName).Left
            ccp(iCIndex).Tp = lFrom.Controls(strCName).Top
            ccp(iCIndex).Hp = lFrom.Controls(strCName).Height
            ccp(iCIndex).Wp = lFrom.Controls(strCName).Width
            
            iCIndex = iCIndex + 1
    End Sub
    Public Sub InitFromAllControl()
    '把所有控件初始位置大小都保存
        If lFrom Is Nothing Then Exit Sub
        If iCIndex <> 1 Then Exit Sub
        
        Dim myControl As Control
        For Each myControl In lFrom.Controls
            colControl.Add iCIndex, myControl.Name
            ccp(iCIndex).Lp = myControl.Left
            ccp(iCIndex).Tp = myControl.Top
            ccp(iCIndex).Hp = myControl.Height
            ccp(iCIndex).Wp = myControl.Width
            iCIndex = iCIndex + 1
        Next
    End Sub
    
    Public Sub ControlAnchor(strCName As String, _
                                                Optional bLeft As Boolean = False, _
                                                Optional bTop As Boolean = False, _
                                                Optional bHeight As Boolean = False, _
                                                Optional bWidth As Boolean = False)
     On Error Resume Next
            Dim fHorizontal As Single
            Dim fVertical As Single
            Dim index As Integer
            
            fHorizontal = lFrom.ScaleWidth - frmOldWidth        '横坐标 对应 left、width属性
            fVertical = lFrom.ScaleHeight - frmOldHeight          '纵坐标 对应 Top、Height属性
            index = colControl.Item(strCName)                           '从集合里取得控件的index
            
    
            If bLeft Then lFrom.Controls(strCName).Left = fHorizontal + ccp(index).Lp
            If bTop Then lFrom.Controls(strCName).Top = fVertical + ccp(index).Tp
            If bHeight Then lFrom.Controls(strCName).Height = fVertical + ccp(index).Hp
            If bWidth Then lFrom.Controls(strCName).Width = fHorizontal + ccp(index).Wp
    
    
    End Sub
    Public Property Set setFrom(ByVal sValue As Form)
            Set lFrom = sValue
            frmOldWidth = lFrom.ScaleWidth
            frmOldHeight = lFrom.ScaleHeight
            ReDim ccp(1 To lFrom.Controls.Count)
    End Property
    
    Private Sub Class_Initialize()
        iCIndex = 1
    End Sub
    
    Private Sub Class_Terminate()
            Set lFrom = Nothing
    End Sub

     

        调用方法:

    Option Explicit
    Dim myAnchor As New clsAnchor
    
    Private Sub Form_Load()
        Set myAnchor.setFrom = Me
        myAnchor.InitFromAllControl
    End Sub
    
    Private Sub Form_Resize()
         myAnchor.ControlAnchor "gridOrder", , , True, True
         myAnchor.ControlAnchor "Frame2", , , , True
    End Sub

       效果图:

            

       

      Collection集合效率不高,可以换成哈希表。

    转载于:https://www.cnblogs.com/xiaoguanqiu/p/3149513.html

    展开全文
  • VB一直以来被认为有以下优缺点:优点是上手快、开发效率高;缺点是能力有限,运行效率低。这正是有些软件把VB做为首选...那怕一行代码不写,仅仅起动运行一个空窗体这样简单动作,VB在底下就为我们做了大量复杂的工作
  • 当我们在“窗体设计”区域中双击鼠标后就会弹出代码编辑窗口,也可以通过选择“视图”菜单中的“代码窗口”命令弹出代码编辑窗口以进行程序代码的编写。 在代码编辑窗口的左下角有两个按钮,其作用是设置查看代码的...
  • VB编程资源大全

    2007-10-17 20:47:23
    menuclose.zip 对系统菜单进行操作,隐藏“关闭”菜单(2KB) 69,getwndmsg.zip 俘获系统消息,系统菜单为自己的菜单(4KB) 70,ownmenu.zip 极酷的自画菜单,可以和VB6的右键菜单比美(22KB) 71,...
  • VB6.0动态加载ActiveX控件漫谈 深圳 罗汉军 罗德昌 熟悉VB的朋友对使用ActiveX控件一定不会陌生,众多控件极大地方便了编程, 但唯一的缺陷是不能动态加载控件,...---- 本代码在Win98、VB6.0(英文版)上编译、运行。
  • vb Script参考文档

    2009-07-28 22:13:02
    PropertyGet 语句 声明在窗体属性过程中获取(返回)属性值的名称,参数和代码。 PropertyLet 语句 声明在窗体属性过程中指定属性值的名称,参数和代码。 PropertySet 语句 声明在窗体属性过程中设置引用到对象的...
  • 微软 VB2010 源码包

    2013-05-22 02:21:18
    还演示如何在不必编写代码的情况下创建数据绑定窗体,以及如何连接到数据库文件 ObjectBinding:演示如何将控件绑定到数据库组件以外的对象 OCS:演示如何使用 Microsoft Synchronization Services for ADO.NET ...
  • SkinSharp作为通用换肤库,只需要在您的程序中添加一行代码,就能让您的界面焕然一新,并拥有多种主题风格和色调的动态切换功能以及Aero透明边框特效。 SkinSharp采用独特的软件界面开发技术,让原本复杂繁琐的...
  • MSChart的宽度和高度是随窗体变化而变化的,当窗体的大小改变或最小化、最大化后,曲线的显示就正常了,刚刚还是黑色的几个点,变成了设定的红色,求高手指点原因,及自动显示正常的方法?我试过在绘图之后改变...
  • 这个动画文本控件源代码有点类似 Flash文字特效,唯一的是这个控件完全VB代码,没有其他第三方资源,可以同屏显示多种文字特效,如水平文字滚动、垂直文字滚动、旋转文字、文字颜色变换旋转、文字大小缩放。...
  • (12KB) 75,subcls328.zip 一个子类的源代码,包含菜单、MDI窗体背景等8个演示程序(46KB) 76,taskbar.zip 把应用程序的图标放在任务栏的右侧,是一个控件源代码(6KB) 77,vbthread.zip 用VB实现...
  • 是企业的日常运作不可缺少的一部分,其充分的体现了自动化的优越性,让繁琐的客户、合同、产品管理得轻松。本销售管理系统容易上手,为中小企业管理带来极的方便。 该系统是由Visual Basic.NET编程技术开发出来...
  • 9.7.3 使屏幕暗 第10章 字体和文本 10.1 字体概述 10.1.1 字体及其分类 10.1.2 字体的宽度与大小 10.2 字体家族与字体属性 10.3 字体资源 10.3.1 字体的添加和删除 10.3.2 程序举例 10.4 字体对象 ...
  • ASP.NET精品课程+源代码

    千次下载 热门讨论 2009-01-05 20:15:51
    ASP.NET是微软发展的新的体系结构.NET重要的一部分,其中全新的技术架构会让每个人的编程得更简便。ASP.NET 是一种建立在通用语言上的程序构架,能被用Web服务器来建立强大的Web应用程序。ASP.NET提供许多比以往的...
  • Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java...

空空如也

空空如也

1 2 3 4
收藏数 66
精华内容 26
关键字:

vb窗体变大代码