国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板： 凤山市| 绥江县| 广宁县| 房山区| 安吉县| 社会| 宝坻区| 高雄县| 苍山县| 枣强县| 康定县| 巩留县| 沾益县| 中阳县| 江川县| 策勒县| 钦州市| 眉山市| 英山县| 东平县| 房山区| 宜兰市| 沙雅县| 界首市| 遵化市| 禹州市| 龙井市| 石林| 房产| 朝阳市| 类乌齐县| 平阳县| 芦山县| 承德县| 江川县| 保康县| 商丘市| 神池县| 泽州县| 屏山县| 津南区|