精华内容
下载资源
问答
  • VB实现窗口文字大小随窗体大小变化,实现了窗体文字的随窗口大小自适应改变,只要用鼠标拖动窗口的大小,即可改变窗口内所属控件的文字大校自适应大小的窗口框架,注意,把需要随窗体改变大小的空间的tab属性设置成 ...
  • 内容索引:VB源码,界面编程,记忆窗体 一款VB记忆窗体的核心代码部分,重新优化了一下编写为一个独立的小程序,它可以保存VB窗体退出时的大小,具有记忆功能,你可以试着在退出时拖动改变窗体的大小,在下次运行时,...
  • VB 禁止调整MDI窗体大小,窗体文件一共是2个,一个是主窗口文件,一个是MDI窗口文件,实现禁止改变窗口大小的功能,我们可以在MDIForm中当窗体加载时,,执行以下代码:  Private Sub MDIForm_Load()  Style = ...
  • 内容索引:VB源码,界面编程,控件 VB窗体控件元素自适应窗体大小变化的设置实例,也就是让VB窗体中的控件元素,比如TextBoX之类的,会随依附窗体的大小变化而变化 ,窗体被拖大,它会跟着大,窗体小则它也小,实现本...
  • vb,无边框 拖动窗体大小, 移动窗体,右下角拖动,右边拖动下边拖动 简单明了
  • VB 控件随窗体自动调整大小,像窗口中的ListBox、Image、FileListBox、VB.Frame控件等,都可以随窗口的大小变化而变化,当用户拖动改变窗口大小时,这些控件的大小也会随之改变,这个功能的实现得益于自定义函数Form...
  • VB 设置窗体在屏幕中的位置

    热门讨论 2010-06-07 15:43:51
    VB 设置窗体在屏幕中的位置 VB 设置窗体在屏幕中的位置
  • vb.net控件随窗口大小调整
  • 窗体中添加一个计时器Timer,代码如下: Option Explicit Private Declare Function GetWindowRect Lib “user32” (ByVal hwnd As Long, lpRect As Rect) As Long Private Type Rect Left As Long Top As Long ...

    在窗体中添加一个计时器Timer,代码如下:
    Option Explicit
    Private Declare Function GetWindowRect Lib “user32” (ByVal hwnd As Long, lpRect As Rect) As Long
    Private Type Rect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
    End Type
    Dim Moveform As Rect

    Private Sub Form_Load()
    Me.AutoRedraw = True
    Timer1.Interval = 10
    End Sub

    Private Sub Timer1_Timer()
    GetWindowRect Me.hwnd, Moveform
    Me.Cls
    Me.Print “Left:” & Moveform.Left * 15 & vbCrLf & “Top:” & Moveform.Top * 15 & vbCrLf & “Width:” & (Moveform.Right - Moveform.Left) * 15 & vbCrLf & “Height:” & (Moveform.Bottom - Moveform.Top) * 15
    End Sub

    展开全文
  • VB 6.0中灵活设置窗体加载的位置和窗体大小
  • 程序功能:禁止窗体移动和改变大小 原理:通过删除系统菜单完成
  • VB窗体控件元素自适应窗体大小变化的设置实例,也就是让VB窗体中的控件元素,比如TextBoX之类的,会随依附窗体的大小变化而变化 ,窗体被拖大,它会跟着大,窗体小则它也小,实现本功能,将更有利于控件实用性的发挥...
  • 使vb窗体可以自适应屏幕分辨率的大小
  • 内容索引:VB源码,界面编程,字体,窗体实例 改变文本框字体的大小和样式,VB窗体实例,调用Windows的字体面板,通过此面板你可对布局在窗体上的文本框控制字体进行控制,改变字体的样式、大孝删除线、下划线、字符集...
  • 改变文本框字体的大小和样式,VB窗体实例,调用Windows的字体面板,通过此面板你可对布局在窗体上的文本框控制字体进行控制,改变字体的样式、大孝删除线、下划线、字符集、字型等。运行的效果如上图所示。
  • VB加载窗体属性设置后保存参数,适用于VB6.0的开发中,本源码功能介绍:  通过对配置文件的操作  1、判断程序是否异常关闭  2、实现使用次数的统计  3、记录窗体大孝位置  4、修改程序标题
  • Dim BF As BLENDFUNCTION, lBF As Long Const AC_SRC_OVER = &H0 Set Frm = Fm Set Panel = Fm.Controls.Add(“vb.PictureBox”, “Panel”) Panel.AutoRedraw = True Panel.AutoSize = True Panel.Picture = Pic ...

    在这里插入图片描述
    '将下面的代码放到标准模块中:
    Option Explicit
    Private Declare Function AlphaBlend Lib “msimg32.dll” (ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal hdc As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal lInt As Long, ByVal BLENDFUNCT As Long) As Long
    Private Declare Sub RtlMoveMemory Lib “kernel32.dll” (Destination As Any, Source As Any, ByVal Length As Long)
    Private Type BLENDFUNCTION
    BlendOp As Byte
    BlendFlags As Byte
    SourceConstantAlpha As Byte
    AlphaFormat As Byte
    End Type
    Public Pic As New StdPicture
    Dim Panel As PictureBox
    Dim Frm As Form

    Public Sub Image_Scaling(P As Object) ’ 图片缩放
    Di

    展开全文
  • VB窗体控件大小随窗体大小变化自動調整 有时窗体变化后,如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦,下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。 在Form的Resize事件中...
  • VB改变窗体的文字大小和样式,将窗口中的文字改成黑体或宋体,另外改变字号大小,一个小技巧吧,窗体中的字体对窗体的整体美观效果起到很大作用,改变字体可以改变外观,让用户自定义窗体也需要用到这种小技巧。
  • VB6中控件窗体大小自动变化 非常好用
  • 控件按比例随窗体大小改变而变化.控件大小不会因为窗体最大化而改变布局,不会影响美观
  • VB窗口左右分栏代码,实现左右分栏,拖动改变大小、比例
  • 从CSDN中下载,并进行完善,可以设置菜单颜色和字体大小,增加了分隔线功能、区分不可用菜单颜色
  • 内容索引:VB源码,界面编程,窗体大小 限制窗体尺寸大小VB代码实例,并将窗体设置在最顶层显示,这个功能很流行啊,你很多播放器都有这功能。VB动态限制窗体大小,限制在一定的尺寸内,比如400*400像素,要知道...
  • VB-显示窗口的坐标和大小源码 VB-显示窗口的坐标和大小源码
  • 控件大小窗体的改变而改变VB6.0源代码.rar
  • Me.Left + 10) OrElse (e.Location.Y > Me.Height + Me.Top + 10) Then isMouseDown = False End If '设定好方向后,调用下面方法,改变窗体大小 ResizeWindow() End Sub 自定义ResizeWindow()函数 Private Sub ...

    原文地址:
    http://www.tiancao.net/blogview.asp?logID=2183&cateID=4

    'API定义部分 → Form1_load事件上面 →Form1 Class事件内
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
                                                  ByVal hwnd As IntPtr, _
                                                  ByVal wMsg As Integer, _
                                                  ByVal wParam As Integer, _
                                                  ByVal lParam As Integer) _
                                                  As Boolean
    Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" () As Boolean
    Const WM_SYSCOMMAND = &H112
    Const SC_MOVE = &HF010&
    Const HTCAPTION = 2
    Dim isMouseDown As Boolean = False
    Dim direction As MouseDirection = MouseDirection.None
    Dim mouseOff As Point
    Public Enum MouseDirection
        Herizontal 
        Vertical
        Declining
        None
    End Enum
    

    Form1_MouseDown事件

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
            mouseOff = New Point(-e.X, -e.Y)
            If e.Location.X >= Me.Width - 5 AndAlso e.Location.Y > Me.Height - 5 Then
                isMouseDown = True
            ElseIf e.Location.X >= Me.Width - 5 Then
                isMouseDown = True
            ElseIf e.Location.Y >= Me.Height - 5 Then
                isMouseDown = True
            Else
                Me.Cursor = Cursors.Arrow
                '改变鼠标样式为原样
                isMouseDown = False
                '鼠标移动事件
                ReleaseCapture()
                SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
            End If
    End Sub
    

    Form1_MouseMove事件

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
            'ReleaseCapture()
            'SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
            '鼠标移动到边缘,改变鼠标的图标
            If e.Location.X >= Me.Width - 5 AndAlso e.Location.Y > Me.Height - 5 Then
                Me.Cursor = Cursors.SizeNWSE
                direction = MouseDirection.Declining
            ElseIf e.Location.X >= Me.Width - 5 Then
                Me.Cursor = Cursors.SizeWE
                direction = MouseDirection.Herizontal
            ElseIf e.Location.Y >= Me.Height - 5 Then
                Me.Cursor = Cursors.SizeNS
                direction = MouseDirection.Vertical
            Else
                '否则,以外的窗体区域,鼠标星座均为单向箭头(默认)             
                Me.Cursor = Cursors.Arrow
            End If
            If e.Location.X >= (Me.Width + Me.Left + 10) OrElse (e.Location.Y > Me.Height + Me.Top + 10) Then
                isMouseDown = False
            End If
    
            '设定好方向后,调用下面方法,改变窗体大小  
            ResizeWindow()
            
    End Sub
    

    自定义ResizeWindow()函数

    Private Sub ResizeWindow()
    
            If Not isMouseDown Then
                Return
            End If
            If direction = MouseDirection.Declining Then
                'Me.Cursor = Cursors.SizeNWSE
                '改变宽度
                Me.Width = MousePosition.X - Me.Left + 5
                Me.Height = MousePosition.Y - Me.Top + 5
            ElseIf direction = MouseDirection.Herizontal Then
                'Me.Cursor = Cursors.SizeWE
                '改变宽度
                Me.Width = MousePosition.X - Me.Left + 5
            ElseIf direction = MouseDirection.Vertical Then
                'Me.Cursor = Cursors.SizeNS
                '改变高度
                Me.Height = MousePosition.Y - Me.Top + 5
            Else
                '鼠标不在窗口右和下边缘,把鼠标打回原型
                Me.Cursor = Cursors.Arrow
                isMouseDown = False
            End If
    End Sub
    

    Form1_MouseUp事件

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
            Console.WriteLine("松开鼠标")
            isMouseDown = False
            direction = MouseDirection.None
            If isMouseDown Then
                isMouseDown = False
            End If
    End Sub
    
    展开全文
  • VB窗体的窗体的属性及说明

    万次阅读 2018-02-26 18:57:43
    放了寒假呆在家里,我爸比较喜欢...最后我想到了用VB来制作,发现用VB编写一些小型程序还是很方便的。 程序样式如下: 在这里我整理了一些关于窗口属性的介绍,如下: Name 窗体的名称 ActiveControl 返回焦点...

    放了寒假呆在家里,我爸比较喜欢周易里的一些东西,于是问我能不能帮助他编写一个小程序来算卦。我想了想发现如果使用c语言直接做出来的页面太简陋,更美观的话需要一些API,而java也好久没有用过很生疏了。最后我想到了用VB来制作,发现用VB编写一些小型程序还是很方便的。

    程序样式如下:

    在这里我整理了一些关于窗口属性的介绍,如下:

    Name 窗体的名称

    ActiveControl 返回焦点所在的控件,该属性设计阶段不可用,运行时只读。

    Appearance外观效果,取值为:0 平面1 3D(立体)

    AutoRedraw是否自动刷新或重画窗体上所有图形[获得或设置从绘图

    (graphics)方法到一个持久性位图的输出],取值为:True False

    BackColor 背景颜色,可从弹出的调色板选择。

    BorderStyle设置边界类型,取值为:0 None(无边界框架)1 FixedSingle(窗口大小固定不变的单线框架)2 Sizable(窗口大小可变的标准双线框架)3 FixedDialog(窗口大小固定的对话框窗体)4 FixedToolWindow(窗口大小固定的工具箱窗体)5 Sizable ToolWindow(窗口大小可变的工具箱窗体)

    Caption 窗体的标题

    ClipControls决定Paint 事件的graphics 方法是重画整个对象,还是重画新显示的区域。取值为:True 或False

    ControlBox是或有控制框, 取值为:True 有False 无

    DrawMode设定窗体上绘图(graphics 方法),Shape,Line 等控件的输出外观,有16 种可选:1 黑色2 非或笔,设置值15 的反相3 与非笔,背景色以及画笔反相二者共有颜色的组合4 非复制笔,设置值13 的反相5 与笔非,画笔以及显示色反相二者共有颜色的组合6 反相,显示颜色反相7 异或笔,画笔颜色以及显示颜色的异或8 非与笔,设置值9 的反相9 与笔,画笔以及显示色二者共有颜色的组合10 非异或笔,设置值7 的反相11 无操作,该设置实际上是不画图12 或非笔,显示颜色与画笔颜色反相的组合13 复制笔,用ForeColor 属性指定的颜色,此为默认值14 或笔非,画笔颜色与显示颜色反相的组合15 或笔,画笔颜色与显示颜色的组合16 白色

    DrawStyle设定绘图相关方法使用的直线样式, 有7 种可选:0 实线,此为默认值1 虚线2 点线3 单点划线4 双点划线5 无线6 内部实线

    DrawWidth 设定绘图相关方法使用的直线宽度Enabled是或把鼠标或键盘事件发送到窗体,取值为:True 可用False 不可用

    FillColor 填充颜色, 可从弹出的调色板选择。

    FillStyle填充样式, 有8 种可选:0 全部填充1 透明,此为默认值2 水平直线3 竖直直线4 上斜对角线5 下斜对角线十字线7 交叉对角线

    Font 字型,可从弹出的对话框选择字体,大小和风格

    FontTransparent输出数据是否允许重叠(获得或设置一个值,决定是否显示窗体,打印机或PictureBox 上的背景文本/图形)。取值为:True 或False

    ForeColor 前景颜色,可从弹出的调色板选择。

    HasDC决定是否为该控件分配了唯一的显示上下文。取值为:True 或False

    Height 窗体的高度

    HelpContextID 指定一个对象的缺省帮助文件上下文标识符

    Icon 为窗体设计图标,该图标位于标题栏的左端

    KeyPrevier获得或设置是否在激活对象的上的控件的键盘事件之前,优先激活对象键盘事件。取值为:True 或False

    Left 窗体距屏幕左边界的距离

    LinkMode获得或设置用于DDE 会话的链接类型并激活连接,取值为:0 None

    SourceLinkTopic 获得或设置目标控件的源应用程序和主题

    MaxButton窗体右上角最大化按钮是否显示,运行时只读, 取值为:True 显示False 不显示

    MDIChild是否为MDI 窗体的子窗体, 取值为:True 为MDI 窗体的子窗体False 否MinButton窗体右上角最小化按钮是否显示,运行时只读, 取值为:True 显示False 不显示

    MouseIcon MousePointer=99 时,设定一个自定义的鼠标图标

    MousePointerMoveable是否可以移动窗体, 取值为:True 可以移动False 不可以移动

    NegotiateMenus决定是否将对象的菜单合并到该窗体的菜单栏上。取值为:True 或False

    OLEDropMode获得或设置该对象是否能作为一个OLE 放下目标, 取值为:0 None(无)1 Manual(手动)

    Palette获得或设置一个图象,包含了当PaletteMode 被设置为Custom 时用于调色板的对象。

    PaletteMode获得或设置一个值,决定对于对象的控件使用哪个调色板。取值为:0 Halftone1 UseZOrder2 Custom

    Picture 窗体背景图片

    RightToLeft文本书写是否自左向右。取值为:TrueFalse 自右向左

    ScaleHeight 自定义坐标系的纵坐标轴的高度

    ScaleLeft 自定义坐标系的左边界起点的横坐标

    ScaleMode获得或设置一个值,指示当使用graphics 方法或可定位的控件时,自定义坐标系的单位, 有8 种可选:0 自定义1 表示单位为twip(缇),每英寸=1440 缇,每厘米=567 缇2 表示单位为point(磅) ,每英寸=72 磅,每磅=20 缇3 表示单位为像素,是监视器或打印机分辨率的最小单位4 表示单位为字符,每个水平单位为120 缇,每个垂直单位为240 缇5 表示单位为in(英寸)6 表示单位为mm(毫米)7 表示单位为cm(厘米)

    ScaleTop 自定义坐标系的上边界起点的纵坐标

    ScaleWidth 自定义坐标系的横坐标轴的宽度

    ShowInTaskbar窗体或MDI 窗体是否出现在Windows95 的任务栏。取值为:True 出现False 不出现

    StartUpPosition窗体第一次出现的位置, 有4 种可选:0 没有指定初始位置1 设定在所属项目的中央2 设置在屏幕的中央3 设置在屏幕的左上角Tag 存储程序所需的附加数据Top 窗体距屏幕顶部边界的距离

    Visible窗体是否可见, 取值为:True 该对象可见False 该对象不可见

    WhatsThisButton获得或设置是否在一个窗体或MDI 窗体的标题上显示这是什么按钮。取值为:True 或False

    WhatsThisHelp获得或设置是否在上下文相关帮助中, 使用Windows95 帮助或主帮助窗口提供的这是什么弹出菜单。取值为:True 或False

    Width 窗体的宽度

    WindowStart获得或设置一个窗体窗口运行时的可见状态, 取值为:0 窗体正常状态1 窗体最小状态2 窗体最大状态

    展开全文
  • vb如何设置窗体与子窗体——MDI窗体

    千次阅读 热门讨论 2020-06-02 11:01:02
    目前我理解的父窗体与子窗体的关系是:父窗体包含子窗体。 想要达到这样的效果,首先要新建一个父窗体(MDI窗体)。 MDI窗体上又不允许放置PictureBox以外的控件,但是Picture上面就能放置控件,所有只要先在窗体...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 18,669
精华内容 7,467
关键字:

vb设置窗体大小