关于动态的调节 窗体的透明度 的问题

[阿浩No_1]

我想问大家一个问题
我想动态的调节 窗体的透明度(1为默认状态)
我的代码是: me.opacity-=0.05
if me.opacity=0.2 then me.opacity=1
但测试结果行不通,窗体无限变淡,但却变不回初始状态.奇怪啊

[yufenfeila]

这样就可以了：

Me.Opacity -= 0.05
If Me.Opacity <= 0.2 Then Me.Opacity = 1

因为Opacity是Double型的，有个精度问题

[cliff1002]

我又
来晚了

[super_zhaowenke]

up

[LiloZhu]

yufenfeila(雨纷飞啦) 测试通过.....

我加了一个timer 控件...^^

Private istg_flag As String = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Me.istg_flag = 0 Then
Me.Timer1.Start()
Me.istg_flag = 1
Else
Me.Timer1.Stop()
Me.istg_flag = 0
End If


End Sub

Private Sub from_trun()
Me.Opacity -= 0.05
If Me.Opacity <= 0.2 Then Me.Opacity = 1

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
from_trun()
End Sub