精华内容
下载资源
问答
  • 最近同事开发中经常遇到使用字符串和ASCII对照,而且需要随时调整对话框大小字体也需要跟着改变,遂向我提问,正好闲来无事,顺手用VB给做了个小程序,很典型的VB开发,对于小白来说正好可以学习一下创建VB工程,...
  • 由于combobox控件height属性不可更改,而只可根据字体大小自动调整,因此单纯将字体按比例缩放来实现。但通过这种方法改变控件大小会使调整结果不精确,跟label并排放置,放大到一定程度后差异明显。请问如何才能使...
  • Option ExplicitPrivate ObjOldWidth As Long '保存窗体的原始宽度Private ObjOldHeight As Long '保存窗体的原始高度Private ObjOldFont As Single '保存窗体的原始字体比 Private Sub Form_Resize() ...

    代码如下:

    Option Explicit
    Private ObjOldWidth     As Long       '保存窗体的原始宽度
    Private ObjOldHeight     As Long     '保存窗体的原始高度
    Private ObjOldFont     As Single     '保存窗体的原始字体比

    Private Sub Form_Resize()
        '确保窗体改变时控件随之改变
        Call ResizeForm(Me)
    End Sub

    Private Sub Form_Load()
        '在程序装入时必须加入
        Call ResizeInit(Me)
    End Sub

    '模块

    '在调用ResizeForm前先调用本函数
    Public Sub ResizeInit(FormName As Form)
        Dim Obj     As Control
        ObjOldWidth = FormName.ScaleWidth
        ObjOldHeight = FormName.ScaleHeight
        ObjOldFont = FormName.Font.Size / ObjOldHeight
        On Error Resume Next

        For Each Obj In FormName
            Obj.Tag = Obj.Left & "   " & Obj.Top & "   " & Obj.Width & "   " & Obj.Height & "   "
        Next Obj

        On Error GoTo 0

    End Sub

    '按比例改变表单内各元件的大小,
    '在调用ReSizeForm前先调用ReSizeInit函数
    Public Sub ResizeForm(FormName As Form)

        Dim Pos(4)     As Double
        Dim i     As Long, TempPos       As Long, StartPos       As Long
        Dim Obj     As Control
        Dim ScaleX     As Double, ScaleY       As Double

        ScaleX = FormName.ScaleWidth / ObjOldWidth
        '保存窗体宽度缩放比例
        ScaleY = FormName.ScaleHeight / ObjOldHeight
        '保存窗体高度缩放比例
        On Error Resume Next

        For Each Obj In FormName
            StartPos = 1

            For i = 0 To 4
                '读取控件的原始位置与大小
                TempPos = InStr(StartPos, Obj.Tag, "   ", vbTextCompare)

                If TempPos > 0 Then
                    Pos(i) = Mid$(Obj.Tag, StartPos, TempPos - StartPos)
                    StartPos = TempPos + 1
                Else
                    Pos(i) = 0
                End If

                '根据控件的原始位置及窗体改变大
                '小的比例对控件重新定位与改变大小
                Obj.Move Pos(0) * ScaleX, Pos(1) * ScaleY, Pos(2) * ScaleX, Pos(3) * ScaleY
                Obj.Font.Size = ObjOldFont * FormName.ScaleHeight

            Next i

        Next Obj

        On Error GoTo 0

    End Sub



    摘自:网络整理

    相关参考

    关于三个概念:ActiveXOLECOM

    注册ActiveX控件的几种方法() 分享

    VB 单击ListView控件某列表头进行排序

    控件关文章:

    VB表格控件总览与例程分析

    VB 设置控件边框颜色(如:ListTextPicture)

    VB控件注册 - 利用资源文件将dllocx打包进exe文件

    VB的,经常注册和反注册OCX控件和DLL

    VB表格控件总览与例程分析

    根据窗体自动调整窗体内控件大小 注:实用,可以直接引用

    用户控件制作讲解与实例

    VB制作OCX控件的步骤

    【引用】窗口处理技巧大全 vb(窗体控件)

    VB让控件可以当标题栏拖动

    VB 调用腾讯截图控件CameraDLL.dll

    VB表格控件总览与例程分析

    VB表格控件总览与例程分析

    Mp3Play.ocx控件让音乐之声响起来

    为系统加载右键注册控件选项【VB 注册控件】

    VBMsFlexGrid控件的使用细则

    点击MSFlexGrid数据控件的标题进行数据排序

    相关参考


    VB查找替代字符串的函数

    VB换行气泡提示类

    VB/VBA通用路径选择对话框

    ASCII码表0-255完整版 附详细注释

    VBKeyAscii

    VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

    VB取得TextBoxRichTextBox光标所在的行和列(支持汉字)

    VB如何实现Undo(撤消)功能

    VB计算文本文件的行数

    VB获取快捷方式原文件路径

    微软 Small Basic 简体中文版 已经发布了

    VB操作Excel 非常详细 [网摘]

    VB如何判断文件正被占用/已被打开

    VB添加listbox 的水平卷动轴

    VB打开资源管理器并指定文件

    VB根据窗体自动调整窗体内控件大小 注:实用,可以直接引用

    VB中的指针技术

    Visual Basic编程常见问题及解答(1

    Visual Basic编程常见问题及解答(2

    Visual Basic编程常见问题及解答(3

    VisualBasic变量、常数和数据类型及过程概述

    VB6的后期绑定和前期绑定

    VB用户控件制作讲解与实例

    VB制作OCX控件的步骤

    VBFSO的调用的两种方法

    VB操作EXCEL

    VB判断文件及目录的存在性

    VB网站(最新、经典源代码、技术文章、基础知识)

    VB得到指定文件夹下的文件列表

    VB产生随机任意大小文件挤满硬盘

    VB文件的读写操作

    VB创建超链接 打开指定网站的几种方法

    VB 源码 删除重复行程序 函数

    VB 计算自己程序段所用时间

    VB 获取路径名各部分 (获取文件路径,获取文件名,获取文件扩展名)自编

    几行VB代码拿下注册表

    VB 在浏览器中打开指定网址

    VB窗口置顶

    vb ListBox 之中点击右键弹出菜单

    展开全文
  • ActiveControl活动控件ActiveForm活动窗体Alignment文本对齐类型Align指定图形在图片框中的位置Archive文本列表框是否含有文档属性AutoRedraw控制对象自动重画AutoSize控制对象自动调整大小BBackColor背景颜色...

    VB

    属性对应的中文

    A

    Action

    返回或设置被显示的对话框

    (CommandDialog)

    的类型

    ,

    在设计时无效。

    ActiveControl

    活动控件

    ActiveForm

    活动窗体

    Alignment

    文本对齐类型

    Align

    指定图形在图片框中的位置

    Archive

    文本列表框是否含有文档属性

    AutoRedraw

    控制对象自动重画

    AutoSize

    控制对象自动调整大小

    B

    BackColor

    背景颜色

    BackStyle

    指定线型与背景的结合方式

    BorderColor

    边框颜色

    BorderStyle

    边框类型

    BorderWidth

    边框宽度

    C

    Cancel

    命令按钮是否为

    Cancel

    Caption

    标题

    Checked

    菜单项加标记

    ClipControls

    设置

    Paint

    事件是否重画整个控件

    Columns

    指定列表框水平方向显示的列数

    ControlBox

    窗体是否有控制框

    Count

    对象的数量

    CurrentX

    当前

    X

    坐标

    CurrentY

    当前

    Y

    坐标

    D

    Default

    指定默认按钮

    DragIcon

    控件拖动过程作为图标显示

    DragMode

    拖动方式

    DrawMode

    绘图方式

    DrawStyle

    设置线型

    DrawWidth

    设置线宽

    Drive

    指定驱动器(驱动器列表框)

    E

    Enabled

    对象是否可用

    EXEName

    活动文本名称

    F

    FileName

    文件名

    FileNumber

    文件号

    FillColor

    填充颜色

    FillStyle

    填充方式

    FontBold

    字体加粗

    FontCount

    字体种类计数

    FontItalic

    字体斜体

    FontName

    字体名称

    Fonts

    按序号返回可用字体名称

    FontSize

    字体大小

    FontStrikethru

    加中划线

    FontTransparent

    字体与背景叠加

    FontUnderline

    加下划线

    ForeColor

    前景颜色

    H

    Height

    设置或返回对象的高度

    HelpContextID

    对象与

    Help

    文件连接的

    ID

    HelpFile

    在应用程序中调用

    Help

    文件

    Hidden

    指定文件列表框内显示的文件是否隐含文

    I

    Icon

    窗体最小化后显示的图标

    Image

    窗体或图片框的图形句柄

    Index

    设置或返回控件数组中控件的下标

    Interval

    设置或返回计时器时间间隔的毫秒数

    ItemData

    用于列表框或组合框,与

    List

    属性相同

    K

    KeyPreview

    窗体先收到键盘事件还是控件先收到

    键盘事件

    L

    LargeChange

    滚动框在滚动条内变化的最大值

    Left

    控件与窗体左边界的距离

    ListCount

    列表框计数

    List

    字符串数组

    ListIndex

    指定控件当前选项的序号

    M

    Max,Min

    指定滚动条的最大值和最小值

    MaxButton

    最大化按钮

    MaxLength

    指定文本框所接收的最大字符串

    MDIChild

    指定一个窗体为

    MDI

    子窗体

    MinButton

    最小化按钮

    展开全文
  • 开卷有益 vb源码

    2015-07-02 17:53:26
    显示内容进行自动排版以适应当前的窗口宽度和字体大小。  支持背景选取,可以设置成GIF图片图案而非单一色彩,当背景图片小于显示窗口时,必须使用平铺功能以充满窗口。支持文字显示特性的设置(字体诸属性及前景...
  • vb操作excel

    2013-09-07 10:55:42
    objExl.Cells.EntireColumn.AutoFit '自动调整列宽 objExl.ActiveWindow.SplitRow = 1 '拆分第一行 objExl.ActiveWindow.SplitColumn = 0 '拆分列 objExl.ActiveWindow.FreezePanes = True '固定拆分 objExl....
  • VB编程资源大全

    2007-10-17 20:47:23
    sunv.ZIP 东方快车的悬浮窗体(5KB) 3,Menubmp.ZIP 带图象的下拉菜单(4KB) 4,strangeform.ZIP 不规则窗体(7KB) 5,autosize form.ZIP 随窗体变化自动改变控件大小(30KB) 6,grad.ZIP ...
  • vb.net 教程 3-1 窗体编程基础 2

    千次阅读 2017-04-16 21:13:19
    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及...Autosize:自动调整窗体或控件的大小 Enabled:设置窗体或控件是否可以对用户交互作出响应 Font:控件显示的文字的字体 ForeColor:前景色 Loca...

    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
    当在窗体设计模式下,从vs右下方的属性窗口选择对应项可以很方便快捷地改变窗体或控件的属性:

    窗体和控件比较通用的属性:
    Autosize:自动调整窗体或控件的大小
    Enabled:设置窗体或控件是否可以对用户交互作出响应
    Font:控件显示的文字的字体
    ForeColor:前景色
    Location:相对于容器左上角的显示位置,窗体必须设置StartPosition=Manual才起作用
    Size:窗体或者控件的大小
    Tag:用户定义的额外数据
    Text:显示的文本,窗体是在标题栏显示

     

    窗体的属性:
    FormBorderStyle:窗体的边框样式:可调整大小的边框、固定的三维边框、固定的单行边框等
    MaxmizeBox:是否在窗体的标题栏中显示“最大化”按钮
    MinimizeBox:是否在窗体的标题栏中显示“最小化”按钮
    Opacity:窗体透明度
    ShowIcon:是否在窗体的标题栏中显示图标
    ShowInTaskbar:是否在 Windows 任务栏中显示窗体
    StartPosition:运行时窗体的起始位置:窗体在其父窗体中居中、屏幕居中
    TopMost:窗体是否应显示为桌面最顶层窗体
    WindowState:窗体的状态:最小化、最大化、正常

     

     

    需要说明的是,窗体/控件的属性在设计器里面可以编辑,在代码中也可以设置的。

    例如TextBox的Text属性,可以在设计器里面直接设置,也可以在代码中设置。

    当然有些属性是只读的,不能在设计器里面设置,只能在代码中读取。

     

    在窗体上添加控件,只需要双击“工具箱”中需要的控件,或在“工具箱”选中控件然后在窗体对应位置单击鼠标左键,或将控件拖动到窗体即可。


    在调整控件时候,vs中菜单“格式”非常有用,包括对齐、使控件大小相同、水平间距等,
    “锁定控件”可以使控件大小、位置固定,防止无意中大小改变或位置移动,如果是选中的窗体,然后再按下“锁定控件”那么将设置锁定/解锁该窗体上的所有控件。
    在设计模式下,框选要调整的多个控件,然后从“格式”下面选择相应项即可:

    请大家对窗体和控件的“属性”以及“格式”菜单内容多自己练习,这一篇没有太多例子。

     

    学习更多vb.net知识,请参看 vb.net 教程 目录

     

    展开全文
  • 微软 VB2010 源码包

    2013-05-22 02:21:18
    操作包括缩放、调整大小、旋转和剪贴 GDIPens:演示如何使用 Pen 对象自定义笔 GDIText:演示文本选项的效果。文本选项包括阴影、浮雕、块文本、修剪和反射 HelpSample:演示如何使用 ToolTip、HelpProvider 和 ...
  • 不需用到"comdlg32.ocx"(3KB) 26,clipbutton.ZIP 在我们使用 vb 的 code 编辑器时,其粘贴、复制、剪切按钮能随着当前的选择情况而进行适当的调整,本程序演示了类似的功能, 作者:jin(kenj@163.net)(3KB) ...
  • zbfdbt.zip 用VB6写的浮动文本按扭控件(有源代码)(21KB) 79,Polyform.zip 创建不规则窗口(有例子)(94KB) 80,eyes.zip 跟着鼠标转的眼睛控件(有源代码)(6KB) 81,resize.zip 在调整窗体大小...
  • zbfdbt.zip 用VB6写的浮动文本按扭控件(有源代码)(21KB) 79,Polyform.zip 创建不规则窗口(有例子)(94KB) 80,eyes.zip 跟着鼠标转的眼睛控件(有源代码)(6KB) 81,resize.zip 在调整窗体大小...
  • capscreen.zip 这是一个屏幕拷贝的控件,可以实现全屏的拷贝并支持另存为位图类型的文件 (28KB) 21,digital.zip 能够以液晶字体方式显示数字的一个小控件(15KB) 22,eqpro.zip 一个调整系统音量的...
  • capscreen.zip 这是一个屏幕拷贝的控件,可以实现全屏的拷贝并支持另存为位图类型的文件 (28KB) 21,digital.zip 能够以液晶字体方式显示数字的一个小控件(15KB) 22,eqpro.zip 一个调整系统音量的...
  • 内容根据自己需求进行调整,设置行号、占位符、字体大小等。 set nu set tabstop=4 colorscheme desert set number filetype on set autoindent set smartindent set showmatch set vb t_vb= set ruler set ...

    linux下C语言编辑环境-vim编辑器使用总结

    1.添加文件说明与头文件

    sudo vim /etc/vim/vimrc	在最后添加以下内容,内容根据自己需求进行调整,设置行号、占位符、字体、大小等。
    
    set nu	
    set tabstop=4
    colorscheme desert
    set number
    filetype on
    set autoindent
    set smartindent
    set showmatch
    set vb t_vb=
    set ruler
    set cursorline
    set incsearch
    set guifont=Courier_new:h14:b:cDEFAULT
    
    autocmd BufNewFile *.cpp,*.[ch],*.sh,*.java exec ":call SetTitle()"
    """定义函数SetTitle,自动插入文件头
    func SetTitle()
    "如果文件类型为.sh文件
    if &filetype == 'sh'
    call setline(1,"\#########################################################################")
    call append(line("."), "\# File Name: ".expand("%"))
    call append(line(".")+1, "\# Author: wangxin")
    call append(line(".")+2, "\# mail: 18309210893@163.com")
    call append(line(".")+3, "\#Created Time:".strftime("%c"))
    call append(line(".")+4, "\#########################################################################")
    call append(line(".")+5,"\#!/bin/bash")
    call append(line(".")+6,"")
    else
    call setline(1, "/*************************************************************************")
    call append(line("."), " > File Name: ".expand("%"))
    call append(line(".")+1, " > Author: wangxin")
    call append(line(".")+2, " > Mail: wangxin@163.com ")
    call append(line(".")+3, " > Created Time: ".strftime("%c"))
    call append(line(".")+4, " ************************************************************************/")
    call append(line(".")+5, "")
    endif
    if &filetype == 'cpp'
    call append(line(".")+6, "#include <iostream>")
    call append(line(".")+7, "using namespace std;")
    call append(line(".")+8, "")
    endif
    if &filetype == 'c'
    call append(line(".")+6, "#include <stdio.h>")
    call append(line(".")+7, "")
    endif
    "新建文件后,自动定位到文件末尾
    autocmd BufNewFile * normal G
    endfunc
    map main i<Esc>oint main(int argc, char *argv[])<Esc>o{<Esc>oreturn 0;<Esc>o}<Esc>2ko
    

    2.行号跳转

    • 在命令行模式 使用 需要跳转的行号 如6gg,即可跳转到相应行
    • 打开文件定位到指定行 vim +行号 文件名

    3.vim编辑操作

    • yy 复制光标所在整行
    • nyy 将光标放在要复制的首行
    • p 粘贴命令
    • ndd 删除多行
    展开全文
  • * 修改模板对话框大小调整 * 修改模板对话框模板编辑器现在遵守用户颜色设置 * 文件名称变量 ([FILE_PATH] 和 [FULL_FILE_NAME]) 现在对 FTP 文件也有效 * 模板目录配置支持 %APPDATA% 环境变量 - 输出窗口字体与...
  • opSamples目录下的VB程序是我的测试程序,如果显示的字体不对请把ListBox的字体改为";宋体";. VcTest目录下的VC程序是我的测试程序. 2.0版新增了对用户进行打印机设置的支持,使您的程序可以做到不用...
  • 5.java特效:加入收藏夹,设为首页,调整窗体大小,IE按纽,分时问候,前后退按钮,检查浏览器,防止网页被人调用,IE浏览器滚动条设置 6.SQL:筛选,排列,增加记录,更新记录,删除记录 7.选项:字体设置,背景...
  • BarcodeX 5.3 ActiveX条形码控件破解版

    千次下载 热门讨论 2008-01-30 11:19:11
    调整条形码大小; 旋转条形码; 把条形码导出为BMP 或 EMF格式图片; 支持的条形码格式有:PDF-417、EAN-13、EAN-8、 EAN-5、EAN-2、UPC-A、UPC-E、Code39、Code39 Ext、Code 128、 EAN-128、ISSN、ISBN、Codebar、...
  • 而DGVprint是以VB2008Print为基础开发的(为非可视化组件),为专用的表格打印控件,可以很方便打印单个DatatGridview、DataGrid、DataTable表格的内容,并提供打印时的可视化设置界面,可设置表格打印方式(普通打印...
  • BarcodeX ActiveX控件

    热门讨论 2005-12-29 10:05:56
    调整条形码大小; 旋转条形码; 把条形码导出为BMP 或 EMF格式图片; 支持的条形码格式有:PDF-417、EAN-13、EAN-8、 EAN-5、EAN-2、UPC-A、UPC-E、Code39、Code39 Ext、Code 128、 EAN-128、ISSN、ISBN、Codebar、...
  • 主要改正了 系统托盘 的提示问题,和字体(由于第一次汉化VB程序字体并没有修改)! 本来想新版的出来在汉化,等待了好几个月没看见新版的; 只好从新汉化一遍,这次使用VBExplorer汉化的; 比起GetVBRes来说,...
  • 文字图像都可以打印,而且是完全根据表格当前的显示顺序进行打印的,如果您在使用时调整了列的顺序,刷新打印后就会按调整后的列显示顺序进行打印,基本上做到了所见即所得的打印。 2、报表设计功能,这是4.7版控件...
  • * 可吸附文件标签自动重新调整大小 * 自动隐藏窗口用户可调控件 * UltraCompare 精简版新界面 * 更多功能 - 能够删除书签行 - 能够切换所有列标记“开/关” - 能够在模板列表上下移动模板 - 能够通过 FTP ...
  • * 可吸附文件标签自动重新调整大小 * 自动隐藏窗口用户可调控件 * UltraCompare 精简版新界面 * 更多功能 - 能够删除书签行 - 能够切换所有列标记“开/关” - 能够在模板列表上下移动模板 - 能够通过 FTP ...
  • * 可吸附文件标签自动重新调整大小 * 自动隐藏窗口用户可调控件 * UltraCompare 精简版新界面 * 更多功能 - 能够删除书签行 - 能够切换所有列标记“开/关” - 能够在模板列表上下移动模板 - 能够通过 FTP ...
  • 实例214 根据用户输入需求自动调整输入法 实例215 输入的数据自动加入输入列表 实例216 设计带记忆的数据录入窗口 实例217 根据用户输入英语还是汉语决定显示内容 7.6 数据的输入控制 实例218 禁止录入重复...
  • 实例214 根据用户输入需求自动调整输入法 实例215 输入的数据自动加入输入列表 实例216 设计带记忆的数据录入窗口 实例217 根据用户输入英语还是汉语决定显示内容 7.6 数据的输入控制 实例218 禁止录入重复...
  • 实例199 动态调整MSHFlexGrid表格中字段的 顺序 358 实例200 提高数据输入速度 359 实例201 设置奇、偶行颜色不同的表格 361 实例202 在MSHFlexGrid控件中显示图片 362 实例203 利用MSHFlexGrid控件的排序功能...
  • 实例199 动态调整MSHFlexGrid表格中字段的 顺序 358 实例200 提高数据输入速度 359 实例201 设置奇、偶行颜色不同的表格 361 实例202 在MSHFlexGrid控件中显示图片 362 实例203 利用MSHFlexGrid控件的排序功能...

空空如也

空空如也

1 2
收藏数 39
精华内容 15
关键字:

vb字体大小自动调整