vb里怎么让单击后文本框扩大,同时文本框内的文字按照规定要求扩大N倍

Question

如题所述

Answer 1

1、打开Visual Basic 6.0软件，新建一个标准exe工程，在窗体上添加一个Text控件和一个Command控件,Text1的文本在窗体创建时内容为"Visual Basic"，Command的Caption属性值为"放大3倍";

2、双击窗体和双击Command进入代码编辑窗口，编写代码如下：

Private Sub Command1_Click()
Text1.Width = 3 * Text1.Width
Text1.Height = 3 * Text1.Height
Text1.Font.Size = 3 * Text1.Font.Size
End Sub

Private Sub Form_Load()
Text1.Text = "Visual Basic"
End Sub

3、点击运行或者按下F5按键，运行工程，点击"放大3倍"按钮，可以看到text1文本框被放大的同时，字体也被放大相同的倍数。

点击按钮前:

点击按钮后:

Answer 2

Private Sub Text1_Click()
N = InputBox("你要扩大几倍？", , 2)
Text1.Width = Text1.Width * N
Text1.Height = Text1.Height * N
Text1.Font.Size = Text1.Font.Size * N
End Sub
请参阅我博客中专门为回答你这个问题写的博客：http://hi.baidu.com/zgmg/blog/item/016a54f0ab4383b5a40f52b1.html
其中的N可以等于0.5哟！追问

非常感谢。如果可以，请留下Q号。我如果有问题可以很方便请教。

本回答被提问者采纳

Answer 3

Private Sub Command1_Click()
Dim N As Integer, Font As Long, h As Long, w As Long
N = 2
With Text1
Font = .Font.Size * N
Me.Font.Size = Font * N
h = Me.TextHeight(.Text)
w = Me.TextWidth(.Text)
.Font.Size = Font
.Height = h / 2
.Width = w / 2
End With
End Sub

Answer 4

话说。其实我不知道。嗯。记得给帮主人的赏分哦~你个傻子~追问

你个二。哼。都是不给你分。嘿嘿嘿。实力决定一切哦。哈哈。