国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發(fā) > 綜合 > 正文

關(guān)于用VB做更漂亮的窗體的思考

2024-07-21 02:21:01
字體:
供稿:網(wǎng)友
注冊會員,創(chuàng)建你的web開發(fā)資料庫,首先申明:以下純屬個人觀點!

  近來vb版中有一部分人問關(guān)于界面的美化問題.其實作為一個菜鳥.我也無法提供很專業(yè)的代碼給大家.想必大家對如下代碼應(yīng)該很熟悉吧!

private declare function getwindowlong lib "user32" alias "getwindowlonga" (byval hwnd as long, byval nindex as long) as long
private declare function setwindowlong lib "user32" alias "setwindowlonga" (byval hwnd as long, byval nindex as long, byval dwnewlong as long) as long
private declare function setlayeredwindowattributes lib "user32" (byval hwnd as long, byval crkey as long, byval balpha as byte, byval dwflags as long) as long
private const ws_ex_layered = &h80000
private const gwl_exstyle = (-20)
private const lwa_alpha = &h2
private const lwa_colorkey = &h1
private declare function releasecapture lib "user32" () as long
private declare function sendmessage lib "user32" alias "sendmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long
private const wm_nclbuttondown = &ha1
private declare function setwindowpos lib "user32" (byval hwnd as long, byval hwndinsertafter as long, byval x as long, byval y as long, byval cx as long, byval cy as long, byval wflags as long) as long
--------------------------------------------private sub form_load()
me.backcolor = &hff0000
dim rtn as long
borderstyler = 0
rtn = getwindowlong(hwnd, gwl_exstyle)
rtn = rtn or ws_ex_layered
setwindowlong hwnd, gwl_exstyle, rtn
setlayeredwindowattributes hwnd, &hff0000, 0, lwa_colorkey
end sub

--------------------------------------------

private sub form_mousedown(button as integer, shift as integer, x as single, y as single)
releasecapture
sendmessage me.hwnd, wm_nclbuttondown, 2, 0

end sub

這是美化窗體的時候很好的辦法,比用編程語句描述一個特殊形狀的窗體要簡單的多,只要選自己合意的圖片即可!

我們都知道象picturebox,combox,菜單,等等其實都是窗體.由此可以推出我們可以用替換法將其替換.當(dāng)然這是我的設(shè)想了;畢竟我不是高手.

舉個例子:

我想做一個圖形化的按紐.那么我們可以用image來摸擬.用imagelist放三張圖片用來表示mouse_on,mouse_down,mouse_up.當(dāng)然如果你要求高一點可以用api來彌補其中的不足,使之更完善.

當(dāng)然象checkbox,options用image來模擬都足足有余.-------------

只要設(shè)一個全局變量為boolean就行了.它們只要兩張圖片就夠了.自己畫還是引用 就隨你便了.

好了例子也舉完了.總結(jié)一下:

我想說的就是其實做界面并不是技術(shù)高才能做的.轉(zhuǎn)個圈其實用一些簡單的方法也可以解決的.

只要大家敢想什么都會變成現(xiàn)實!

希望我也能拋磚引玉啊,當(dāng)然前提是老大們能用啊^_^.

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 同心县| 台东县| 大同市| 吴川市| 阿拉善左旗| 石城县| 岢岚县| 锡林郭勒盟| 荆州市| 绍兴市| 望城县| 星子县| 海城市| 云安县| 西吉县| 祁连县| 云霄县| 钟山县| 神木县| 忻州市| 梅河口市| 蒙城县| 临江市| 敦化市| 开化县| 邹城市| 上饶县| 余姚市| 扎兰屯市| 三亚市| 朝阳市| 淅川县| 金坛市| 兴文县| 东明县| 获嘉县| 安新县| 滦平县| 山丹县| 丹棱县| 宜宾县|