Zwei schöne Button

    • Release

    Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von powachill.

      Zwei schöne Button

      Hallo Community,
      ich habe mir heute zwei schöne Buttons erstellt (Blau und Grau). Sie sehen recht seriös aus und sind dezent.

      Natürlich nichts weltbewegendes aber vielleicht gefallen sie einem!

      Beschreibung:
      Zwei normale Button in den Farben Blau und Grau.


      Screenshot:
      (siehe unten)


      Verwendete Programmiersprache:
      Visual Basic .NET

      Systemanforderungen:
      .NET Framework 2.0


      Download:
      (siehe unten)


      Lizenz/Weitergabe:
      Freeware; OpenSource; keine Lizens; macht damit was Ihr wollt





      Viel Spass



      VanDerLars
      Bilder

      • Unbenannt.png

        6,97 kB, 464×153, 842 mal angesehen
      Dateien

      • BTNs.rar

        (17,61 kB, 329 mal heruntergeladen, zuletzt: )

      Er hat sich wie ich sehe von meinen buttons inspirieren lassen (*hust* Suche schöne Buttons)
      wen du bock hast könnt ich dir auch iwas designen, hab sowieso gerade nichts zu tun ^^
      Moderatorin: "Apropo ritzen.." Shin Chan: "hoho sie hat Po ritze gesagt"
      "saying to buy a mac because your anti-virus expired is like saying you're out of condoms so you're just going to go fuck dudes"
      "Wie auch in anderen Threads kann ich leider nichts bieten außer vielleicht spaß beim Skypen aber mehr leider auch nicht." - Sind kinder pornos nicht verboten?

      @ GlossyCherry: Neja eigentlich hatte ich genau solche Buttons gesucht, daher hab ich nicht von dir abgeguckt. Auerdem sehen deine Buttons schon noch etwas anders aus!^^

      @EiPott: Ich persönlich wollte keine Rundung, ich kann aber gerne noch eine Version mit Rundung machen!

      lG VanDerLars

      mach doch eine Eigenschaft für die Rundung. Dann ist das jedem selbst überlassen.

      mhm lol, ihr könnt aber auch einfach mal den gefallen tun und einen textschatten / blur machen :D
      Das geht gar nichtmal so schwer...

      Habe an der SumCol Funktion aufgehört, weils mir zu kompliziert wurde oder weil mir lw war^^
      Ansatz für Blur:

      VB.NET-Quellcode

      1. Private Function SumCol(ByVal ColA As Integer, ByVal ColB As Integer)
      2. Dim tColA As Integer = CInt(Convert.ToInt32(ColA))
      3. Dim tColB As Integer = CInt(Convert.ToInt32(ColB))
      4. If tColA + tColB >= 255 AndAlso tColA <
      5. End Function
      6. Private Function Average(ByVal Source As Bitmap, ByVal Size As Size, ByVal imageSize As SizeF, ByVal PixelX As Integer, ByVal Pixely As Integer, ByVal ColPlus As Color) As Color
      7. Dim pixels As New ArrayList
      8. Dim x As Integer, y As Integer
      9. Dim bmp As Bitmap = Source.Clone
      11. ' Find the color for each pixel and add it to a new array.
      12. '
      13. ' Remember a 5X5 area on or near the edge will ask for pixels that don't
      14. ' exist in our image, this will filter those out.
      15. '
      16. For x = PixelX - CInt(Size.Width / 2) To PixelX + CInt(Size.Width / 2)
      17. For y = Pixely - CInt(Size.Height / 2) To Pixely + CInt(Size.Height / 2)
      18. If (x > 0 And x < imageSize.Width) And _
      19. (y > 0 And y < imageSize.Height) Then
      20. Dim pxcol As Color = bmp.GetPixel(x, y)
      21. bmp.SetPixel(x, y, Color.FromArgb(CInt(Convert.ToInt32(pxcol.A + ColPlus.A.ToString)), CInt(Convert.ToInt32(pxcol.R.ToString + ColPlus.R.ToString)), CInt(Convert.ToInt32(pxcol.G.ToString + ColPlus.G.ToString)), CInt(Convert.ToInt32(pxcol.B.ToString + ColPlus.B.ToString))))
      22. pixels.Add(bmp.GetPixel(x, y))
      23. End If
      24. Next
      25. Next
      27. ' Adverage the A, R, G, B channels
      28. ' reflected in the array
      29. Dim thisColor As Color
      31. Dim alpha As Integer = 0
      32. Dim red As Integer = 0
      33. Dim green As Integer = 0
      34. Dim blue As Integer = 0
      36. For Each thisColor In pixels
      37. alpha += thisColor.A
      38. red += thisColor.A
      39. green += thisColor.G
      40. blue += thisColor.B
      41. Next
      43. ' Return the sum of the colors / the number of colors (The average)
      44. '
      45. Return Color.FromArgb(alpha / pixels.Count, _
      46. red / pixels.Count, _
      47. green / pixels.Count, _
      48. blue / pixels.Count)
      49. End Function
      51. Private Function MakeBlur(ByVal Source As Bitmap, ByVal alphaEdgesOnly As Boolean, ByVal blurSize As Size, Optional ByVal Range As Rectangle = Nothing, Optional ByVal ColPlus As Color = Nothing) As Bitmap
      52. Dim PixelY As Integer
      53. Dim PixelX As Integer
      54. Dim bmp As Bitmap = Source.Clone
      55. If Range = Nothing Then Range = New Rectangle(0, 0, bmp.Width, bmp.Height)
      56. If ColPlus = Nothing Then ColPlus = Color.FromArgb(0, 0, 0, 0)
      58. ' Loop the rows of the image
      59. For PixelY = Range.Y To Range.Height - 1
      61. ' Loop the cols of the image
      62. For PixelX = Range.X To Range.Width - 1
      63. If Not alphaEdgesOnly Then
      64. bmp.SetPixel(PixelX, PixelY, Average(Source, blurSize, bmp.PhysicalDimension, PixelX, PixelY, ColPlus))
      65. ElseIf bmp.GetPixel(PixelX, PixelY).A <> 255 Then
      66. bmp.SetPixel(PixelX, PixelY, Average(Source, blurSize, bmp.PhysicalDimension, PixelX, PixelY, ColPlus))
      67. End If
      68. Application.DoEvents()
      69. Next
      70. Next
      72. Return bmp
      73. bmp.Dispose()
      74. End Function

    Facebook
    Telefonspende