非常风气网www.verywind.cn
首页
vb字体放大缩小代码
vb
用
代码
设置
字体
大小
答:
Private Sub Option1_Click(Index As Integer)Label1.FontSize = (Index + 1) * 10 End Sub
vb
中怎么使text1
字体变大缩小
还原,用三个command按钮
答:
Private Sub Command1_Click()Text1.FontSize = Text1.FontSize + 1 End Sub Private Sub Command2_Click()Text1.FontSize = Text1.FontSize - 1 End Sub Private Sub Command3_Click()Text1.FontSize = 9 End Sub
求
VB代码
(
字体
自动
变大
的代码)
答:
用Timer应该就可以了,
代码
如下 Private Sub Command1_Click()Timer1.Interval = 50 End Sub Private Sub Timer1_Timer()Dim n As Integer n = Label1.FontSize If n = 36 Then Exit Sub Label1.FontSize = n End Sub 我亲自测试过了 初始大小可以自定义,也可以在代码中调整 Timer1....
求
VB代码
(
字体
自动
变大
的代码)
答:
怎么个自动法?不晓得你的具体意思。看看这个是不是你那个意思哈。在窗体上建个label1,command1.然后输入。Private Sub Command1_Click()Label1.FontSize = Label1.FontSize + 20 End Sub 就有
变大
的效果。
VB字体
自动放大程序,
字体放大
速度由HScroll控制,当字体大于60时,文字...
答:
按照要求,已经完成,只要在窗体中做一个比较
大
的文本框控件,一个横向滚动条控件,两个命令按钮空间,一个定时器控件,加上下面的
代码
就可以运行了。Private Sub Command1_Click()Timer1.Interval = 500End SubPrivate Sub Command2_Click()Timer1.Interval = 0End SubPrivate Sub Form_Load()Command...
VB
文本框中 怎么改变
字体
大小
答:
在
VB
上面加上combo 和 textbox(文本框)控件,并输入以下
代码
。在Form_Load中加入字型大小数值于combo控件中。Private Sub Form_Load()Combo1.AddItem "12"Combo1.AddItem "14"Combo1.AddItem "16"End Sub 于文本框中输入任何字,之后点选Combo1数值时Text1
文字
大小将同时转变。Private Sub Combo1_...
如何调整
vb
中编辑器的
字体
大小?
答:
打开
vb
,并新建“标准EXE”。在vb的上方选择“工具”—“选项”。选择“编辑器格式”—“确定”。在下图标注的红色圆圈内可以选择字号,根据自身需要,选择
字体
合适的大小。点击“确定”。双击工程面板,弹出的编辑器中,字体是不是
变大
了呢?在弹出的编辑器中,进行编程即可。字体的大小并不影响编程。
vb
中不知道文本框原始字号,经过
放大缩小
后怎么恢复
答:
可以设置一个全局变量a:Dim a As Integer,把窗体运行时的
字体
赋给a:Private Sub Form_Load() a =(对象名).FontSize End Sub 然后就可以在
放大缩小
之后令fontsize=a使得字号变成原始字号了。
VB
中如何设置调整label的
字体
、大小和颜色?
答:
可以参考下面的
代码
:Private Sub Form_Load()Label1.Font = "楷体" '
字体
改为楷体 Label1.FontSize = 50 '字体大小 Label1.ForeColor =
vb
Red '字体颜色改为红色 Label1.AutoSize = True 'label随
文字
内容自动改变大小 End Sub
vb
6.0 如何使
字体
加倍
答:
设置Lable的属性,font那里就可以设置
字体
,字号了。或者,写
代码
:lable1.font = xxx
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
你可能感兴趣的内容
本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
©
非常风气网