导航:首页 > 编程语言 > 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用代码改变字体大小相关的资料

热点内容
qq群里的机器人买武器 浏览:428
捕鱼达人历史版本 浏览:73
mp4视频文件解密软件 浏览:62
多轴编程哪个软件最方便 浏览:27
老平板哪个是显示屏数据线插座 浏览:849
5sing上传音频文件格式 浏览:171
win10输入文件鼠标右键异常 浏览:634
听幼儿故事用什么app 浏览:514
iphone修改音频文件名 浏览:53
国家气象站点数据在哪里下载 浏览:342
网络设置的网站 浏览:914
手机测量放样怎么导数据和线型 浏览:648
企业展示型网站源码 浏览:781
易花花app哪里下载 浏览:323
外国程序员职业生涯长 浏览:709
看理想app怎么注销账号 浏览:545
数控铣床加工手工编程的步骤有哪些 浏览:411
uc浏览器为什么很多网站进不了 浏览:513
西部数据移动硬盘怎么 浏览:645
批处理修改子目录文件名命令 浏览:405

友情链接