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
 
Links zum Thema
Fensterform ändern
Mehrfaches Öffnen von Formularen verhindern
Wechselseitiger Formularzugriff

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (13,1 kB) Downloads bisher: [ 923 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 15. Januar 2012