ddgw.net
当前位置:首页 >> vB中FontunDErlinE中文 >>

vB中FontunDErlinE中文

VB可通过FontBold、FontItalic、FontStrikethru、FontUnderline 属性等.返回或设置字体样式为粗体、斜体、删除线或下划线.通过Font 属性来设置字体.Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As

设置字体名:Text1.Font.Name = "微软雅黑" 设置字号:Text1.Font.Size = 14 设置粗体:Text1.Font.Bold = True 设置斜体:Text1.Font.Italic = True 设置下划线:Text1.Font.Underline = True 设置删除线:Text1.Font.Strikethrough = True

设置字体为粗体

fontname 字体名字 FontBold 字体加粗 FontItalic 斜体 FontSize 字体大小 FontStrikethru 加删除线 FontUnderline 加下划线 例: Text1.FontBold = True Text1.FontName = "黑体"

先保存程序启动时的默认字体到变量,点击清楚时还原 比如FORM_LOAD()AFONT = ME.FONTNAMEEND SUB清除_CLICK()ME.FONTNAME=AFONTEND SUB

Sub 设置中文字号(x As Object, 中文字号$) Const ZWFS$ = "初号小初一号小一二号小二三号小三四号小四五号小五六号小六七号八号" Dim p&: p = InStr(ZWFS, 中文字号) If (Len(中文字号) = 2) And p And (p Mod 2) Then x.FontSize =

Private Sub Command1_Click()Label1.FontName = "微软雅黑"End Sub Private Sub Command2_Click()Label1.FontName = "宋体"End Sub Private Sub Command3_Click()Label1.FontName = "幼圆"End Sub Private Sub Command4_Click()Label1.FontBold = TrueEnd Sub Private Sub Command5_Click()Label1.FontUnderline = TrueEnd Sub

与ShowFont方法相关的属性: ●Color选定的颜色.为使用此属性,必须先将Flags属性设置为cdlCFEffects. ●FontBold 是否选定“粗体”. ●FontItalic 是否选定“斜体”. ●FontStrikethru 是否选定删除线. ●FontUnderline 是否选定下划线. ●FontName 选定的字体名称. ●FontSize 选定的字体大小. 使用的语法是直接引用,比如我们要根据“字体对话框”返回的值设置文本框的字体,则直接采用语句:Text.Font=CommonDialog.FontnNameTop

label1.Font= new Font("宋体",20.5f,FontStyle.Underline);

FontName 文字类型 FontSize 文字大小 FontBold 文字加粗 FontItalic 文字倾斜 FontUnderline 文字加下划线 FontStrikethru 文字加删除线 没有FontSlope属性

网站首页 | 网站地图
All rights reserved Powered by www.ddgw.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com