导航:首页 > 编程语言 > vb用代码改变字体大小

vb用代码改变字体大小

发布时间:2024-06-17 10:28:55

1. 怎样修改VB代码的字体大小

修改VB代码的字体、大小、以及颜色可以参考下面的代码:

PrivateSubForm_Load

Label1。字体="常规";将字体改为常规字体

Label1。字形大小=50”字形大小

改变字体颜色DAO为红色为前楼=vbRed'

Label1。标签自动改变大小与文本内容

EndSub

(1)vb用代码改变字体大小扩展阅读:

vb参考函数

Do...Loop语句:当条件为True或者当条件变为True时,重复一语句块。

Empty:表示未初始化的变量的值。

Eqv运算符: 使两个表达式相等。

Erase语句:重新初始化固定数组的元素,并为动态数组重新分配存储空间。

Err对象:包含有关运行时错误的信息。

2. VB程序中改变字体的代码是

1、首先,我们点击菜单栏中的工具按钮。

3. 创建VB工程,运行时可将文本框中的文字字号随机放大和缩小(求程序代码)

放大
Private Sub Command1_Click()
Dim x
x = Int((5 * Rnd) + 1)
Text1.FontSize = x * 30
End Sub
缩小
Private Sub Command2_Click()
Dim x
x = Text1.FontSize
x = x - Int((x * Rnd) + 1)
Text1.FontSize = IIf(x = 0, 30, x)
End Sub

4. VB 想使标签控件中字号大小改变,假如原来是3号字体,变成四号字体 用代码怎么写

我来完完整整地写给你代码吧。

(如图)首先在窗体form1中部画一个标签控件Label1,然后画三个命令按钮Command1(放大)、Command2(缩小)、Command3(将此命令再复制三个出来组成一个“四个command3”的数组控件代表“→”“←”“↑”“↓”),属性均为默认,最后复制以下代码到代码窗口运行即可:

PrivateSubCommand1_Click()'放大命令

Label1.Font.Size=Label1.Font.Size+1

EndSub

PrivateSubCommand2_Click()'缩小命令

Label1.Font.Size=Label1.Font.Size-1

EndSub

PrivateSubCommand3_Click(IndexAsInteger)'移动命令(是command3组成的数组控件)

SelectCaseIndex

Case0‘Command3的index=0时

IfLabel1.Left+Label1.Width<Me.ScaleWidthThen

Label1.Left=Label1.Left+50

EndIf

Case1‘Command3的index=1时

IfLabel1.Left>0Then

Label1.Left=Label1.Left-50

EndIf

Case2‘Command3的index=2时

IfLabel1.Top>0Then

Label1.Top=Label1.Top-50

EndIf

Case3‘Command3的index=3时

IfLabel1.Top+Label1.Height<Me.ScaleHeightThen

Label1.Top=Label1.Top+50

EndIf

EndSelect

EndSub

PrivateSubForm_Load()

Label1.Caption="VB应用程序!"

Label1.Font.Size=16

Label1.AutoSize=True

Label1.Font.Bold=True

EndSub

5. VB中用组合框进行字体和字号变换的代码怎么写

Private Sub Combo1_Click()
Text1.FontName = Combo1.Text

End Sub

Private Sub Combo2_Click() Combo2代表列表框,Click是“单击事件”

Text1.FontSize = Combo2.Text
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "黑体" 常用方法:
Combo1.AddItem "宋体" AddItem // 对象名.AddItem Item [index] //
Combo1.AddItem "隶书" 对象名,是列表框的名称
Combo1.AddItem "华文中宋" Item , 是一个字符表达式
Combo1.AddItem "方正舒体" index ,表示新增加的列表项在列表中的位置,
Combo1.Text = Combo1.List(0) 如果不写,则添加到列表框的的末尾处 。

Combo2.AddItem 10
Combo2.AddItem 12
Combo2.AddItem 14
Combo2.AddItem 16
Combo2.AddItem 18
Combo2.Text = Combo2.List(0)

End Sub

阅读全文

与vb用代码改变字体大小相关的资料

热点内容
怎样把word分页 浏览:135
javareplaceall替换不了 浏览:985
widgetsjstwitter 浏览:556
如何做一个工会网站 浏览:694
javascript转化为数值 浏览:173
l3agent配置文件 浏览:521
element3d文字教程 浏览:434
pages文件能在word里打开么 浏览:53
金铲铲配置文件下载失败客户端无法启动 浏览:387
c按行读取word 浏览:310
4g网络怎么变成2g了 浏览:197
电脑安装安卓50 浏览:604
网络协议分析pdf 浏览:945
手机传输到u盘文件容易损坏 浏览:175
安卓tcpsocketsend 浏览:527
在哪里下载轻草app 浏览:673
java文件名下载 浏览:335
深圳华强北苹果7报价 浏览:337
i9300基带文件 浏览:536
18款宝来加装雾灯如何编程 浏览:894

友情链接