VB字型自動放大程式,字型放大速度由HScroll控制,當字型大於60時,文字將從9號開始重新放

時間 2022-11-15 08:10:58

1樓:聽不清啊

按照要求,已經完成,只要在窗體中做乙個比較大的文字框控制項,乙個橫向滾動條控制項,兩個命令按鈕空間,乙個定時器控制項,加上下面的**就可以執行了。

private sub command1_click()timer1.interval = 500end sub

private sub command2_click()timer1.interval = 0

end sub

private sub form_load()command1.caption = "放大"

command2.caption = "停止"

hscroll1.min = 20

hscroll1.max = 300

end sub

private sub hscroll1_change()timer1.interval = hscroll1.valueend sub

private sub timer1_timer()text1.fontsize = text1.fontsize + 1

if text1.fontsize > 60 then text1.fontsize = 9

end sub

2樓:數學與計算機程式設計

private sub form_load()text1.text=9

hscroll1.min=1

hscroll1.max=10

end sub

private sub form_initialize()timer1.interval=1

end sub

private sub timer_timer()text1.fontsize=text1.fontsize+hscroll1.value

if text1.fontsize>=60 then text1.fontsize=9

end sub

編寫vb程式,怎麼使視窗上的文字能自動變大小,先慢慢變大,然後慢

3樓:匿名使用者

dim a

private sub form_load()label1.caption = "我慢慢變大又慢慢變小"

timer1.interval = 500timer2.interval = 500timer1.

enabled = truetimer2.enabled = truea = 9

end sub

private sub timer1_timer()a = a + 1

if a >= 50 then

timer1.enabled = falsetimer2.enabled = trueend if

label1.fontsize = a

end sub

private sub timer2_timer()a = a - 1

if a = 9 then

timer2.enabled = falsetimer1.enabled = trueend if

label1.fontsize = a

end sub

4樓:匿名使用者

用計時器控制項,在控制項中改變窗體字型大小~

我給你寫好了 望採納啊

如何用vb設計乙個能控制一行文字的字型、字型大小、字形、移動速度和移動方向的滾動字幕程式

設計乙個能控制一行文字的字型,字型大小,字形,移動速度和移動方向的滾動字幕程式,用vb語言表示。 10

5樓:j夾

設計乙個能控制一行文字的字型,字型大小,字形

立刻呢地個、

vb程式設計過程中,怎麼修改**字型大小?

6樓:匿名使用者

選單欄裡工具—選項—編輯器格式—字型

7樓:匿名使用者

vb可在軟體的ide整合視窗的選單欄的工具選單下-選項-編輯器格式-大小,將9號改大幾號。

如何放大字型,我要把字型放大,怎麼放大

1字型大小的那個方框中直接輸入數字回車就可以了 2選中你想放大的字,然後點選字型大小選項,選單下拉時別理他,直接輸入數字即可。3按住ctrl 滑鼠滾輪 的字型需要放大?一般按 ctrl 就是放大,就是縮小 1.電腦螢幕的解析度會影響文字的顯示。解析度低的,字就顯得大 有時候會模糊 解析度高的,字就顯...

字型如何無限放大,word字型如何無限放大?

word字型無限放大或無限縮小使用常規方法也能實現,只是使用常規方法不利於觀察字型放大或縮小時的變化,不能很快的除錯到自己想要的字型大小。下面將介紹兩種方法來改變word字型大小,通過這兩種方法我們可以快速的找到最適應的字型大小。一 點選增大或減小按鈕 很多人都沒有注意到,在word開始選單的字型選...

在裡怎麼放大字型,在word裡怎麼放大字型

操作方法如下 1 開啟word文件輸入幾個字作為演示,輸入後選定要編輯的文字 2 點選右上角工具欄中的字型大小,直接選擇大小 3 如果不夠大,重新輸入幾個字作為演示,然後選中。按ctrl加shift加句號 4 效果如下,注意已經到80號字了,還可以更大。擴充套件資料 word怎麼新增字型 1 首先,...

如何在中把字型放大,如何在word中把字型放大

一騎當後 在製作一些海報或者廣告牌的時候我們可能會將標題或者題目的字型設定超大型,但是word2003中的字型大小預設最多也只是 72 號,完全無法滿足我們的需求,難道就沒其他的方法能放大字型嗎?其實word中可以將字型無限放大,只是我們被眼前的一些東西給遮住了視線而已,word放大字型方法如下 方...

OPPO手機的字型怎樣放大,oppo手機字型大小怎麼調節

字型大小的設定方法 1 coloros 3.0及以後版本,進入設定 顯示與亮度 字型大小,拖動進度條即可調整字型大小 2 coloros 2.0版本,設定 顯示 字型,拖動進度條即可 3 coloros 1.0版本,設定 顯示 字型,拖動進度條即可。手機字型的更換方法 在主題商店 字型裡面,選擇喜歡...