一个很简单的问题，两个语句，到底错哪了。(页 1) - VB.NET论坛

winorange 发表于 2008-8-23 10:05

一个很简单的问题，两个语句，到底错哪了。

我昨晚在两个picturebox的click事件中，分别写了这两句me.opacity=me.opacity+10 和me.opacity=me.opaciyt-10
可是只有一个升的按钮能用，下降的那个就是不能用。
我本来想做两个按钮，来控制窗口透明度的。可是实现不了。

bygg 发表于 2008-8-25 09:28

这两句写在同一个按钮中??
当然没效果啦.
把代码发全点吧

zhouqingwuji 发表于 2008-9-3 23:06

其他代码呢？

ynyxsky 发表于 2008-9-4 14:31

me.opacity的值最大才1啊，如果你要调10%，那么就写0.1

kuangxi 发表于 2008-9-8 22:29

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来判断要控制的图片的透明度

新手意见,请高手指正

winorange 发表于 2008-9-15 15:43

"me.opacity的值最大才1啊，如果你要调10%，那么就写0.1"应该就是这个问题，我今天在一本书上看到了，谢谢各位指教呀。

shankhands 发表于 2008-10-6 16:43

雙學到了一點新東西,謝謝!

vip702 发表于 2008-10-10 15:34

恩

确实

我们经常会忽略小的东西

提醒我们要注意细节问题

winorange 发表于 2008-10-11 08:31

谢谢噢

页: [1]