1樓:瑞雪屋
很早以前寫的vb**了,功能是實時讓**隨窗體大小等比例放大或縮小。
至於你的第二個問題,你看下面的**自己就能解決了,就是設定一下寬度和高度。
如果真心想學程式設計,還是過渡到vb.net吧。比vb6強大百倍。
option explicitsub bit()
on error resume next
dim v比例 as single
dim vwidth as long, vheight as long
me.cls
picture1.picture = loadpicture("e:\我的文件\my pictures\007.jpg")
with picture1
v比例 = scalex(.picture.width, 8, 3) / scaley(.picture.height, 8, 3)
if me.scalewidth / me.scaleheight > v比例 then
vheight = me.scaleheight
vwidth = me.scaleheight * v比例
else
vwidth = me.scalewidth
vheight = me.scalewidth / v比例
end if
me.paintpicture .picture, me.
scalewidth * 0.5 - vwidth * 0.5, me.
scaleheight * 0.5 - vheight * 0.5, vwidth, vheight
end with
end sub
private sub form_resize() picture1.visible = false
me.autoredraw = true
bitend sub
2樓:匿名使用者
這只是調大**框大小。無法改變內部的**大小。
**縮放要用到gdi。
求幫忙我是初學者
執行的sql語句中 username和password沒取到值 另外不知道你資料庫中密碼列是不是assword,你檢查一下,不知道是你寫錯了還是本來那樣 另外from你寫成了form sql語句那裡不需要 隔開,通常 是拿來拼接sql語句的,你那裡不存在需要拼接的欄位 sql這樣寫試試 我當作密碼列...
紋繡初學者需要哪些工具呢,我是個紋繡初學者,不知道買什麼工具,紋繡最基本需要買什麼工具?
成都大華紋繡美容學校 一 操作工具 操作工具有紋眉機 針片,其中紋眉機費用較高,如果你是在網上買個兩三百的紋眉機,我想它肯定不適合做真人,現在時興半拋機 全拋機,其中全拋機相對比較安全,紋眉機選擇不要貪圖便宜,好的紋眉機可以事半功倍,省去很多時間和後續問題。針片分類更多,單針 三元 五元 排針等等,...
初學吉他買什麼好?在西安哪買,我是初學者,想買把木吉他,在西安,希望有人推薦一下在哪可以買到又好又經濟的?
長延堡 這裡有很多賣吉他的,不貴質量也好。小寨百匯那裡的琴行都是在這裡拿的吉他。初學者大概就是150左右就可以買到一個差不多的吉他了,這裡什麼都有吉他教材 琴絃 箔片 什麼都有。對了你是學生嗎。我同學在西安培華學院開了一個吉他培訓班,每一學期都收人的,我同學是一個專業樂隊的吉他手,學費是三個月180...