重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
修改VB代码的字体、大小、以及颜色可以参考下面的代码:
成都创新互联是由多位在大型网络公司、广告设计公司的优秀设计人员和策划人员组成的一个具有丰富经验的团队,其中包括网站策划、网页美工、网站程序员、网页设计师、平面广告设计师、网络营销人员及形象策划。承接:成都网站制作、网站建设、网站改版、网页设计制作、网站建设与维护、网络推广、数据库开发,以高性价比制作企业网站、行业门户平台等全方位的服务。
PrivateSubForm_Load
Label1。字体="常规";将字体改为常规字体
Label1。字形大小=50”字形大小
改变字体颜色DAO为红色为前楼=vbRed'
Label1。标签自动改变大小与文本内容
EndSub
扩展资料:
vb参考函数
Do...Loop语句:举裂腊当条件为True或者当条件变为True时,重复一语句块。
Empty:表示未源配初始化的变量的值。
Eqv运算符: 使两个正滑表达式相等。
Erase语句:重新初始化固定数组的元素,并为动态数组重新分配存储空间。
Err对象:包含有关运行时错误的信息。
在VB6中可运颂谨以通过设置对象的Font属性设置字体字号,ForeColor属性设旁基置字体颜色。\x0d\x0a例如,下面代码实现设置文本框中的字体樱吵为”隶书“字号28磅,字体颜色为红色\x0d\x0aPrivate Sub Command1_Click()\x0d\x0aText1.Font.Size = 28\x0d\x0aText1.Font.Name = "隶书"\x0d\x0aText1.ForeColor = vbRed\x0d\x0aEnd Sub
看样要重陆键新定义个Font对象,在构造函数中定义它的大小,
With Button1.Font
Button1.Font = New Font(.FontFamily, 34, .Style, .Unit) '参数都用原来字体参数,只有大小改成早余巧你需要毁粗的。
End With
VB.NET中某些控件的字体属性是只读的,所以只可以使用大颂NEW方法\x0d\x0a(例子: Label1.Font = New Font("宋体", 9))\x0d\x0a如果是VB6.0中可以直接使用Lable1.Font.Size=Lable1.Font.Size + 3\x0d\x0a(这里使用的滚乎郑例子是Lable控件,如果你使用的是Command控件直接改一下就顷缺好)