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

热点内容
您保存的文件格式可能包含有不兼容的功能 浏览:155
pos机的各种数据储存在哪里 浏览:430
win10文件怎么还原未知 浏览:342
vtk文件 浏览:166
timelineoptionjs下载 浏览:81
苹果手机怎么设置网络优先 浏览:877
线性数据如何计算 浏览:349
大数据服务体系建设 浏览:87
jsp页面报不了错 浏览:13
制作微课用什么app 浏览:24
如何让qq分组显示自己 浏览:815
sql大数据查询优化 浏览:548
哪里有文件销毁费用是多少 浏览:929
云视讯app如何在群里反馈举手 浏览:424
cpu数据如何看 浏览:426
abaqus安装最后文件路径出错 浏览:295
js传递函数参数 浏览:630
ios百度云压缩文件解压 浏览:253
把电脑的文件传到苹果6上 浏览:116
青少年编程考试证书哪个更权威 浏览:241

友情链接