十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
该参数枚举值,采用位运算,那么可以用Or把两者连接起来即可;
为齐齐哈尔等地区用户提供了全套网页设计制作服务,及齐齐哈尔网站建设行业解决方案。主营业务为网站建设、成都网站设计、齐齐哈尔网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
New Font(CurrentFont.FontFamily, CurrentFont.Size, FontStyle.Bold Or FontStyle.Italic)
VB6.0可设置FontBold属性 = True,使显示字体变粗。
FontBold、FontItalic、FontStrikethru、FontUnderline
属性
按下述格式返回或设置字体样式:Bold、Italic、Strikethru 和 Underline。
下面例子中,每单击一次鼠标,就将窗体中的文本置成两种样式组合之一。
Private Sub Form_Click()
FontBold = Not FontBold '转换字体粗细
FontItalic = Not FontItalic ' 转换字体样式。
Print "Now is the time!" ' 输出文本。
End Sub
Private Sub Form_Load()
FontSize = 24
End Sub
1、打开VB软件,在窗体上面,添加两个文本框,如下图所示。
2、单击文本框,在属性窗口分别设置文本框的属性,清空文本的内容,如下图所示。
3、在窗体上面,添加一个命令按钮,如下图所示。
4、单击命令按钮,在属性窗口中,设置命令按钮的属性,如下图所示。
5、双击命令按钮,编写其代码,如下图所示。
6、运行程序,在第一个文本框中,输入“baidu”,点击“转换”命令按钮,第二个文本框出现“BAIDU”,如下图所示。
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Dim b As FontStyle
If CheckBox1.Checked Then b = FontStyle.Bold Else b = FontStyle.Regular End If TextBox1.Font = New Font(TextBox1.Font.Name, TextBox1.Font.Size, t) End Sub