标题:一个很简单的问题,两个语句,到底错哪了。
只看楼主
winorange
Rank: 1
来 自:浙江宁波
等 级:新手上路
威 望:1
帖 子:136
专家分:0
注 册:2008-3-29
 问题点数:0 回复次数:8 
一个很简单的问题,两个语句,到底错哪了。
我昨晚在两个picturebox的click事件中,分别写了这两句me.opacity=me.opacity+10   和me.opacity=me.opaciyt-10
可是只有一个升的按钮能用,下降的那个就是不能用。
我本来想做两个按钮,来控制窗口透明度的。可是实现不了。
搜索更多相关主题的帖子: 一个小问题 
2008-08-23 10:05
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
得分:0 
这两句写在同一个按钮中??
当然没效果啦.
把代码发全点吧

飘过~~
2008-08-25 09:28
zhouqingwuji
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2007-10-16
得分:0 
其他代码呢 ?

我就是我,不是别人!
2008-09-03 23:06
ynyxsky
Rank: 2
等 级:新手上路
威 望:4
帖 子:132
专家分:8
注 册:2008-2-27
得分:0 
me.opacity的值最大才1啊,如果你要调10%,那么就写0.1
2008-09-04 14:31
kuangxi
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2008-7-28
得分:0 
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Single
        i = Val(Me.Opacity)
        If i < 1 Then
            Me.Opacity = Me.Opacity + 0.1
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i As Single
        i = Val(Me.Opacity)
        If i > 0.1 Then
            Me.Opacity = Me.Opacity - 0.05
        End If


    End Sub
End Class首先明确透明度的区间是[0,1]
用if来判断要控制的图片的透明度

新手意见,请高手指正
2008-09-08 22:29
winorange
Rank: 1
来 自:浙江宁波
等 级:新手上路
威 望:1
帖 子:136
专家分:0
注 册:2008-3-29
得分:0 
"me.opacity的值最大才1啊,如果你要调10%,那么就写0.1"应该就是这个问题,我今天在一本书上看到了,谢谢各位指教呀。

处处尽力尽快,一切顺其自然。
2008-09-15 15:43
shankhands
Rank: 1
等 级:新手上路
帖 子:24
专家分:0
注 册:2008-10-6
得分:0 
雙學到了一點新東西,謝謝!
2008-10-06 16:43
vip702
Rank: 1
等 级:新手上路
威 望:1
帖 子:11
专家分:0
注 册:2008-10-10
得分:0 


确实

我们经常会忽略小的东西

提醒我们要注意细节问题
2008-10-10 15:34
winorange
Rank: 1
来 自:浙江宁波
等 级:新手上路
威 望:1
帖 子:136
专家分:0
注 册:2008-3-29
得分:0 
谢谢噢

处处尽力尽快,一切顺其自然。
2008-10-11 08:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-229525-1-1.html




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

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