说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Cool 3D 浮動按鈕的模擬作法-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
Cool 3D 浮動按鈕的模擬作法-VB资料


VERSION 5.00
Begin VB.Form frmSimu3d
Caption = "浮動按鈕模擬"
ClientHeight = 1824
ClientLeft = 3108
ClientTop = 2472
ClientWidth = 2292
LinkTopic = "Form1"
ScaleHeight = 1824
ScaleWidth = 2292
Begin VB.PictureBox picPaintBoard
Height = 660
Left = 600
ScaleHeight = 612
ScaleWidth = 612
TabIndex = 0
Top = 600
Width = 660
End
Begin VB.Image imgButton
Height = 492
Left = 840
Top = 600
Width = 612
End
End
Attribute VB_Name = "frmSimu3d"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'宣告儲存按鈕圖形的變數
Private ImageStore As StdPicture
'宣告決定按鈕邊緣寬度的變數
Private BorderWidth As Single
'宣告決定按鈕浮起程度的變數
Private PaintWidth As Integer

Private Sub Form_Load()
'載入圖形到圖形儲存變數內
Set ImageStore = LoadPicture(App.Path + "\midpic.bmp")

'imgButton 是用來做為替代按鈕顯示的一個
'ImageBox,這裏同時把按鈕圖設定給它。
imgButton.Picture = ImageStore

'picPaintBoard 是一個 PictureBox,是用來作為圖形
'畫邊框的繪圖板

'因為 picPaintBoard 只是繪圖板,不須顯示
picPaintBoard.Visible = False
'AutoRedraw = True 才能作出 Image 的效果,供
'imgButton 顯示使用
picPaintBoard.AutoRedraw = True
'AutoSize = True 可以配合圖形改變大小
picPaintBoard.AutoSize = True
'ScaleMode 設為 Pixel ,有利於繪圖定位
picPaintBoard.ScaleMode = 3

'設定 imgButton 的邊緣寬度,數字愈大,邊緣寬度愈窄,
'數字愈小,邊緣寬度愈厚。寬度愈窄,漏失 Mouse_Out 的可能
'愈大,寬度愈厚,要愈往中心才收得到 Mouse_In。所以要依按
'鈕圖大小做調整,圖愈小 BorderWidth 也要愈小,但不得小於
'2,小於 2 將不會產生 Mouse_In 的狀況
BorderWidth = 5

'浮起邊緣線的寬度,一般來說數字愈大浮起狀況愈明顯,但也要
'配合圖形大小,凸出太離譜就很醜了。
PaintWidth = 2
'設定imgButton的四個座標值
Me.ScaleMode = 3
imgRect.Top = imgButton.Top
imgRect.Left = imgButton.Left
imgRect.Right = imgRect.Left + imgButton.Width
imgRect.Bottom = imgRect.Top + imgButton.Height
Set theForm = Me
'Debug.Print imgRect.Left; imgRect.Top; imgRect.Right; imgRect.Bottom
Me.ScaleMode = 1
End Sub

'這是為按鈕圖浮凸邊框線的自訂方法,基本原理是就是用
'PictureBox 的 Line 在按鈕圖的四周畫明暗不同的線,達成立體的效果。
'1.浮凸:左邊、上邊用淺色,右邊、下邊用深色
'2.凹陷:左邊、上邊用深色,右邊、下邊用淺色
Public Sub SimuCool3D(ByVal Mode As Integer, Optional ByVal LineWidth As Integer)
'參數說明:
' Mode 決定圖的凸起或凹陷
' LineWidth 決定浮凸線寬度

'規定浮凸線寬度最小為 1
If LineWidth < 1 Then
LineWidth = 1
End If

'把繪線寬度及須繪製的邊框圖形指定給繪圖板
'picPaintBoard
picPaintBoard.DrawWidth = LineWidth
picPaintBoard.Picture = ImageStore

'依 Mode 參數來決定繪浮凸圖或凹陷圖,
'Case 1 是畫浮凸圖
'Case 2 是畫凹陷圖
'Mode 0 則啥事也不做,維持原圖形
Select Case Mode

Case 1
With picPaintBoard
picPaintBoard.Line (.ScaleLeft + LineWidth, .ScaleTop + LineWidth)- _
(.ScaleWidth - LineWidth, .ScaleTop + LineWidth), &H80000005
picPaintBoard.Line -(.ScaleWidth - LineWidth, .ScaleHeight - LineWidth), &H8000000C
picPaintBoard.Line -(.ScaleLeft + LineWidth, .ScaleHeight - LineWidth), &H8
开发者眼中的编程语言…… 寻下一突破口?黑莓推Project Ion项目,正式进军物联网 无人驾驶汽车真的要来了:飞思卡尔研制视觉芯片 支持物联网开发! Qt发布5.3版与嵌入式企业版 5月23日:Java已经19岁啦! Google发布Dart1.4版本,新增Observatory工具 《近匠》Mixtile:跑在盒子中的嵌入式平台 从研发、平台化到营销:移动时代,汽车厂商如何升级? CTO俱乐部“云计算创新与实践”沙龙:云计算的发展趋势与那些“坑” 一周消息树:大型网站系统与Java中间件 良心推荐:6款基于云的移动应用开发工具 Google Project Tango第二弹:可生成3D图像的平板电脑 API企业化战略部署三部曲(一) 高通产品市场经理刘晓光:详解骁龙Android SDK 苹果史上最大交易:斥资30亿美元收购Beats 微软是否应该提高Windows版本的推送频率? 咸鱼大翻身?索尼将发展可穿戴游戏设备 popping:基于Facebook Pop引擎的iOS动画库 《近匠》专访极路由CTO康神 真正智能中心应当这样做 为什么说Android才是游戏开发者的乐土? 开发移动医疗应用必知的10个掘金点 个推CTO叶新江:云推送技术如何助力产品开发 《近匠》Face++:漫谈人脸识别 无线充电技术赛高:随意走动也能电量满格 体验至上!移动Web应用JavaScript UI库App.js 专访中国国航:传统行业的“轻应用观” 开发者找众筹,哪些网站更靠谱? 48小时脑力激荡 中美青年创客大赛英特尔北京选拔赛 “微应用+大平台”推动企业软件走向碎片化 浅谈Hive vs. HBase 十款最新的JavaScript开发工具 小弟想学习ASP,请问哪里有电子版的好教材下载? 新手问题。。我这个怎么不行呢?没反应 安全模式下目录权限问题 求在服务器生成静态html文件的方案,关键是还能添加内容到html。 Excel里能插入选择框吗 还有关于打印的问题请教各位达人。 问下,象E-book软件那样的书的翻页效果是怎么弄的啊?? 请问怎样将winform上的两点距离转化为float? 56k modem能在linux下上网的都有哪几个牌子以及型号?我的是全向的秋池飞叶,能上吗? sql语句求解! 7月7,好日子,和女友在一起了吗? 请教一个java连接oracle9i的问题~急 谁有PlayCASE可供下载?MrCase.com的网站我打不开啊。 各位兄弟,你们公司上班能上网吗? RegisterServiceProcess需要哪个头文件? 更深露重,有翅膀没翅膀的喜鹊都该回去睡觉了吧?:D 今天有想哭的么? 一道三级上机题帮忙调试,很简单。 DirectShow 音频 视频 同步的问题! 哪里能找到asp.net+MSSQL2000空间? DirectShow 在网络上广播AVI,一开始还好,可是当文件播放了20分钟以后,接收端的声音就明显的和视频不同步了。 form表单的几个问题 谢谢帮助 Client端和Server端的Socket用什么方法判断数据接收完毕? 我觉得vb.net比c#的程序可读性更强一些,大家认为呢? 最近很少来CSDN了更别说VB版了散分 各位高手,请问TREE组件如何用啊? 蝶恋花——写在七夕(淡月儿) 写入数据库的图片 如何读出来啊 急急急 急!!!!!111111111 写入数据库的图片 如何读出来啊 急急急 急!!!!!111111111 求救!!在线等候!! FORTRAN 77與C語言之間互相使用 关于CBCGOutlookBar的问题 如何在Delphi中调用WINRAR或WINZIP动态链接库的接口???(急,急,急......) 请教DataGrid控件新增一行的问题。 在unixware中使用消息队列,当消息队列比较长并且创建的消息队列较多时,出现堵塞? 为什么我调用 GethostName 这个函数 返回值是 O 但是GetLastError 却返回14呢!? 怎么通过http协议联接数据库呢?或者怎么样远程联接数据库? 如何清除ds.tables中的数据 奇怪!用unescape函数解码出来的一部分字符只能用document.write()的方法来显示? 求救!!!!如果我是定向招生读的大学,和定向单位签订11年和约,如果我不想去定向单位工作,该负怎样的法律责任!!!! 冬天来了,春天还会远吗?——中国程序员的春天 请教无标题窗口怎么移动?? 听同学说用一个按钮可以实现后退两页的,那么三页也可以实现吧,怎样写? 用hibernate 如何实现分页 我不太明白这些版本控制到底最大的好处是什么? 程序运行时实时变量出错? 各位老兄,请问在java中怎么解决这样<Node Name="N1" Value="1" />的XML 哪有winamp3的“汉化补丁”,源程序我有 使用CSocket类时出现访问冲突 庆祝网站初建:一般的界面,实用的文章例子,欢迎大家参观我的网站http://vcp4.51.net 帮帮小弟吧~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 请教各位大侠:VFP中SQL语言应该怎么学?? 作者介绍兵马俑,不仅介绍-----------,还从-----------联想到----------.小学一课三练五年级下册P28页8的(2). 从秦兵马俑中你会联想起哪些历史场景注意是“场景”.这里不欢迎那些打酱油的人.非诚勿答. 海底生物 半径为1的圆经过原点并且与y轴和x轴的正半轴分别交与AB两点半径为1的圆经过原点并且与y轴和x轴的正半轴分别交与AB两点 过点B作此圆的切线 交y轴于C杜阿布若点A的纵坐标是1 求点C的坐标 一点M【-3,0】为圆心,5为半径画圆,分别交x轴的正半轴,负半轴于PQ两点,P,Q的坐标为?P65T9 求1到5题 怎样把一块钱变成两块钱? 如何让一块钱变为两块钱?简单的赚钱办法 要实用的 我现学现会 怎么把一块钱变成二块? 一块钱怎么当两块钱用如题 如何将一块钱变为一百,一千,一万,十万,一百万?没有本钱!就一块钱,如何才能积少成多! 盘点31省(市区)一把手群众观:将心长沙计生家庭将享10余项计生奖励扶助中方对日舰机干扰中国海军演习提严正交“代码女神”网络爆红 清纯脱俗美照曝俄两百名公务员瞒报收入被免职 普京:王家瑞会见意大利客人纽约“涂鸦圣地”拆迁惹风波留学生心理健康频亮红灯 莫让脆弱的心首都航空长沙飞杭州航班受爆炸物威胁备遵义市委书记廖少华涉嫌严重违纪被免职贵州遵义干部群众坚决拥护对廖少华进行陶和瓷如何区分?银监会“升级”并表监管 银行跨业通道孩子频繁眨眼 谨防7大疾病来袭历经20多年培育 “陕茶一号”成国家北京银行半年净利同比增13.5%儿童性教育 要注意的三大误区李锦记助力2015中国厨师节 羊城保险业航母减速 中国人寿半年净利同比警惕!宝宝睡眠中的各种异常信号理财容易得的五种“病” 你躺枪了吗一家城商行的转型试验:“背包银行”中
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘