vb程序设计文字放大缩小代码(vb中字体放大的代码)
怎么更改vb中label标签文字的大小
1、打开VB软件，在窗体上添加一个标签，如下图所示。
2、点击标签，在属性窗口设置标签的属性和名称，将其Caption设置为“快乐学习”（这里以“快乐学习”四个字为例）。
3、将Autosize设置为True，如下图所示。
4、再在窗体上面，添加一个列表框控件，如下图所示。
5、点击列表框，在属性窗口设置列表框控件的属性和名称，如下图所示。
6、双击列表框，开始运行代码，如下图所示。
7、在运行的表框中点击不同的数值（例如这里点击的是16），即可看到vb中label标签文字的大小的变化，如下图所示。
编程 每单机command1命令按钮一次文本中字体扩大1.2倍每单机缩小则缩小1.2倍文本内容为VB程序设计
Private?Sub?Command1_Click()?'放大
???Text1.FontSize?=?1.2?*?Text1.FontSize
End?Sub
Private?Sub?Command2_Click()?'缩小
???Text1.FontSize?=?Text1.FontSize?/?1.2
End?Sub
Private?Sub?Form_Load()
???Text1.Text?=?"VB程序设计"
End?Sub
vb中如何用代码控制字体大小
大部分空间都有fontsize属性，即字体大小，该属性可以复制，比如你原来用的是10大小的，在相应控件扩大了一定大小后
VB? 代码如下：
dim?yk?as?single,yg?as?single
dim?bilig,bilik?as?single
sub?form_load()
yk=form1.width
yg=form1.height
end?sub
sub?formresize事件
bilik=round(me.width/yk,1)
bilig=round(me.height/yg,1)
command1.height=command1.heigt*bilig
command1.width=command1.width*bilik
command1.fontsize=command1.fontsize*bilik
end?sub
vb程序中单击按钮，字体变大或变小三个单位
Option?Explicit
Private?Sub?Form_DblClick()
????End
End?Sub
Private?Sub?Form_Load()
Command1.Caption?=?"字体变大"
Command2.Caption?=?"字体变小"
Command3.Caption?=?"加粗"
Command4.Caption?=?"标准"
????
End?Sub
Private?Sub?disp()
????Cls
????Print?"欢迎使用VB"
End?Sub
Private?Sub?Command1_Click()
????FontSize?=?FontSize?+?3
????Call?disp
End?Sub
Private?Sub?Command2_Click()
????If?FontSize??3?Then?FontSize?=?FontSize?-?3
????Call?disp
End?Sub
Private?Sub?Command3_Click()
????FontBold?=?True
????Call?disp
End?Sub
Private?Sub?Command4_Click()
????FontBold?=?False
????Call?disp
End?Sub
VB里改变TextBox控件的字体大小的代码是什么？
VB里改变TextBox控件的字体大小的代码是：
Private Sub Command1_Click()
Text1.FontName = "宋体" '设置字体
Text1.FontSize = 32 '设置字号
Text1.FontBold = True '设置粗体
Text1.FontItalic = True '设置倾斜
Text1.FontUnderline = True '设置下划线
End Sub
扩展资料：
Text属性
通过Text属性，可以实现人机的交互操作。程序运行时，从键盘向文本框内输入字符，字符内容由该文本框的Text属性获得，然后可以将这些内容赋值给变量，从而实现输入操作。也可以将变量的值赋给文本框，从而实现数据的输出。
Change事件
当用户输入新内容，或者程序中将Text属性重新赋值，即只要Text属性一旦发生改变即可触发该事件。注意，每输入一个字符，就要触发一次该事件。
Setfocus方法
该方法把光标移动到指定的文本框中。当在窗体上建立了多个文本框后，可以用该方法把光标置于所需要的文本框上。
KeyPress事件
当键盘往text里键入字符时即可触发该事件。该事件参数中的KeyAscii可得到键入的按键的Ascii值，用户可凭此来得到用户按下的按钮。
参考资料来源：百度百科-vb文本框
怎样修改VB代码的字体大小？
修改VB代码的字体、大小、以及颜色可以参考下面的代码：
PrivateSubForm＿Load
Label1。字体＝＂常规＂；将字体改为常规字体
Label1。字形大小＝50”字形大小
改变字体颜色DAO为红色为前楼＝vbRed＇
Label1。标签自动改变大小与文本内容
EndSub
扩展资料：
vb参考函数
Do．．．Loop语句：当条件为True或者当条件变为True时，重复一语句块。
Empty：表示未初始化的变量的值。
Eqv运算符： 使两个表达式相等。
Erase语句：重新初始化固定数组的元素，并为动态数组重新分配存储空间。
Err对象：包含有关运行时错误的信息。