从品牌网站建设到网络营销策划,从策略到执行的一站式服务
该参数枚举值,采用位运算,那么可以用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
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图