利用VB实现浮动按钮

2016-02-19 21:08 22 1 收藏

下面图老师小编跟大家分享一个简单易学的利用VB实现浮动按钮教程，get新技能是需要行动的，喜欢的朋友赶紧收藏起来学习下吧！

【 tulaoshi.com - 编程语言】

在微软的很多软件（如WORD）的工具栏中，都采用一种浮动按纽，即正常情况下按纽的图标呈灰色，当鼠标移动到某一按纽时，该按纽自动向上凸起且变为彩色，并在按纽的右下方有一标签提示该按纽的功能，鼠标移开后又自动还原，这种按纽用VB实现时，方法如下：
　　1.先用绘图工具作出按纽图标后存盘（如1.bmp），再用图象处理软件将该图标转换为灰度图或浮雕图后再存盘（如2.bmp）。
　　2.运行VB，建立一新窗体（如form1）。
　　3.在窗体上需要建立按纽的位置处建立一图片框（如image1），其大小和图标相同，并将其picture属性设为2.bmp。
　　4.在image1周围建立由四个长度相同的line控件（如line1~4）组成的方框，方框要比image1控件稍大，否则达不到预计效果，将上面和左边的颜色设成白色，下面和右边的设成黑色，并将四个line控件的visible属性都设成false。
　　5.在程序中加入以下内容即可：
　　PrivateSubImage1_MouseMove(BottonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　Image1.Picture=LoadPicture("c:1.bmp")
　　Line1.Visible=True
　　Line2.Visible=True
　　Line3.Visible=True
　　Line4.Visible=True
　　EndSub
　　PrivateSubForm1_MouseMove(BottonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
　　Image1.Picture=LoadPicture("c:2.bmp")
　　Line1.Visible=False
　　Line2.Visible=False
　　Line3.Visible=False
　　Line3.Visible=False
　　EndSub->

来源:http://www.tulaoshi.com/n/20160219/1625336.html

上一篇：用VB制作TopMost类型窗口
下一篇：特别的精心好友分组设计_红颜再美也是虚

看过《利用VB实现浮动按钮》的人还看了以下文章更多>>

用VB制作即时动态按钮

标签：编程语言网络编程

首先，在主窗体上生成两个大小一样的按钮Command1和Command2，将它们的Style属性都设成1－Graphical，将Command1的Picture属性设为d:vbicomail01a.ico(变化前的图案，一个关闭的信封)，将Command2的Picture属性设为d:vbicomail101b.ico(变化后的图案，一个打开的信封)。其次，在主窗体的PrivateSubForm－load()中加入以下代码： Form1....

VB的显示/隐藏Start按钮

标签：编程语言网络编程

'*ModuleName:Start_Module '*ModuleFilename:Start.bas '********************************************************* '*Comments:Show/Hidethestartbutton '******************************************************** PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassN...

jQuery 浮动广告实现代码

标签： Web开发

实现方法：代码如下: !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" html xmlns="http://www.w3.org/1999/xhtml" head title浮动广告/title style type="text/css" #qqonline{ background-color:red; border:...

vb实现隐藏Mouse

标签：编程语言网络编程

Type POINTAPI x As Long y As LongEnd TypeDeclare Function GetCursorPos Lib "user32" Alias "GetCursorPos" _ (lpPoint As POINTAPI) As Long'隐藏MousePublic Sub toHideCursor()ShowCursor 0End Sub'显示MousePublic Sub toShowCursor()ShowCursor 1End Sub

利用VB测声卡

标签：编程语言网络编程

在一个多媒体应用程序中，如果涉及对声音的播放与操作，那么我们就有必要先对用户系统中的声卡及真功能进行一下测试。幸好有VB，所以我们要实现这些功能并不用费多大力气（也就是吃顿饭的力气），在下面的程序中我们将利用VB调用两个windowsApi函数--Waveoutgetnumdevs()和Waveoutgetdev-capS()来访问设备驱动程序，获取有关信息，实现上述目的...

查看更多精彩>>