精华内容
下载资源
问答
  • 前提:画面得放一个隐藏的Label,并且该隐藏Label的【AutoSize】属性设置为【TRUE】。...lblArari --要改变字体大小的目标Label。 152 --要改变字体大小的目标Label的最大宽度。 22 --要改变字体大小的目标Lab

    前提:画面得放一个隐藏的Label,并且该隐藏Label的【AutoSize】属性设置为【TRUE】。

    调用方法:
    SetFontSize(Me.lbl13, Me.lblArari, 152, 22, “” & Format(result, “###,##0”))
    参数说明:lbl13 --画面隐藏Label。
    lblArari --要改变字体大小的目标Label。
    152 --要改变字体大小的目标Label的最大宽度。
    22 --要改变字体大小的目标Label的最大字体大小。
    “” & Format(result, “###,##0”) ----要改变字体大小的目标Label的text

    Private Sub SetFontSize(ByVal lblCompare As Label,
                            ByVal lblResult As Label,
                            ByVal lblWidth As Single,
                            ByVal lblFontSize As Single,
                            ByVal txtResult As String)
        Dim lblFont As Font = New Font(lblResult.Font.FontFamily, lblFontSize, lblResult.Font.Style)
        lblCompare.Text = txtResult
    
        If lblCompare.Width <= lblResult.Width Then
            lblResult.Width = lblWidth
            lblResult.Font = lblFont
            lblResult.Text = txtResult
        Else
            Dim iChangeFontSize As Single = lblFontSize
            SetFontSizeChange(iChangeFontSize, lblCompare, lblResult, lblWidth, lblFontSize, txtResult)
        End If
    End Sub
    
    Private Function SetFontSizeChange(ByRef iChangeFontSize As Single,
                                       ByVal lblCompare As Label,
                                       ByVal lblResult As Label,
                                       ByVal lblWidth As Single,
                                       ByVal lblFontSize As Single,
                                       ByVal txtResult As String) As Boolean
    
        Dim lblFont As Font = New Font(lblResult.Font.FontFamily, iChangeFontSize, lblResult.Font.Style)
    
        If iChangeFontSize < 1 OrElse iChangeFontSize - 0.25 < 1 Then
            lblResult.Font = lblFont
            lblResult.Text = txtResult
            Return True
        End If
    
        iChangeFontSize += -0.25
        lblCompare.Font = lblFont
    
        If lblCompare.Width > lblResult.Width Then
            If SetFontSizeChange(iChangeFontSize, lblCompare, lblResult, lblWidth, lblFontSize, txtResult) = True Then
                Return True
            End If
        End If
        lblResult.Font = lblFont
        lblResult.Text = txtResult
        lblCompare.Font = New Font(lblResult.Font.FontFamily, lblFontSize, lblResult.Font.Style)
        Return True
    End Function
    
    展开全文
  • VB.NET 设置Label字体

    千次阅读 2013-03-15 10:27:55
    '==========================改变字体 Dim myFont As System.Drawing.Font Dim strName As String = ListBox1.Text Dim myFontFamily As System.Drawing.FontFamily myFontFamily = Ne
            '==========================改变字体
            Dim myFont As System.Drawing.Font
    
            Dim strName As String = ListBox1.Text
            Dim myFontFamily As System.Drawing.FontFamily
            myFontFamily = New FontFamily(strName)
    
            Dim myFontStyle As FontStyle
            Dim bolBold = CheckBox1.Checked
            If bolBold Then
                myFontStyle = myFontStyle Or FontStyle.Bold
            End If
    
            Dim bolItdic = CheckBox2.Checked
            If bolItdic Then
                myFontStyle = myFontStyle Or FontStyle.Italic
            End If
    
            Dim bolUnderline = CheckBox3.Checked
            If bolUnderline Then
                myFontStyle = myFontStyle Or FontStyle.Underline
            End If
    
            Dim bolStrikeout = CheckBox4.Checked
            If bolStrikeout Then
                myFontStyle = myFontStyle Or FontStyle.Strikeout
            End If
    
            Dim sngSize = ComboBox11.Text
            Dim myColor As Color
    
            myFont = New System.Drawing.Font(myFontFamily, sngSize, myFontStyle, System.Drawing.GraphicsUnit.Point)
            Label69.Font = myFont
            myColor = Label77.BackColor
            Label69.ForeColor = myColor


     

    展开全文
  • Vb中如text和label控件是没有垂直居中功能的。但是可以变通就是给文字加空行。下面的是从百度贴吧上面引用来的:但是他并没有说明要将text的mutiline属性设置为true,否则是不行的。'加一个Text1一个Command1...

    在Vb中如text和label控件是没有垂直居中功能的。

    但是可以变通就是给文字加空行。

    下面的是从百度贴吧上面引用来的:

    但是他并没有说明要将text的mutiline属性设置为true,否则是不行的。

    '加一个 Text1 一个 Command1

    Dim aa As String, i As Integer, jj As Integer, maxline As Integer, LineCnt As Long

    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

    Const EM_GETLINECOUNT = &HBA

    Private Sub Form_Load()

    '窗体与Command1居中

    Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

    Command1.Move (Me.Width - Command1.Width) \ 2, Text1.Height + Text1.Top + 200

    Command1.Caption = "居中显示"

    Text1.Alignment = 2 'TextBox 水平居中显示

    aa = "Attn:楼主"

    aa = aa & Chr(13) & Chr(10)

    aa = aa & "呵呵你的问题都好奇怪,但也让我学了不少!"

    aa = aa & Chr(13) & Chr(10)

    aa = aa & "我也想不出其它的好方法"

    aa = aa & Chr(13) & Chr(10)

    aa = aa & "你认为这样行吗?"

    Text1.Text = aa

    End Sub

    Private Sub Command1_Click()

    LineCnt = TextBoxLineCnt(Text1)

    '每增加一行加上180,当然是以默认的字体大小而言

    maxline = Text1.Height \ 180 '计算textbox能装下几行

    jj = (maxline - LineCnt) \ 2 '垂直居中,(textbox总行数-Text1的总行数)整除2

    For i = 1 To jj '装上几行空白

    Text1.Text = Chr(13) & Chr(10) & Text1.Text

    Next i

    MsgBox "总共有" & CStr(LineCnt) & "行文字,看看垂直居中了吗?"

    End Sub

    Public Function TextBoxLineCnt(ctl As TextBox) As Long '计算总行数的函数

    TextBoxLineCnt = SendMessage(ctl.hwnd, EM_GETLINECOUNT, 0, 0)

    End Function

    展开全文
  • 使用Combo Box控件控制字体大小 使用Combo Box控件控制字体大小 使用Combo Box控件控制字体大小
  • // 改变字体大小及类型   // [noteStr addAttribute:NSFontAttributeName value:[UIFont fontWithName:@"Helvetica-BoldOblique" size:27] range:range];   // 为label添加Attributed  [ self...

    bottomS = @"注意:\n\n1.所有所有;\n\n2.标余额;\n\n3.不可退款。";

    NSMutableAttributedString *noteStr = [[NSMutableAttributedStringalloc] initWithString:bottomS];

        // 需要改变的第一个文字的位置

        NSUInteger firstLoc = [[noteStrstring] rangeOfString:@"3"].location;

        // 需要改变的最后一个文字的位置

        NSUInteger secondLoc = [[noteStrstring] rangeOfString:@"。"].location+1;

        // 需要改变的区间

        NSRange range = NSMakeRange(firstLoc, secondLoc - firstLoc);

        // 改变颜色

        [noteStr addAttribute:NSForegroundColorAttributeNamevalue:[UIColorredColor] range:range];

        // 改变字体大小及类型

        //    [noteStr addAttribute:NSFontAttributeName value:[UIFont fontWithName:@"Helvetica-BoldOblique" size:27] range:range];

        // 为label添加Attributed

        [self.bottomTextsetAttributedText:noteStr];


    展开全文
  • 根据给定的长度,自动调整字体大小,以适应如edit.text,label.caption等这类显示框,希望能帮助更多人.
  • 要求利用滚动条和标签控件实现对标签字体大小的任意改变,如图所示。 提示 将滚动条的Min、Max分别设置为字号的最小值和最大值 当拖动滑块时,字体取原来值,字号跟着变化。 参考代码 P...
  • 由于combobox控件height属性不可更改,而只可根据字体大小自动调整,因此单纯将字体按比例缩放来实现。但通过这种方法改变控件大小会使调整结果不精确,跟label并排放置,放大到一定程度后差异明显。请问如何才能使...
  • 你好,我使用的是vs2010中的Visual Basic,(项目:windows窗体应用程序)我想通过代码,改变label1字体大小 该如何写呢?
  • 没听懂,长度你可以监听label的width—-在lable的数据给定后if(lable.Text.Length>10){lable.Font.Size=…}elseif(lable.Text.Length>20){…}…—-宽度同理—-不换行这个怎么实现呢.要全部现实出来,又要选择...
  • Bold is "read-only" in VB.NET. This article tells you how to change that. 在VB.NET中,粗体为“只读”。 本文告诉您如何更改它。 In VB6, it was dead easy ... You simply coded something like Label1.F...
  • 字体、字体大小、字体颜色和背景色。 例如对话框的类为CTestDlg. 在对话框的类中添加两个变量. 方法:在classview选项卡中,选择CTestDlg,右键,add member variable. CBrush m_brush; CFont m_font; 在O...
  • 怎么更改vblabel标签文字的大小更改vblabel标签文字的字体、大孝以及颜色可以参考下面的代码: PrivateSubForm_Load() Label1.Font="楷体"'字体改为楷体 Label1.FontSize=50'字体大小 Label1.ForeColor=vbRed'字...
  • rolling in the deep 歌曲发音 Reaching a fever pand和it'...vs2010中,在label内text属性内输入很多文字。在一个大的div里面放入ul li的模拟树形结构,label前放置一个div用于对齐设置属性text-indent:2em;就可以缩...
  • vb.net 教程 5-1 字体(Font)

    千次阅读 热门讨论 2017-03-09 22:54:00
    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。...Size:以设置的Unit为单位的字体大小 Bold:是否设置为粗体 Italic:是否设置为斜体 U...
  • 展开全部Text1.FontItalic = True字体相关设置代码:1、设置具体字号:text1.FontSize = "45" ps:双引号内的字号可以随意更改;或者是每点击一次加大一32313133353236313431303231363533e78988e69d8331333431373864...
  • 控件自适应大小已实现,但是textbox中字体自适应大小出现问题。...不改变字体大小只变height没有问题,而不变height只变字体大小也有类似问题。请问是不是其height属性与使用过的最大字体之间有关联性?
  • 添加一个用户控件“PaneCaption.vb” 3。[操作]调整控件大小为150×30 4。打开代码编辑器: Imports System.Drawing.Drawing2D Imports System.ComponentModel Public Class PaneCaption ' 常量设置 Private Class...
  • vb.net--Label控件

    千次阅读 2013-04-08 17:16:48
    (1)Text属性:该属性用来...取值为True时,控件将自动调整到刚好能容纳文本时的大小,取值为False时,控件的大小为设计时的大小。默认值为False。  (3)Anchor属性:Anchor的意思为“锚”,该属性是用来确定此控件
  • 例如 Label控件中的Font属性值默认是宋体,9PT。每次都要修改好麻烦的,怎么让它一开始就是我指定的字体大小呢?
  • Label设置行间距,段间距,字间距

    千次阅读 2017-07-11 11:20:55
    Label设置行间距,段间距,字间距 使用NSMutableAttributedString设置label属性 直接上代码- (void)viewDidLoad { [super viewDidLoad]; NSString *text = @"突然想要写点什么,来纪念自己即将逝去的大学四年时光,...
  • '添加一个ActiveX控件工程,代码如下: Option Explicit '自定类 Public Enum TDO_Text '...Zti As String '字体 Zxing As String '字形 Dxiao As Long '大小 End Type Dim Rolling As Integer '滚动方向:[0]由右向.
  • 与百例79-80例相类似 Option Explicit Private Sub chk1_Click()  If chk1.Value = 1 Then '若复选框chk1的值为1  Label2.FontUnderline = True '标签框中的文字加下划线  Else
  • 当初vb出来的时候,大家眼睛一亮,编程也可以可视化,当然,少不了控件的帮忙,虽然更多强大的功能还是需要api(当然.net下也一样),但是我们还是从基础开始。 说实在的vs2015提供的控件比较多,有些我也不熟悉,...
  • VB程序设计基础题

    千次阅读 2021-06-04 12:02:40
    文章目录 前言 本文是一些基础题给同学们练习练习,认为太简单的同学可以点击我头像看其他VB题。 内容
  • , ['JavaFX', 'jfx'], ['Perl', 'perl'], ['PHP', 'php'], ['Plain Text', 'plain'], ['PowerShell', 'ps'], ['Python', 'py'], ['Ruby', 'rails'], ['Scala', 'scala'], ['SQL', 'sql'], ['Visual Basic', 'vb'], ...
  • javafx改变字体

    2020-09-30 15:21:01
    package sample; import javafx.application.Application; import javafx.geometry.Insets; import javafx.geometry.Pos; import javafx.scene.Scene;...import javafx.scene....import javafx.scene.control.Label; im.
  • 字体的使用是ActiveX控件制作过程中不可缺少的部分。本文将深入浅出地介绍在ActiveX控件中制作过程中如何使用字体。本文所提及的ActiveX控件制作是指利用VC++6.0的MFC ActiveX ControlWizard 工具,用其它方法制作 ...
  • LabelAutoSize标签自动大小 LabelBackColor标签背景色 LabelCaption标签文本 LabelFont标签字体 LabelForeColor标签前景色 LabelLeft标签左边距 LabelWidth标签宽度 MultiSelect多选 Recordset记录集 ...
  • <!-- google_ad_client = "pub-8333940862668978";...遗憾的是在页面保存后,重新打开,Label字体大小又是老样子了。 __________________________________________________________________________

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,380
精华内容 952
关键字:

vblabel字体大小