1. 创建VB工程，运行时可将文本框中的文字缩小以及还原。程序代码怎么写
我计算过了 一磅约等于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
2. VB中如何实现图片自动缩放
1.可以利用picture.mousemove()事件实现放大效果.即当鼠标经过时,图像的长宽分别加上一个固定值.实现"放大"效果.不过要注意就是,要先设置一个判断标志----放大了一次后就不要再放大了.不然,当鼠标一直在上面时,不断触发这个事件,会不断变大,与设想效果不同.
但,picutre控件本身没有鼠标离开事件,无法实现缩小.
2.幸好,窗体 form本身也有mousemove事件.并且,当鼠标经过窗体中控件表面时,
不会触发窗体本身的mousemove事件.那么.利用这点.以下程序演示实现LZ要求.
VB6中新建工程,一个窗体,窗体上放置一个picture控件.图像什么随便设置.大小也是自己设置
全部代码如下:
Dim ch As Boolean '图像改变大小标志
Private Sub Form_Load()
ch = False '程序运行时,鼠标肯定还没有经过图像,所以,假
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ch Then '已经放大了,则缩小,当鼠标离开图像时.
Picture1.Width = Picture1.Width - 200 '这个值200和以下的300自己改吧
Picture1.Height = Picture1.Height - 300
ch = False
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not ch Then '鼠标经过,且,还没有放大过.放大一次.
Picture1.Width = Picture1.Width + 200 '这个值200和以下的300自己改吧
Picture1.Height = Picture1.Height + 300
ch = True
End If
End Sub
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中给文字增大缩小加下划线加删除线粗体斜体代码
'控件一个文本框text1,五个按钮command1至command5
PrivateSubCommand1_Click()'增大字体
Text1.FontSize=Text1.FontSize+1
EndSub
PrivateSubCommand2_Click()'缩小字体
IfText1.FontSize>2ThenText1.FontSize=Text1.FontSize-1
EndSub
PrivateSubCommand3_Click()'变换下划线
Text1.FontUnderline=NotText1.FontUnderline
EndSub
PrivateSubCommand4_Click()'变换粗体
Text1.FontBold=NotText1.FontBold
EndSub
PrivateSubCommand5_Click()'变换斜体
Text1.FontItalic=NotText1.FontItalic
EndSub