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

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
从 实 例 看 Delphi 4 中 的 动 态 得到Memo中当前的行列号-Delphi资料 改变RichEdit的游标位置-Delphi资料 回车代替Tab移动输入焦点-Delphi资料 获取Windows临时路径-Delphi资料 获取当前鼠标位置的类名和句柄-Delphi资料 检测存在打印机-Delphi资料 将BMP文件转换为JPG文件-Delphi资料 类似链接的效果-Delphi资料 利用COM技术实现外壳扩展的属性页-Delphi资料 留意DELPHI的命名规则 判断元件有哪一特定的属性-Delphi资料 全局热键-Delphi资料 让自己的程序防破解-Delphi资料 如何查找一个目录下的某些特定的文件-Delphi资料 如何在全屏幕显示一个AVI文件-Delphi资料 删除文本文件中的多余空格-Delphi资料 实现Hint的分行提示-Delphi资料 实现应用程序的文件拖放功能-Delphi资料 死循环的控制权转让-Delphi资料 添加桌面快捷-Delphi资料 统计中英文字个数-Delphi资料 为 应 用 程 序 添 加 口 令-Delphi资料 应用软件加入全面的功能权限控制-Delphi资料 用Delphi编写安装程序 用Delphi实现超级链接 用Delphi实现子目录级的文件查询 用Delphi自制英语复读机 用DEPHI为应用软件建立注册机制-Delphi资料 优化delphi5.0秘籍大曝光 元件的handle的建立-Delphi资料 如何用java实现报表打印?? 请教高手:ORA-03113: end-of-file on communication channel错误发生的原因,如何解决? 认识的MM,感觉还可以,今天对我说 降工资,工资不够交房租,是什么意思呀 请哪里有DB2 UDB 7.2 for AIX版下载(问题解决马上给分) 数据结构和C++ songzx66版竹去哪了?有为版竹无辜删除帖子,你为什么不管? 插入数据到数据表中,SQL SERVER中只可以用查询分析器吗?我想用企业管理器来实现,有什么方法吗? 考程的优秀参考书,观者有份! 请管理员出面解释! 是谁向我要树型菜单代码的? IT生涯 求助 请有兴趣的人们评价一下B.Strostrup的TC++PL吧。 请问一个问题?? 高手来啊高手来!怎么把高手的数据库放到treeview里面去? 删不掉SQL server怎么办啊? EXCEL工作表的页码问题 帮忙一下:多开几个线程同时发送数据能提高网络传输速度吗?通过internet,用TCP/IP 关于和AUTOCAD R14或2000的支持!向高手请教! 我们与外国人的不同之处 碰到一件奇怪的事情,不知怎么会事,真让人着急 Windows server 2003支持红外接口吗? 将*.html文件转为*.txt文件之后为什么打不开文本啊!! 虚心请教!!! 水园版竹为何封杀本王账户? 如何从QQ信息报文中得以其中的QQ号码呢? Install Shield安装问题 asp取本页面的text筐中的数据 datagrid控件在绑定了一个数据源dataset后,当dataset中的内容改变后(数据结构发生变化) 请帮忙推荐一款电子阅读器` 用ATL作的控件属性保存问题非常有趣来看看吧 请问access里的自增变量的值是什么类型的? 请各位帮忙! 请问一个问题?? 1、媒体播放速度不正常;2、怎样支持多语言? 我的困惑 關于SQL SERVER連接的問題 datagrid中用超链列传递参数出现的问题????waiting。。。。。 IBM有没有提供B/S的DB作示例供下载? 将*.html文件转为*.txt文件之后为什么打不开文本啊!! 虚心请教!!! 众爱卿可还记得本王吗? 如何根据身份证信息提取生日信息?求相关SQL语句 高分请教WIN2000中超难问题(分不够可以加)! 一个.h及.c可以被两个Project共用,不过我想在另一个Project中更改,但有时会出现提示"不能存储"等,有时.h文件被自动删除..怎么办? 怪现象:Windows 还未启动就黑屏 关于CRecordSet的问题 很菜的问题,希望不要见笑! 关于cookies的问题, 请教各位了. 很急!!!!!! 我日,天天见鬼,我用wsdl做了个webservice的代理类,把文件包含到webapplication中,debug的时候竟然说namespace System.Web.Services 本王对ISharp版竹表示最遗憾的同情和失望 哪位大哥能解决VB打开picture对话框时---蒸发的问题? 为什么我用jsp访问不到bean的属性???[100分,在线结帖] jack汉文是什么 世上本无事,庸人自扰之,这句话还有没有上下文, 平抛运动的合速度方向会是竖直吗?如题,物体在水平方向始终有速度,那么在不计空气阻力的情况下,最终物体的竖直分速度远大于水平速度,因此可以近似看作物体的合速度为竖直方向,这样想 有个电影名叫jack,中文名叫什么 什么样的课是优质课 平抛运动 垂直速度与质量有关吗Vy=gt 这条公式里面的g跟质量有关吗 是Vy=mgt吗?参考答案直接Vy=gt 而我们老师写的是Vy=mgt 已知函数f(x)=2x3+6x2+m-1(m为常数)在〔-2,2〕上最大值2.则函数在〔-2,2〕上最小值为 jack walk的中文什么意思 新课程标准下优质课该怎么评——观摩浙江省思想政治优质课评比活动有感 两地间的公路长140千米甲乙两辆车相对出发.甲车行80千米0.8小时后与乙车还未相遇 如何感受自尊带来的快乐? 哪里可以小学数学优质课观摩 为什么在星图中的位置是上北下南左东右西?快回答啊,请具体说明,短小精炼, 怎样养成豁达开朗的性格 100万有多大——东庐中学周晓燕—初中数学优质课观摩课集锦. 上北下南左西右东还是右西左东好搞的,到底是什么啊?可靠点的, 政治题怎样才能感受到自尊的快乐 是七年级下册的一道政治题 . - - .班里同学没义气 . 世上本无事 庸人自扰之出自何处世上本无事 庸人自扰之出自哪里 在地图上判断南极洲的方向...是上北下南左东右西不?...还有...在地图上判断北极洲的方向...是上北下南左东右西不?.....麻烦想一下... 为什么会发生地震?地震可以预报吗? 世上本无事庸人自扰之出自哪里,谁说的? 供水管道有流向吗 罗盘上的方位为什么是“上北下南左东右西”? lim x趋于无穷,xsin(2x/1+x^2)= 扩频通信与宽带通信的含义是相同的吗 罗盘里的东西是怎么标的?地理上是上北下南左西右东,可罗盘里标的是上北下南,左东右西,为啥? 试说明多项式(4x²-3x+1)+(4x²-3x+2y²)—(8x²—6x+2y²)的值与x的值无关.马上,说的出原因, 什么是“理论基础”.顺便问概念OTL 话说其实是基础梳理的填空.呃、、植物组织培养技术的理论基础是_____________.OTL怎么感觉好多内容都可以填的.所以过来问一下“理论基础”是什么概念. 将中文翻译成英文 一个活泼开朗的女生,我的身高是班里女生中倒数,我们几个每天在一起玩,这就是我. 攀登作文600字 场的概念是如何建立的 急需一篇作文,关于“假如你是一个班主任,怎么管理班上” 写“攀登”的作文600字以上 法人的概念及法人成立的基本条件 我想明天的男子四百米接力赛将是激动人心的 用英语翻译 求作文【攀登路上】要求绝对高分作文!语言精辟,无错别字,内容新颖! 什么意思“有条件成立” 物体在倾角为45°的斜面顶端水平抛出,做平抛运动,什么时候水平位移会等于竖直位移? 求作文《攀登》.30分求作文以攀登为主题,600字,注意:要求从社会阴暗面写(即写某些人为了利益不择手段) 有没有“type on the keyboard” 这种说法?我想表达“在键盘上打字”,可以这样说吗?请赐教. 我将会很想念他就像想念你一样 英文怎么说 不要机器翻译 他们每年都在美国举行一次汉语比赛 用英语怎么说? DN1000水泥管水流量怎样计算四道排水沟1米宽,850米长,平均1.5深;问夏季能从直径1米的水泥管顺利排出吗?另求水流量计算公式? Sade leapt to fame with the ___ of her debut single Your Love Is King.(5 分)A.productionB.issueC.emissionD.release lim x趋向于无穷 (1+2x)^1/x=?,为什么 给客户的BL复印件上要有“on board”字样吗?什么时候给的BL复印件上没有 on board?我在网上看到有人这样说:This means the supplier wants you to pay 30% by tele-transfer (TT) immediately you confirm the order. Balance “就那么一瞬间,我爱上了你” 用英文怎么说? 求lim x趋向于无穷{1+(1/2x)}^-x ? DN1000管道压力为10KG1小时流量是多少 "全世界都知道我爱上了你” 用英文怎么说? 平抛运动的合速度方向为什么是不断变化的呀,对于水平方向的速度一直是水平方向的,对于竖直方向的速度也是一直朝着竖直向下的方向呀,为什么合速度时就会不断变化方向呀,合速度方向难 小孩的睡眠时间是多少 课前演讲该讲些什么呢我们每天有一个课前演讲 快到我了 该讲些什么呢 有意思点的话题 不要太无聊 最好是比较新的 轻松一点的 最好是可以引起共鸣的东西 毕竟我们是90后么 义薄云天中的薄字是什么含义 jack汉语是什么 (土旷可益垦辟,民稀可益招徕,何废郡之有?乃案视图记得汉召信臣陂渠故迹)de翻译 求小学体育优质课三、四年级说课稿内容要新颖一些,最好带课件,有的发下,没有可以指导一下也可以... 为什么我的悠悠球把绳子换成粗一点的睡眠时间就变短了?如题 什么样的课才是优质课 平抛物体运动的竖直分速度为什么是 v=gt 2014圣保罗秋冬时装周开幕美国白宫称不会停止要求俄罗斯移交斯诺澳新政府继续禁止华为参加宽带网络竞标一名越南籍变性人涉嫌贩毒被马来西亚警谷歌被曝建造海上神秘建筑物 或为海上格鲁吉亚执政联盟候选人总统选举胜券在日本在亚太动作频频放言制衡中国 中方剧场版《圣斗士星矢Legend of男子胡须长4.3米创世界纪录 32年安倍拟借索契冬奥会开幕会晤普京磋商领美国白宫称不会停止要求俄罗斯移交斯诺韩婚姻报告显示晚婚成潮流 姐姐新娘现日本前首相博客曝出核能阴谋论 被批可外媒称土为导弹采购留后手 以防与中国民调称奥朗德成为法国史上最不受欢迎总美宾州大学将向该校性侵案受害人赔59看到蛇会害怕?研究称恐惧有助灵长类避普京称索契冬奥会欢迎同性恋者参与 不科学家称半数早产因细菌感染 正研究简老奶奶订错机票搭错机 格拉纳达差一字澳大选后首个民意调查显示阿博特支持率南京新增三大文博场馆青奥中国体育代表团成立京津冀将完成北斗应用系统燃气管网全覆守望文明这段记忆不只属于一代人让校训成为传播社会主义核心价值观的重埃尔多安在总统直选中获胜青春早逝 乡土情深厚重的黄土 厚道的人我的北京知青朋友我的中国音乐梦浙江教师教育质量监控中心成立厦门理工学院获世界大学生方程式汽车大中央财政四年累计安排营养改善计划专项卢旺达隔离首例埃博拉疑似患者拜耳向地震灾区捐赠资金与物资我科学家揭示桃的进化历史没有比救活一个人更欣慰的事了意大利面临严峻非法移民问题兰州如何摘掉污染“黑帽子”合作成为东盟外长会的主旋律
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘