Question

创建VB工程，运行时可将文本框中的文字缩小以及还原。程序代码怎么写？？？

创建VB工程，运行时可将文本框中的文字缩小以及还原。
窗体中包括下列控件：标签、文本框和两个命令按钮，窗体标题为“字符缩小”，文本框字号为30磅。在文本框输入一串字符；按下“缩小”按钮时字号缩小为原来的一半（每按一下都会缩小为一半）
急救急救~~~缩小的总是写错
Private Sub Form_Load()
Text1.FontSize = 30
End Sub
Private Sub Command1_Click()
Text1.FontSize = ______________
End Sub
Private Sub Command2_Click()
______________________________
End Sub

Answer 1

如果你要用代码修改控件属性，那么你首先要知道这个属性需要的继承类

vb6.0我印象不是很清楚了，现在都用.net，不过意思都是一样的

如果vb6.0中确实可以使用FontSize赋值改变大小的话，也应该是浮点模式，你可以试试Single，或者公式用30.0 / 2.0

不过还是把这个的方法给你（MSDN的原话）

给继承者的说明 在派生类中重写 Font 属性时，请使用基类的 Font 属性来扩展基实现。否则，您必须提供所有实现。不需要同时重写 Font 属性的 get 和 set 访问器；如果需要，可以只重写其中一个访问器。

意思就是如果你要改控件的Font属性，需要赋值一个Font基类

即
Object.Font = Font( ... )

当然6.0中，你给出的代码很有可能可以运行，不过按你所说的字体缩小一半，30缩小一半到15可能还能显示，但是15再缩小一半7.5估计就没法显示了

参考：http://msdn.microsoft.com/zh-cn/library/3essdeyy(VS.80).aspx
（地址需要全靠，包括后面一直到aspx）
' Visual Basic 6.0
' Set font properties directly on the control.
Label1.FontBold = True
' Create a stdFont object.
Dim f As New stdFont
' Set the stdFont object to the Arial font.
f.Name = "Arial"
' Assign the stdFont to the control's font property.
Set Label1.Font = f
' You can still change properties at run time.
Label1.FontBold = True
Label1.FontItalic = True

Answer 2

Private Sub Form_Load()
Text1.FontSize = 30
End Sub

Private Sub 缩小_Click()
Text1.FontSize = Val(Text1.FontSize) \ 2
End Sub

Private Sub 增大_Click()
Text1.FontSize = Val(Text1.FontSize) * 2
End Sub

Private Sub 还原_Click()
Text1.FontSize = 30
End Sub

这道题应该是不允许使用变量的吧！

Answer 3

我计算过了 一磅约等于20缇 也就是窗体控件的坐标点 约等于20点
经过计算 字体大小为30的一个字 正好是600缇 也就是30榜
Public a as single
Private sub form_load()
text1.fontsize=30
a=30
end sub
private sub command1_click()
a=a/2
text1.fontsize=a '我试验过了 当fontszie赋值为7.5和3.25的时候都不会报错 并且fontszie为15的时候 长宽正好为原来的一半 300缇 ……
end sub
private sub command2_click()
a=2*a
text1.fontsize=a '单击按钮2的时候扩大一倍
end sub

Answer 4

'复制粘贴就可以。我以为出错的原因主要是15除2会出现7.5那是一定出错的了
Private Sub Form_Load()
Text1.FontSize = 30
End Sub
Private Sub Command1_Click()
if Text1.FontSize>2 then
if Text1.FontSize mod 2=0 then
Text1.FontSize = Text1.FontSize/2
else
Text1.FontSize=Text1.FontSize-1
Text1.FontSize = Text1.FontSize/2
end if
end if
End Sub
Private Sub Command2_Click()
Text1.FontSize = 30
End Sub

Answer 5

放大
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