| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 971 人关注过本帖
标题:[求助]这个东西的原代码怎么写?
只看楼主 加入收藏
limaowin
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2005-3-24
收藏
 问题点数:0 回复次数:9 
[求助]这个东西的原代码怎么写?
图片附件: 游客没有浏览图片的权限,请 登录注册


      我想把计算按纽变成这个样(鼠标不放上去计算按纽是蓝色的,就现在这个样;鼠标放上去计算按纽变成红色,单击它计算按纽变成绿色;)在单击它的时候还要运行一个程序,
                         程序如下:
                ------------------------------------------------------------------------
                   Private Sub Command1_Click(Index As Integer)
                     Dim x As Single
                     x = Val(Text1.Text)
                     Text2.Text = x * x
                   End Sub
                 -----------------------------------------------------------------
             请问这段程序要怎么写????
                    
搜索更多相关主题的帖子: 代码 
2005-03-28 14:04
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
Mouse_Over Mouse_Down 事件。

天津网站建设 http://www./
2005-03-28 17:18
limaowin
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2005-3-24
收藏
得分:0 
不懂,你可以写下来吗,麻烦你了!!!!

我是新来的,希望和大家多多交流! 我的QQ:404108102 E-mail:limaowin1@
2005-03-28 18:38
帅雨雨
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2005-3-28
收藏
得分:0 
用鼠标事件Mousemove,MouseDown,MouseLeave
用一个BUTTON为例哈:
设置BUTTON鼠标事件Mousemove(当鼠标移上去时)
在里面输:
Button.BackColor = System.Drawing.Color.Red
也就是当鼠标移上去时BUTTON的背景颜色改成红色
然后设MouseDown鼠标事件(鼠标按下去时)
Button.BackColor = System.Drawing.Color.Green
最后MouseLeave事件(当鼠标离开控件)
Button.BackColor = System.Drawing.Color.[你BUTTON默认的颜色]
OK了~~






 
2005-03-28 19:07
happyocean
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2005-3-24
收藏
得分:0 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.BackColor = vbRed              /* 颜色改变
End Sub

要在属性面版将command1的style属性改成1才行

这是其中的一种变色

另外的自己写

2005-03-28 19:25
grapebee
Rank: 1
等 级:新手上路
帖 子:40
专家分:0
注 册:2005-3-24
收藏
得分:0 
那如何用Mousemove,MouseDown,MouseLeave来实现菜单自动下拉呢,就像本论坛的中标题下面的一些选项,鼠标放上去就可以弹出下拉内容,请指教
2005-03-29 08:45
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
菜单只有Click事件。

天津网站建设 http://www./
2005-03-29 11:11
limaowin
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2005-3-24
收藏
得分:0 
Private Sub ButtonPictur1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) 电脑提示错误??? If MouseOver Then Exit Sub StopSounds ButtonPicture1(Index).Picture = Image4.Picture End Sub

我是新来的,希望和大家多多交流! 我的QQ:404108102 E-mail:limaowin1@
2005-03-29 19:45
philosophy
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2004-12-21
收藏
得分:0 
Loadpicture("")
试试?

2005-03-31 14:54
limaowin
Rank: 1
等 级:新手上路
帖 子:69
专家分:0
注 册:2005-3-24
收藏
得分:0 
上面的朋友,Loadpicture("")是什么意思!

我是新来的,希望和大家多多交流! 我的QQ:404108102 E-mail:limaowin1@
2005-03-31 18:10
快速回复:[求助]这个东西的原代码怎么写?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.036237 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved