TransparencyKey

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von Derfuhr.

    TransparencyKey

    Hey Leute,
    Ich habe in meinem Programm zur optischen verbesserung eine kleine Einblendung eingeplant, jedoch funktioniert nicht alles so wie ich es will.
    Beim Start des Programmes ist ein Schriftzug zu sehen, jedoch soll der hintergund der Schriftzuges Transparent sein.
    Beim laden der Form ist dieses aber nur der fall wen Opacity auf 100 steht, dieses sieht aber nicht gerade schön aus...
    Wie kann ich dieses Problem lösen?


    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. TransparencyKey = Color.White
    3. Timer1.Start()
    4. End Sub
    6. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    7. Me.Opacity += 0.01
    8. If Me.Opacity = 1 Then
    9. Timer1.Stop()
    10. Threading.Thread.Sleep(1500)
    11. Me.Hide()
    12. Schritt1.Show()
    13. End If
    14. End Sub

    In dem fall solltest du vieleicht mit Me.Region arbeiten

    In folgenden Beispiel wird Form1 als Text "gemalt"

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim gp As New System.Drawing.Drawing2D.GraphicsPath
    4. Dim family As New FontFamily("Arial")
    5. Dim myfontStyle As Integer = CInt(FontStyle.Italic)
    6. Dim emSize As Integer = 100
    7. Dim origin As New Point(20, 20)
    8. Dim format As StringFormat = StringFormat.GenericDefault
    10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    11. Me.Opacity += 0.03
    12. If Me.Opacity > 0.99 Then
    13. Timer1.Stop()
    14. Me.Hide()
    15. Schritt1.Show()
    16. End If
    17. End Sub
    19. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. Me.Opacity = 0
    21. Me.StartPosition = FormStartPosition.CenterScreen
    22. Me.Width = 1024
    23. Me.Height = 768
    24. Me.BackColor = Color.Black
    25. gp.AddString("Meinst du so?", family, myfontStyle, emSize, origin, format)
    26. Me.Region = New Region(gp)
    27. Me.Timer1.Interval = 1
    28. Me.Timer1.Start()
    29. End Sub
    30. End Class


    Hast du das so gemeint?

    ProjektMappe :WindowsApplication1.7z

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Derfuhr“ ()

    Ich habe einen Schriftzug der als PNG datei als hintergundbild in der Form ist.
    Nun habe ich es so gemacht das die Hintergrundfarbe der Form1 auf weiß ist, die dieses Bild ja einer PNG datei ist.
    Darauf habe ich eingestellt das alles weißen Farben in der Form transparent werden, dieses funktioniert aber nicht wenn man die Transparens umstellt.
    erst wenn Opacity auf 100% ist, wird der weiße Bereich durchsichtig.

    Ich hab lange überlegt, aber eine Lösung gefunden

    Ist vieleicht nicht besonders gut, geht vielleicht sogar etwas einfacher,aber es geht.
    Wenn Form1 geladen wird, wird ein screenshot von dem bereich gemachtwo Form1
    erscheint, dieses bild dann als PictureBox1.BackGroundImage gesetzt.
    Den Rest schaut selbst :D

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Me.Opacity = 0
    5. Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    6. Me.CenterToScreen()
    7. Me.Width = 250
    8. Me.Height = 250
    9. Me.PictureBox1.Location = New Point(0, 0)
    10. Me.PictureBox1.Width = 250
    11. Me.PictureBox1.Height = 250
    12. Me.PictureBox1.BringToFront()
    13. Me.Timer1.Interval = 500
    14. Me.PictureBox1.BackgroundImage = FotoMachen()
    15. Me.PictureBox1.Image = My.Resources._1
    16. Me.Timer1.Start()
    17. End Sub
    19. Public Function FotoMachen() As Bitmap
    20. Dim desktopimage As New Bitmap(Me.Width, Me.Height)
    21. Dim g As Graphics = Graphics.FromImage(desktopimage)
    22. g.CopyFromScreen(Me.Location.X, Me.Location.Y, 0, 0, desktopimage.Size)
    23. g.Dispose()
    24. Return desktopimage
    25. End Function
    27. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    28. Me.Opacity += 0.05
    29. If Me.Opacity = 1 Then
    30. Me.Timer1.Stop()
    31. Me.Close()
    32. End If
    33. End Sub
    35. End Class


    Projektmappe:
    Dateien

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Derfuhr“ ()

    Du musst deine .png zu den Ressourcen hinzufügen und dann:

    anstatt

    VB.NET-Quellcode

    1. Me.PictureBox1.Image = My.Resources._1


    nimmst du

    VB.NET-Quellcode

    1. Me.PictureBox1.Image = My.Resources.'name deiner png


    du musst auch noch die Größe von Form1 und PictureBox1 auf deine Bildgröße anpassen :!:

    P.S. wer dankbar ist klickt auf hilfreich......

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Derfuhr“ ()

    mit einem screenshot, ja. aber das ist unperformant und ein unschoener workaround weil sich während des einfadens was aendern kann und dann passt das nicht. ausserdem brit dein screenshot rein garnichts weil das nicht den transparency-key "bug" behebt.

    mit einem screenshot, ja. aber das ist unperformant und ein unschoener
    workaround weil sich während des einfadens was aendern kann und dann
    passt das nicht.
    Da es sich um eine Art "SplashScreen" handelt kann man auch den ganzen Desktop
    knipsen, form1 & picturebox auf desktopsize, picturebox.sizemode auf center image,
    topmost = true so wäre die kleinere png auch mittig, so wäre der desktop zwar
    kurz nicht verfügbar, aber eine falsche optik ausgeschlossen (glaub ich zumindest)

    Klar gibt es bessere Methoden, aber man kann nur das Proggen was man kann, leider.

    edit:
    das funktioniert so nicht mit winforms. nimm wpf
    kinsi und SeriTools hatten absolut recht, habs mal in WPF probiert,
    ich bin mehr als nur begeistert!!!

    zum vergleich:

    WpfApplication1.7z

    Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von „Derfuhr“ ()