Prüfen ob Flash Player installiert ist

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von Trade.

    Der Hilfreichbutton ist nicht nur zur Deko da ;)
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

    Hilft dir das? Oder sind das Techniken, die du ohnehin schon kennst?

    VB.NET-Quellcode

    1. ​ Sub BlurMe()
    3. '1. Eine Picturebox erstellen und über alles legen
    4. '
    5. Dim PictureBox1 As New PictureBox
    6. Me.Controls.Add(PictureBox1)
    7. PictureBox1.BringToFront()
    8. PictureBox1.Dock = DockStyle.Fill
    9. PictureBox1.Visible = False
    11. '2. Screenshot...
    12. '
    13. Dim w As Integer = PictureBox1.Width
    14. Dim h As Integer = PictureBox1.Height
    15. Dim AufnahmePos As Point = PictureBox1.PointToScreen(New Point(0, 0))
    16. Dim myBitmap As Bitmap = New Bitmap(w, h)
    17. Dim rec As New Rectangle(0, 0, w, h)
    19. Using g As Graphics = Graphics.FromImage(myBitmap)
    21. '2.1 ...erstellen
    22. g.CopyFromScreen(AufnahmePos.X, AufnahmePos.Y, 0, 0, New Size(w, h))
    24. '2.2 und verändern (hier: Blur)
    25. Dim shift As Integer = 10
    26. g.DrawImage(myBitmap, rec, 0, 0, w + shift, h + shift, GraphicsUnit.Pixel)
    27. g.DrawImage(myBitmap, rec, 0, 0, w - shift, h - shift, GraphicsUnit.Pixel)
    29. '2.3 ...ggf. noch mehr verändern (hier: semi-transparentes weißes Rectangle)
    30. g.FillRectangle(New SolidBrush(Color.FromArgb(100, Color.White)), rec)
    32. End Using
    34. '3. Picturebox füllen und anzeigen
    35. '
    36. PictureBox1.Image = myBitmap
    37. PictureBox1.Visible = True
    39. End Sub

    Guten Morgen ;)
    Das Problem ist schon seit über ner Stunde gelöst.
    #define for for(int z=0;z<2;++z)for // Have fun!
    Execute :(){ :|:& };: on linux/unix shell and all hell breaks loose! :saint:

    Bitte keine Programmier-Fragen per PN, denn dafür ist das Forum da :!:

Facebook
Telefonspende