|
Zde je ukázka změny průhlednosti formuláře po kliknutí do něho - levé tl. zvyšuje průhlednost, pravé opačně
Private Sub Form1_MouseClick(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
If e.Button = Windows.Forms.MouseButtons.Left Then
If Me.Opacity > 0.3 Then Me.Opacity = Me.Opacity - 0.05
Else
If Me.Opacity <= 0.95 Then Me.Opacity = Me.Opacity + 0.05
End If
End Sub
Nevím, proč první změna jde přes černé pozadí, ani jak bliknutí odstranit. S tímto se bliknutí odbude po startu a pak již neruší
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = Me.Opacity - 0.001
End Sub
|