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

用Visual Basic设计三维图形按钮

HTML文档下载 WORD文档下载 PDF文档下载
用Visual Basic设计三维图形按钮

  Visual Basic是一种非常有效的编程工具,它简单易学,功能强大。世界上百分之八十的Windows应用程序都是用它编写的。本文仅在这里讨论怎样用Visual Basic编制一个三维图形动态按钮。


  三维动态按钮,就是在窗口中凸起显示的按钮。当用鼠标点击它时,变为凹下显示,当鼠标按键松开时,又恢复为凸起显示。还可以为它设计一个提示信息,当鼠标移至按钮上面时,显示在窗口的下端。Visual Basic下的Command控件虽然也是三维显示的,但可惜不能在按钮上设置图案。


  首先,需要两个图标,这两个图标图案一样,只是一个为凸起显示,另一个为凹下显示。凸起显示的图标左、上两边线为亮线条,右、下两边线为暗线条。凹下显示的图标则刚好相反。Visual Basic已经在VB\BITMAPS\TOOLBAR3子目录下为用户准备了一些现成的三维按钮。如果它们不能满足你的愿望,就需要自己设计图标了。图标可以用Windows的画笔软件Paint制作成BMP位图文件,也可以用Borland C下的Work Shop软件制作成ICO图标文件。建议大家用前者,这样更灵活方便一些。不过,千万记着将图案缩放至所需要的大小(用鼠标箭头点住位图四周几个边界缩放点拖动即可)。否则,您的按钮可能大的将充满整个格式窗口。较简单的方法是打开一个Visual Basic现有的三维位图,在上面大肆修改以后,换一个文件名存盘。假定,你的凸显位图文件名为3D-up.bmp。凹显位图文件名为3D-dwn.bmp。


  现在来设计三维按钮控件。Image控件和Picture控件均可用于制作三维按钮。但Image控件效果较好一些。假设你的三维按钮控件名为Image1。设置其Picture属性为C:\....\3D-up.bmp。三维按钮事件的过程程序可以有两种方法编程:


1. Sub Image1_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)


  image1.Picture = LoadPicture("C:\......\3D-up.bmp")


  End Sub


  Sub Image1_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)


  image1.Picture = LoadPicture("C:\......\3D-dwn.bmp")


  End Sub


  Sub Image1_Click ()


  [用户按钮执行程序]


  ......


  ......


  End Sub


  另一种方法是:


2. Sub Image1_Click ()


  image1.Picture = LoadPicture("C:\......\3D-dwn.bmp")


  [用户按钮执行程序]


  ......


  ......


  image1.Picture = LoadPicture("C:\......\3D-up.bmp")


  End Sub


  如有必要,可参照上面程序再编制一个双击按钮事件过程。


  当鼠标移到按钮上面时,在格式窗口下端显示一行提示信息的设计方法是:在格式窗口最底部增加一个标签控件Label1,设置其Caption属性为空。编制按钮事件过程如下:


  Sub Image3_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)


  Label1.Caption = "<提示信息......>"


  End Sub


  别忘了当鼠标移出按钮时擦掉提示信息。编制格式事件过程:


  Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)


  Label1.Caption = ""


  End sub


  除非你把格式边界类型BorderStyle定义为0-None、3-Fixed double类型或者1-Fixed Single类型外加取消最大化按钮和最小化按钮(将格式的MaxButton、MinButton属性设置为False)。否则,当用户改变格式窗口大小时,你的提示信息有可能不在窗口的底部、或者短于窗口宽度甚至丢失,所以提示信息的位置和长度应随着窗口的变化而改变。具体编程如下:


  Sub Form_Resize ()


  label1.Top = scaleheight - label1.Height


  label1.Width = scalewidth


  End Sub


360指责百度窃取用户信息 公布美杜莎插件技术分析 苹果正式发布iOS 6.1 最快本周日即可越狱 苹果高管:运行iOS 6的设备达3亿 Chrome OS 黑客大赛总奖金为314.159万美元 微软雷德蒙研究院副总裁:从计算研究到惊人发明 还驾驭不了4核? 别人已模拟出百万核心上的并行 RIM将网络直播BlackBerry 10发布会 解读TDD的五大误区 Amazon 2012财年Q4财报:电子书业务增长70% 从暴风影音CTO到创业者:画中画相机话中话 为什么Android应用开发总要比iOS晚? 传奇VC马克.安德雷森:未来的企业什么样? 呼吁国会通过“创业签证”:奥巴马助力美国招揽海外人才 Surface Pro最低1019美元,价值究竟如何? 搜狗号码通产品经理谈微创新 数据和运营更关键 在线推荐系统是如何进行工作的? 欧朋浏览器上架App Store,iOS生态真要变天? 苹果iOS 6.1地图搜索API将替代谷歌Places Oracle向开发者承诺 称尽快修复Java安全问题 日本:开发者与投资人都不容忽视的移动市场 Unity 3D引擎:十大最火的插件推荐 重塑品牌 RIM更名黑莓 发布BlackBerry 10移动操作系统及新手机 NoSQL依赖的不只是大数据 还有应用程序架构的改变 新一代Apple TV增强内在组件 外观不变 加速Web开发的7款知名HTML5框架 Firefox OS开发者日来袭 5小时15款Web应用出炉! 微软发布Office 365家庭高级版 订阅费499元/年 鲍尔默对Office信心满满,十亿用户量触手可及 【多图】梦幻现实 IBM的未来超级计算机水世界 一名骨灰级工程师的OpenStack部署总结引发的讨论 解读DuckDuckGo搜索 百万点击也敢叫板Google 号外:今天终于卖了侯捷的Inside The C++ Object Model ,休息时可以翻番,为了祝贺特灌水100 谁能给我连 接sql2000数据库数据原的原代码===火急!!! 高手帮忙,如何让我能用jbuilder5? 请问用Perl编写用户交互程序 请问各位大哥,上海的高程考试在哪里报名啊? dcom 服务器关闭时怎能捕捉异常 三戒,有请~~~ 谁知道websphere的试用版怎么做掉? 打印DataReport时怎样用API改变系统的纸型,急急急急急急急急急!!!! 新来的~~来报到了~~只能送20分~~希望大家不嫌弃~~ 请成功使用JBuilder5的朋友指教!! 激情放送 五位QQ号,100块,你会要吗? 555~~~~挂了PASCAL挂了,5555~~~~我学不好DELPHI 了5555谁帮我呀!!! 有编过游戏修改器的高手吗? jinesc领分~~~ 如何使UpDown每次增加或减少0.5? 有个问题很困惑,请教 上傳后,服務器端如何接收? 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!! 我快神经了,求救 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!!! 别笑我傻,又有简单问题 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!! 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!!!!!!! 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!!!! 大家都谈谈建立什么样的目录结构能更好的管理硬盘里的东东 lilo 如何设置??请赐教!! 各位高手好!现在有谁是正在使用 LINUX 上网的.报一下好吗!!!!!!!!!!!1 mts是什么? mts是什么?? 学习汇编要什么基础,要看什么样的书,有没有好的汇编的电子参考书下载呢? 腾讯的qq怎么不好用了? 有CCNA,Scjp2,高程的计算机本科生能卖多少?(答者有分,只能给33分,没办法) word的表格问题 如果开另外一个线程来进行注册码检验,是否比较难CRACK? 请问高程考试考试的难度 怎么让程序启动的时候接受参数? mts是什么??? 我也调查:这里有多少冠名以“独孤”的,为何独孤???? 菜鸟SOS 个人论:编写程序方法论(原作者,huangbeyond) 向流版主学习,戒网!戒网!成天在网上瞎转,不如下去加强学习,碰到问题再上网寻求答案,天天在网上泡得久了,看到各大PB网站的编程技巧都有些视而不见了.....到PB论坛很多人都象到自己喜爱的聊天室了,到论坛好象就是来聊天一样.....戒网!戒网! 如何编写一个集成Ms Word的控件,能够处理WEB上的文件排版 怎么不能下载呢? 我是女孩,有人信吗??嘻嘻~~ 谁知道关于用vc编游戏的书,请各位大虫们介绍介绍好吗?谢谢了!!!!!!!!!! 有关sql server不能显示中文啊?? 关于B/S动态刷新问题 想不到,摩机三年今天居然栽了 beginpaint函数有什么用? 英语翻译像四川九寨沟,张家界,安徽黄山,桂林山水,等等 英语翻译词组 梦想中的旅行 可不可以用dreamy trip?dreamy 不是有 虚幻的 模糊的意思嘛? 英语翻译 "周末去旅游好吗?"的英文翻译是什么? “旅行很快就结束了”英文翻译要用过去时! 王勃故事 文言文 急 英语翻译 翻译下就行 我看看大意3. Results and discussions3.1. Extraction kineticsThe characteristics of the bed and the particles were: particle average diameter of 3.9×10−4 m, true particles density of 1524 kg/m3, apparent bed de 翻译英文:天气变冷,注意保暖. 文言文 王勃故事 我们用了一周的时间在桂林欣赏了美丽的风景英文翻译 天气变冷了 英汉互译 文言文 王勃故事 的题 我喜欢那美丽的风景!用英语怎么说? 天气变冷了 用英语怎么说 It is 《王勃作》译文我不要滕王阁序的译文,我要的是《王勃作》这篇的译文,是写王勃在写《滕王阁序》的过程等等的那篇古文啊~OK? 我们用一周的时间在桂林欣赏了美丽的风景英文翻译 用英语翻译 :这的天气突然变冷, 《唐才子传》王勃的译文?开头是:勃子子安,太原人,王通之孙也.百度上的那个不一样的~不要复制过来,请看清楚了再回答! 我将站在巴黎铁塔的最高层去欣赏巴黎美丽的风景 用英语翻译不要拿机器翻译 英语翻译英语翻译:如果吃药之后还没好,我就带你去医院看病. 王勃故事(简短) 英语翻译希望哪位达人帮我翻译.事后会追加分值.摘要:发展旅游电子商务不仅是中国旅游业自身发展需要,也是信息时代中国旅游业面临国际旅游业竞争的必需.通过分析中泰旅游电子商务发 英文翻译:你需要带上一些衣服,因为在这个天气去山上,早晚有点冷 王勃故事 现代科学研究发现:人除了头部大脑外,还有一个大脑藏在肚子里,称为“腹脑”.换句话说,你再也不能像过去那样将肚子简单地视为“酒囊饭袋”了.它是你的“第二大脑”.那么,造 英语翻译我觉得,最理想的度假地一定是一个美丽的海滨城市,那里要有充足的阳光,柔软的沙滩和多姿多彩的海滩派对.还要有很多美女帅哥,数不清的椰子树以及一整天都放不完的动听音乐.我 英语翻译chicking file system on E最前面这个chicking是不是指系统的某个文件名呢? 英语翻译王勃著《腾王阁序》,时年十四.都督阎公之不信,勃虽在座,而阎公意属子婿孟学士者为之,已宿构矣. 旅游新热点 用个英文翻译 英语翻译Happy birthday to a special friend!Although I haven't known you many years,Perhaps because you've dried so many tears,Pleasure reigns as I these greetings send.Your happiness should last till all things end!Because you've been so sweet an 英语翻译王勃著《滕王阁序》,时年十四.都督阎公不之信.勃虽在座,而阎公意属子婿孟学士者为之,已宿构矣.及从纸笔巡让宾客,勃不辞让.公大怒,拂衣而去,专会人伺其下笔.第一报云:‘南昌 最热门的旅游景点在哪里?风景旅游景点最多旅游人数是哪里? ha ku na ma ta ta 翻译成中文是什么意思?我这个人是个英文盲. 求王勃《滕王阁序》的原文以及翻译 上海热门旅游景点有哪些? 英语翻译you never know until you try you uever know until you try and you never try unless you really try you give it your best shotyou do the best you can and if you've done everythingin your power,and still fail_the truth ofthematter is that yo 英语翻译看见机 英语翻译“你越轻视我,我越要游得快”.关键是“越---越---”句式 在中文里它的发音是ta.翻译成英文 英语翻译求翻译:滕王高阁临江渚,佩玉鸣鸢罢歌舞.画栋朝飞南浦云,珠帘暮卷西山雨.闲云潭影日悠悠,物换星移几度秋.阁中帝子今何在?栏外长江空自流. 求“去上海一定要去东方明珠电视塔游玩”的英文翻译,关键词include Close my eyes and feel your mindTime has passedI walk like a shadowNever knewWhat I am going throughYou touch my heart and take my breath awayWhisper on the wind so softlyLet the bright stars fill out dreams with loveReach for your hand (you re holdi 王勃展才 翻译 你给了我一次愉快地旅行 英文翻译 英语翻译它叫做——pet girl 诗歌鉴赏王勃《咏风》的答案 帮忙用英语翻译一句话 “一次遥远的旅行” 英语翻译 《咏风》王勃.这首诗整体上运用了什么表现手法,表达了诗人怎样的情感如题 英语翻译我相信你在中国将会有一个美好的旅行! 英语翻译 《咏风》 王勃 鉴赏 要短一点的,100来字左右,要短一点的,查到的都太长!100字就够了!答得好有的加分! 英语翻译 进行一次家庭旅行 以下英文翻译成中文这是啥意思giankangshenghuoyacheengde? 咏风 王勃此诗的余味 旅游景点英文翻译 英语翻译是7个词语和成的 英语翻译1.One pair of platinum and diamond jewelery2.a surprise gift3.A group of special envoy4.A mysterious lucky5.A beautiful story,a love song for some exciting6.Wearing a white wedding the bride7.She is the world's most beautiful bride8.At th 英语翻译先是关于九寨沟滴1.五花海2.五彩池3.我们路过了许多景点.(注意哈,过去时)4.熊猫海5.诺日朗瀑布6.树正寨还有一句:从山脚爬到山顶一共有3800米,但我和爸爸还是坚持爬了上去, 英语翻译To minimise ATM fees,withdrawal the maximum allowed each transaction,usually 20 banknotes or 20000 baht.Your personal daily withdrawal limit will be enforced if less than the equivalent of 20000 baht.If you intend to bring Travellers Cheq 英语翻译Ofcourse,in a company that’s grown from three employees to 10,000 and from zerovalue to hundreds of billions of dollars in about five years,it may bequibbling to talk about “problems”,but there’s no doubt that such rapid growthdoe
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn