![]() |
Tipp 0020
|
Form ein- und ausblenden
|
 |
|
Autor/Einsender: Datum: |
|
Michael Werner 25.09.2003 |
|
Entwicklungsumgebung: |
|
VB.Net 2002 |
Framework: |
|
1.0 |
|
|
Dieser Tipp stellt ein einfaches Beispiel für die Eigenschaft Opacity einer Form dar,
die je nach Durchsichtigkeit Werte zwischen 0 und 1,0 annehmen kann und damit den Grad der Transparenz
bestimmt.
|
|
|
Public Class Form1
Inherits System.Windows.Forms.Form Vom Windows Form Designer generierter Code
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = 0
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Timer1.Tick
Static i As Int32
i += 1
If i >= 100 Then i = 0
Label1.Text = CStr(i * 0.01)
Me.Opacity = i * 0.01
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
If Button2.Text = "&Stop" Then
Timer1.Enabled = False
Button2.Text = "&Start"
Else
Timer1.Enabled = True
Button2.Text = "&Stop"
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (13,1 kB)
|
Downloads bisher: [ 1004 ]
|
|
|