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