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

首頁(yè) > 學(xué)院 > 開發(fā)設(shè)計(jì) > 正文

制作VB另類按鈕

2019-11-18 17:33:06
字體：大 中 小
來(lái)源：轉(zhuǎn)載
供稿：網(wǎng)友
如果你看膩了VB的中規(guī)中矩的按鈕，有時(shí)想改變一下的話，本文或許對(duì)你有所啟發(fā)。以下二例用Line方法結(jié)合其它手段，在窗體上繪制出別具一格的“按鈕”，呵呵，還是有那么一點(diǎn)兒新意的(怎么象是吹牛？)。建議在不需要太多的按鈕的窗體中使用。

例一：用Line方法制作初始時(shí)為平面、鼠標(biāo)移到時(shí)突出的按鈕，此類按鈕其實(shí)更象是第一層菜單，可為之通過Form_MouseDown或者Form_MouseUp編寫類似于Click的事件。當(dāng)然了，用標(biāo)簽 線條或者 ImageBox來(lái)實(shí)現(xiàn)更簡(jiǎn)單些。

SubRect(objAsObject,XAsInteger,YAsInteger,iWAsInteger,iHAsInteger,iCAsLong)
obj.Line(X,Y)-(X iW,Y),iC
obj.Line-Step(0,iH),iC
obj.Line-Step(-iW,0),iC
obj.Line-Step(0,-iH),iC
EndSub

'鼠標(biāo)在窗體移動(dòng)時(shí)按鈕保持灰度的原貌
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Fork=0To20
RectPicture1,5*k,5*k,Picture1.ScaleWidth-10*k,Picture1.ScaleHeight-10*k,RGB(255-5*k,255-5*k,255-5*k)
Picture1.ForeColor=vbBlack
Picture1.CurrentX=250:Picture1.CurrentY=250
Picture1.FontBold=False
Picture1.Print"Hello"
Nextk
EndSub

'鼠標(biāo)移動(dòng)到圖片框時(shí)按鈕形狀發(fā)生變化:底色為深色，按鈕周邊帶色彩邊框，文字變色
PrivateSubPicture1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DimkAsInteger
Fork=0To20
RectPicture1,5*k,5*k,Picture1.ScaleWidth-10*k,Picture1.ScaleHeight-10*k,RGB(8*k,12*k,8*k)
Picture1.ForeColor=vbRed
Picture1.CurrentX=250:Picture1.CurrentY=250
Picture1.Print"Hello"
Next
EndSub->

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 马尔康县| 嘉定区| 怀集县| 嘉义县| 石林| 祥云县| 宁国市| 靖远县| 临泽县| 定日县| 上林县| 浏阳市| 宁远县| 大邑县| 莱西市| 奉化市| 开原市| 石楼县| 凤山市| 枞阳县| 新河县| 万荣县| 罗平县| 南丰县| 民勤县| 长阳| 克什克腾旗| 象州县| 株洲市| 忻城县| 永新县| 年辖：市辖区| 德钦县| 上蔡县| 上高县| 石阡县| 陇西县| 定兴县| 河东区| 昌黎县| 平凉市|