Opacity in runtime?

[compugeek]

How do you change a form's opacity during run-time?

[mutant]

'for example 12% opacity
Me.Opacity = 0.12
'or 67%  opacity
Me.Opacity = 0.67

Opacity accepts a Double value and a value between 0 and 1.

[compugeek]

Hm, no... I am using a TrackBar control, and at whatever position it is at, it will make the transparency. That doesn't seem to work, here's my code:

Dim opace As Integer
       Dim Frm1 As New Form1()
       opace = tbOpacity.Value

       If opace = 1 Then
           Frm1.Opacity = 0.9
       End If
       If opace = 2 Then
           Frm1.Opacity = 0.8
       End If
       If opace = 3 Then
           Frm1.Opacity = 0.7
       End If
       If opace = 4 Then
           Frm1.Opacity = 0.6
       End If
       If opace = 5 Then
           Frm1.Opacity = 0.5
       End If

 

I dunno why this won't work.

[aewarnick]

Fist of all you are using your if control statements wrong. You code makes the program check each and every one even if it finds a match. In some cases you want that but not yours. Use "else if" after your first if. Edited September 21, 2003 by aewarnick

[Volte]

Why not just use (10 - opace) / 10? Also, you can't just create a new instance of the form as you are doing and change it. You need to modify the current instance of the form using the Me keyword. Try this (in the TrackBar change event):

Me.Opacity = (10 - opace) / 10

[compugeek]

Hey, thanks Volteface - and aewarnick for helping as well.

 

It worked!