精华内容
下载资源
问答
  • vb菜单编缉字体大小代码

    热门讨论 2009-03-24 07:58:20
    vb菜单编缉字体大小代码,默认时菜单编辑字体小,无法直接更改
  • Bold is "read-only" in VB.NET. This article tells ... 在VB.NET,粗体为“只读”。 本文告诉您如何更改它。 In VB6, it was dead easy to change a font to bold. You simply coded something like Label1.F...

    Bold is "read-only" in VB.NET. This article tells you how to change that.

    在VB.NET中,粗体为“只读”。 本文告诉您如何更改它。

    In VB6, it was dead easy to change a font to bold. You simply coded something like Label1.FontBold, but in VB.NET, the Bold property of the Font object for a Label is read-only. So how do you change it?

    在VB6中,很容易将字体更改为粗体。 您只需编码类似Label1.FontBold之类的东西 ,但是在VB.NET中,Label的Font对象的Bold属性是只读的。 那你怎么改变呢?

    使用Windows窗体更改VB.NET中的字体属性 ( Changing Font Properties in VB.NET With Windows Forms )

    Here's the basic code pattern for Windows Forms.

    这是Windows窗体的基本代码模式。

    Private Sub BoldCheckbox_CheckedChanged( _ByVal sender As System.Object, _ByVal e As System.EventArgs) _Handles BoldCheckbox.CheckedChangedIf BoldCheckbox.CheckState = CheckState.Checked ThenTextToBeBold.Font = _New Font(TextToBeBold.Font, FontStyle.Bold)ElseTextToBeBold.Font = _New Font(TextToBeBold.Font, FontStyle.Regular)End IfEnd Sub

    私有子项BoldCheckbox_CheckedChanged(_ByVal发件人作为System.Object,_ByVal e作为System.EventArgs)_Handles BoldCheckbox.CheckedChangedIf BoldCheckbox.CheckState = CheckState.Checked ThenTextToBeBold.Font = _New Font(TextToBeBold.Font_,FontStyle.ToBold) (TextToBeBold.Font,FontStyle.Regular)结束IfEnd子

    There's a lot more than Label1.FontBold, that's for sure. In .NET, fonts are immutable. That means once they are created they cannot be updated.

    可以肯定的是,不只是Label1.FontBold 。 在.NET中,字体是不可变的。 这意味着一旦创建它们便无法更新。

    VB.NET gives you more control than you get with VB6 over what your program is doing, but the cost is that you have to write the code to get that control. VB6 will internally drop one GDI font resource and create a new one. With VB.NET, you have to do it yourself.

    与程序VB6相比,VB.NET为您提供了更多的控制权,但是代价是您必须编写代码来获得该控件。 VB6将在内部删除一个GDI字体资源并创建一个新的GDI字体资源。 使用VB.NET,您必须自己做。

    You can make things a little more global by adding a global declaration at the top of your form:

    您可以通过在表单顶部添加全局声明来使事情更具全局性:

    Private fBold As New Font("Arial", FontStyle.Bold)Private fNormal As New Font("Arial", FontStyle.Regular)

    私有fBold作为新字体(“ Arial”,FontStyle.Bold)私有fNormal作为新字体(“ Arial”,FontStyle.Regular)

    Then you can code:

    然后,您可以编写代码:

    TextToBeBold.Font = fBold

    TextToBeBold.Font = fBold

    Note that the global declaration now specifies the font family, Arial, rather than simply using the existing font family of one specific control.

    注意,全局声明现在指定了字体系列Arial,而不是简单地使用一个特定控件的现有字体系列。

    使用WPF ( Using WPF )

    What about WPF? WPF is a graphical subsystem you can use with the .NET Framework to build applications where the user interface is based on an XML language called XAML and the code is separate from the design and is based on a .NET language like Visual Basic. In WPF, Microsoft changed the process yet again. Here's the way you do the same thing in WPF.

    WPF呢? WPF是一个图形子系统,可以与.NET Framework一起使用来构建应用程序,其中用户界面基于称为XAML的XML语言,并且代码与设计分开,并且基于.NET语言(如Visual Basic)。 在WPF中,Microsoft再次更改了该过程。 这是您在WPF中执行相同操作的方式。

    Private Sub BoldCheckbox_Checked( _ByVal sender As System.Object, _ByVal e As System.Windows.RoutedEventArgs) _Handles BoldCheckbox.CheckedIf BoldCheckbox.IsChecked = True ThenTextToBeBold.FontWeight = FontWeights.BoldElseTextToBeBold.FontWeight = FontWeights.NormalEnd IfEnd Sub

    私有子项BoldCheckbox_Checked(_ByVal发送者为System.Object,_ByVal e为System.Windows.RoutedEventArgs)_Handles BoldCheckbox.CheckedIf BoldCheckbox.IsChecked = True ThenTextToBeBold.FontWeight = FontWeights.BoldElseTextToBBold.FontWeight =

    The changes are:

    更改为:

    • The CheckBox event is Checked instead of CheckedChanged

      CheckBox事件被选中,而不是CheckedChanged
    • The CheckBox property is IsChecked instead of CheckState

      CheckBox属性是IsChecked而不是CheckState
    • The property value is a Boolean True/False instead of the Enum CheckState. (Windows Forms offers a True/False Checked property in addition to CheckState, but WPF doesn't have both.)

      该属性值为布尔值True / False,而不是Enum CheckState。 (Windows窗体除了提供CheckState之外,还提供了True / False Checked属性,但WPF却没有两者都提供。)
    • FontWeight is a dependency property of the Label instead of FontStyle being the property of the Font object.

      FontWeight是Label的依赖项属性,而不是FontStyle是Font对象的属性。
    • FontWeights is a NotInheritable class and Bold is a Static value in that class

      FontWeights是一个NotInheritable类,而Bold是该类中的静态值

    Whew!! Do you think Microsoft actually tried to make it more confusing?

    哇! 您是否认为Microsoft实际上试图使它更加混乱?

    翻译自: https://www.thoughtco.com/changing-font-properties-in-vbnet-3424232

    展开全文
  • 改变CommandButton字体颜色 VB代码
  • VB 改变字体大小

    2013-06-19 15:32:29
    这是一个简单的方法,点击——字体改变,很好用,给你个思路而已。
  • 这是用VB6.0制作的“改变字体字号”问题的源代码,希望对大家有所帮助!
  • 内容索引:VB源码,界面编程,滑块,滚动条,字体 VB使用拖动条改变字体大小,用鼠标拖动滑块,窗口内的文字会跟着变大变小,很实用的一个例子,希望对大家有帮助。
  • VB模仿字体可视化

    2019-04-22 23:55:29
    模仿平常使用软件时 需要打字时要对字体进行的改变外观 大小 颜色的源代码
  • 运用vb编程,用来改变字体的大小,包含源代码。有利于初学者的学习
  • VB.NET中改变字体的大小

    千次阅读 2008-03-26 16:19:00
    100 ——>Me.Font.SizeMe.Font = New Font(Me.Font.Name, 100)寫的比較簡單嘿嘿 供大家參考 

    '100 ——>Me.Font.Size

    Me.Font = New Font(Me.Font.Name, 100)

    寫的比較簡單嘿嘿 供大家參考
     
    展开全文
  • VB 字体的复选

    2010-06-07 12:59:20
    VB 字体的复选 VB 字体的复选 VB 字体的复选
  • 通过判断语句选择单选按钮修改字体字体的大小
  • 内容索引:VB源码,界面编程,字体,窗体实例 改变文本框字体的大小和样式,VB窗体实例,调用Windows的字体面板,通过此面板你可对布局窗体上的文本框控制字体进行控制,改变字体的样式、大孝删除线、下划线、字符集...
  • VB编辑器之代码颜色修改

    千次阅读 2019-04-19 11:46:04
    VB编辑器 VB文本编辑器 VB代码颜色修改 VB背景色修改

    VB编辑器格式之代码颜色修改
    前言
    ❤很多IDE都可以把背景色改为黑色,不同类型代码可以修改为其他不同颜色,比如Eclipse和Qt Creator,连有些文本编辑器,比如Notepad++,UltaEdit,都有这个功能。其实VB的IDE也有这个功能,只是麻烦一点,要自己一个一个去设置,请看下面效果图。
    在这里插入图片描述
    第一章 上图的设置方法
    ❤“工具——选项——编辑器格式”,下面就可以设置代码颜色了
    在这里插入图片描述
    在这里插入图片描述
    照着上面设置,就可以出来最开始的效果图了。

    第二章 代码颜色各文本解释
    ❤解释一下各文本的含义
    1.标准文本:可以理解为常量吧。比如数字常量1,3,5.9;字符串常量“name”,“age”;符号常量±*/,(),&等。
    2.选定文本:用鼠标拖动,连续选中一块区域的文本。有时候只想看这段代码,用鼠标连续拖动,就可以把这段代码区别出来了。
    3.语法错误文本:这个简单,写代码时,VB会自检语法,如果错误会报错。
    4.执行点文本:调试时,每执行一条代码时的文本。
    5.断点文本:打了断点的文本。
    6.注释文本:用’ 或者 Rem注释的文本
    7.密码文本:可以理解为VB的关键字,比如Public,Private,Dim , As,Single,Long,Select,Case,If,Else,End If等等。
    8.标识符文本:就是我们定义的变量名,过程名,函数名,控件名等等。
    9.书签文本:工具栏中有一个小旗帜,点击它就可以在光标所在代码行前面添加(或者删除)一个书签,在不同的位置插入书签,可以快速的在书签之间切换,让我们切换代码的时候非常方便,不过重新打开软件时书签都没有了(这点做得不好)。
    10调用返回文本:这个不知道是什么,有时间再去看看。

    展开全文
  • 前一段时间完成了自己的机房收费系统,之后就给自己的电脑重装了系统,就自己准备将自己的部分感觉有用的代码拿来和大家分享时出现了问题:从VB中粘贴过来的代码放在CSDN博客就变成了乱码,不论是直接粘贴过来,...

          前一段时间完成了自己的机房收费系统,之后就给自己的电脑重装了系统,就在自己准备将自己的部分感觉有用的代码拿来和大家分享时出现了问题:从VB中粘贴过来的代码放在CSDN博客中就变成了乱码,不论是直接粘贴过来,还是通过代码书写区整理过来,一下就是具体情况:

    '----------------------------------²Ù×÷·ûµÄ¶ÔÓ¦-------------------------------------------------
            
        For Index = 0 To 1
            Select Case Combo3(Index).Text
                Case "Óë"
                relationexchange(Index) = "and"
                Case "»ò"
                relationexchange(Index) = "or"
            End Select
        Next Index
        
        txtsql = "select*from student_info where "
        'Set mrc = ExecuteSQL(txtsql, msgtext)
        
        
       If testtxt(Combo1(0).Text) = True Then                      '×Ö¶ÎÃûÊÇ·ñΪ¿Õ
            If testtxt(Combo2(0).Text) = True Then                 '²Ù×÷·ûÊÇ·ñΪ¿Õ
                If testtxt(Text1(0).Text) = True Then              'ÄÚÈÝÊÇ·ñΪ¿Õ
                    dd(0) = True                                      'µÚÒ»ÌõÌõ¼þ±»±ê¼Ç
                Else
                    MsgBox "µÚÒ»ÐвéѯÄÚÈÝΪ¿Õ£¬ÇëÊäÈë²éѯÄÚÈÝ¡£", vbOKOnly + vbExclamation, "¾¯¸æ"
                    Exit Sub
                End If
            Else
                MsgBox "µÚÒ»ÐвÙ×÷·ûΪ¿Õ£¬ÇëÑ¡Ôñ²Ù×÷·û¡£", vbOKOnly + vbExclamation, "¾¯¸æ"
                Exit Sub
            End If
        End If

          然而将别人的代码粘贴过来却不会有此问题,起初自己以为是有可能是自己的博客设置的问题,费了好大的力气去找自己博客设置方面的问题,可是,结果是无功而返;接下来自己就从自己VB开发环境方面找问题,相同的思路更改了自己VB开发环境的有关字体的一些设置,任然没有结果;最后无奈之下自己准备将所有的汉子重新写一遍,就在自己写了没有多少时,抱着试试看的态度将代码以相同的方式粘贴过来,奇迹发生了,代码部分显示的不再是乱码,而是完整的文字,以下是具体效果图:

    '----------------------------------操作符的对应-------------------------------------------------
            
        For Index = 0 To 1
            Select Case Combo3(Index).Text
                Case "与"
                relationexchange(Index) = "and"
                Case "或"
                relationexchange(Index) = "or"
            End Select
        Next Index
        
        txtsql = "select*from student_info where "
        'Set mrc = ExecuteSQL(txtsql, msgtext)
        
        
       If testtxt(Combo1(0).Text) = True Then                      '字段名是否为空
            If testtxt(Combo2(0).Text) = True Then                 '操作符是否为空
                If testtxt(Text1(0).Text) = True Then              '内容是否为空
                    dd(0) = True                                      '第一条条件被标记
                Else
                    MsgBox "第一行查询内容为空,请输入查询内容。", vbOKOnly + vbExclamation, "警告"
                    Exit Sub
                End If
            Else
                MsgBox "第一行操作符为空,请选择操作符。", vbOKOnly + vbExclamation, "警告"
                Exit Sub
            End If
        End If

             总结起来,出现乱码的原因有二:一、由于自己重装系统重新安装了VB、输入法,所以可能是由于VB开发环境丧失了记忆功能(这里只是自己的一种理解,具体原理还不是很清楚),而使原来某种输入法输入的文本无法显示;二、一旦系统中没有输入法也会出现乱码的现象。

            所以,如果一旦遇到类似的情况,具体的解决步骤为:

    1.如果没有安装输入法,首先要安装上自己比较喜欢的输入法;

    2.接下来打开自己的VB代码,将其中的某些汉字重新输入(这里自己的理解是通过自己的再次输入使VB开发环境恢复“记忆”功能,所以重新输入的汉字也不必很多),然后就可以完好地将乱码现象解决了。

           呵呵,到这里,你明白了吗!?


     



     

    展开全文
  • 你好,我使用的是vs2010的Visual Basic,(项目:windows窗体应用程序)我想通过代码改变label1字体的大小 该如何写呢?
  • vb6 模拟记事本代码

    2010-10-09 11:44:42
    vb6模拟了NotePad的大部分功能,还添加了改变字体,背景颜色,窗体透明度的功能
  • VB6 Win10 DPI字体125%的时候显示模糊的解决方案 右键VB6的主程序 选择右键菜单的属性 选择上方兼容性选项卡 点击更改高DPI设置 勾选替代高DPI缩放行为, 选项内容"应用程序" 即可 点确定 再使用, 怎么样, 世界...
  • 只要能解决就行,随便什么方法,.....(麻烦一点也行) 虚心求教,小弟想知道具体怎么实现,有代码最好.谢谢!
  • VB调用自持字体

    2013-11-25 19:15:00
    VB调用自制字体我这里有一个C#的例子,请问如何在VB中实现啊。我们写exe程序时,默认字体是宋体,比较难看,指定了其他字体,但是其他用户上没有你指定的这个字体的话,也会变成默认的宋体。解决的办法有这么几个: ...
  • 内容索引:VB源码,界面编程,窗体样式  又一个小实例,通过单击窗体上的单选按钮,改变其对应对象的属性,这里是将一段文字分别设为不同的字体样式,对VB学习的新手朋友有一定帮助。
  • 改变文本框字体的大小和样式,VB窗体实例,调用Windows的字体面板,通过此面板你可对布局窗体上的文本框控制字体进行控制,改变字体的样式、大孝删除线、下划线、字符集、字型等。运行的效果如上图所示。
  • VB6.0 收发邮件一例,完整的源代码。收邮件的过程:需要先登录,活动窗体具有输入焦点控件的字体设置,然后打开邮件对话,取得邮箱邮件的数量,将邮件的信息装载到邮件列表窗体的列表框,根据选择的邮件索引...
  • 工具-选项-编辑器格式  修改之后效果如图所示
  • 内容索引:VB源码,网络相关,收发邮件 VB6.0 收发邮件一例,完整的源代码。收邮件的过程:需要先登录,活动窗体具有输入焦点控件的字体设置,然后打开邮件对话,取得邮箱邮件的数量,将邮件的信息装载到邮件列表...
  • 昨天没有时间把给Kivi的代码发上来,今天补上,仅仅是提供给一些VB的初学者和Kivi同学,如果需要大家可以下载下来看看,VB6是个很老的工具了,不过现在本科的理科同学学还是有需要的这是一个非常简单的VB Form应用...
  • 版权声明:本文为博主原创文章,...通过修改Excel.Rang.Font的几个成员就可以修改相应Range内的字体,直接给出代码: Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim...
  • 在VB中压缩ACCESS数据库如果您Access数据库、Access项目删除数据或对象,可能会产生碎片并导致磁盘空间使用效率的降低。同时,数据库文件的大小并未减小,而是不断的增大,直至您的硬盘没有空间。有没有好的处理...
  • 一个具备打印功能的VB报表设计器源代码VB报表打印设计器控件源码及实例,如上图所示,可以用来设计复杂的报表,包括报表标头、页面标头、报表细节、页面页脚部分、报表注脚等,每一部分之间都可以鼠标拖动改变大小...
  • 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
  • 通过Outlook收发电子邮件程序,VB代码。收邮件的过程:需要先登录,活动窗体具有输入焦点控件的字体设置,然后打开邮件对话,取得邮箱邮件的数量,将邮件的信息装载到邮件列表窗体的列表框,根据选择的邮件...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 6,558
精华内容 2,623
关键字:

在vb中字体改变的代码