国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 介休市| 柘城县| 高碑店市| 青州市| 尉犁县| 昌图县| 富源县| 宁陕县| 香港| 迭部县| 云阳县| 开平市| 河曲县| 双流县| 鄂托克旗| 阳信县| 菏泽市| 新绛县| 革吉县| 贵州省| 金湖县| 永靖县| 于都县| 克拉玛依市| 郴州市| 廊坊市| 武平县| 永德县| 黔东| 互助| 图们市| 冕宁县| 长顺县| 洛扎县| 枣庄市| 通辽市| 高州市| 湖南省| 宜阳县| 洱源县| 鹤山市|