Einblenden

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    Einblenden

    Hallo Commi. :)
    Ich habe eine TextBox und eine PictureBox
    Wenn ich auf die PictureBox drauf klicke, soll
    die TextBox sich einblenden, hat jemand eine
    ahnung wie das geht in VB 10?

    Edit by ~blaze~:
    *Thema verschoben*

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

    Doch Doch, das mit Fisible und Valso, und die Grundbefehle weiss ich ja^^
    bloß ich beine das es langsam ein Gebledet wird! z.b. bei einer Form:

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. Me.Opacity = 0.0F
    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.1F
    8. If Me.Opacity = 1.0F Then
    9. Timer1.Stop()
    10. End If
    11. End Sub

    Nur Das ich das mit ner TextBox möchte

    Dann muss ich mich dafür entschuldigen, dass ich dir unterstellt habe, kein VB zu können.
    Das geht bei einer TextBox nicht so einfach. Problematisch ist z.B. auch das Caret, da es verhindert, dass du die Paint-Methode aufrufen kannst. Du kannst dir aber eine eigene TextBox erstellen. Das hier kannst du als Vorlage nehmen:

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Public Class CustomControl1
    4. <DllImport("gdi32.dll")> _
    5. Private Shared Function SetPixel(ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer, ByVal value As APIColor) As APIColor
    6. End Function
    8. <DllImport("gdi32.dll")> _
    9. Private Shared Function GetPixel(ByVal hdc As IntPtr, ByVal x As Integer, ByVal y As Integer) As APIColor
    10. End Function
    12. Private sngAlpha As Single
    14. Public Property Opacity() As Single
    15. Get
    16. Return sngAlpha
    17. End Get
    18. Set(ByVal value As Single)
    19. If value < 0.0F OrElse value > 1.0F Then
    20. Throw New ArgumentOutOfRangeException("Opacity")
    21. Else
    22. sngAlpha = value
    23. Me.Refresh()
    24. End If
    25. End Set
    26. End Property
    28. Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
    29. Dim bg As BufferedGraphics = BufferedGraphicsManager.Current.Allocate(e.Graphics, e.ClipRectangle)
    30. Dim px(e.ClipRectangle.Width - 1, e.ClipRectangle.Height - 1) As APIColor
    31. Dim hdc As IntPtr = bg.Graphics.GetHdc
    32. Dim ghdc As IntPtr = e.Graphics.GetHdc
    33. Dim eve As New PaintEventArgs(bg.Graphics, New Rectangle(0, 0, e.ClipRectangle.Width, e.ClipRectangle.Height))
    34. Dim cpx As APIColor
    35. For y As Integer = 0 To e.ClipRectangle.Height - 1
    36. For x As Integer = 0 To e.ClipRectangle.Width - 1
    37. cpx = GetPixel(ghdc, x + e.ClipRectangle.Left, y + e.ClipRectangle.Top)
    38. px(x, y) = cpx
    39. SetPixel(hdc, x, y, cpx)
    40. Next
    41. Next
    42. bg.Graphics.ReleaseHdc()
    43. e.Graphics.ReleaseHdc(ghdc)
    44. TextBoxRenderer.DrawTextBox(bg.Graphics, New Rectangle(-e.ClipRectangle.Left, -e.ClipRectangle.Top, Me.ClientSize.Width, Me.ClientSize.Height), VisualStyles.TextBoxState.Normal)
    45. MyBase.OnPaint(eve)
    46. hdc = bg.Graphics.GetHdc
    47. For y As Integer = 0 To e.ClipRectangle.Height - 1
    48. For x As Integer = 0 To e.ClipRectangle.Width - 1
    49. SetPixel(hdc, x, y, APIColor.Blend(sngAlpha, GetPixel(hdc, x, y), px(x, y)))
    50. Next
    51. Next
    52. bg.Graphics.ReleaseHdc()
    53. bg.Render()
    54. End Sub
    56. <StructLayout(LayoutKind.Sequential)> _
    57. Private Structure APIColor
    58. Public R As Byte
    59. Public G As Byte
    60. Public B As Byte
    61. Private Reserved As Byte
    63. Public Shared Function Blend(ByVal foreColorAlpha As Single, ByVal foreColor As APIColor, ByVal backColor As APIColor) As APIColor
    64. Dim na As Single = 1.0F - foreColorAlpha
    65. Return New APIColor(CByte(na * backColor.R + foreColorAlpha * foreColor.R), CByte(na * backColor.G + foreColorAlpha * foreColor.G), CByte(na * backColor.B + foreColorAlpha * foreColor.B))
    66. End Function
    68. Public Sub New(ByVal r As Byte, ByVal g As Byte, ByVal b As Byte)
    69. Me.R = r
    70. Me.G = g
    71. Me.B = b
    72. End Sub
    73. End Structure
    74. End Class


    Sinn des Ganzen ist, dass die Pixel der TextBox, die mit dem TextBoxRenderer erstellt werden, mit dem Hintergrund geblendet werden. Für das Alphablending ist dann die Blend-Funktion der APIColor zuständig. Gezeichnet wird erst in einen Buffer (BufferedGraphics), der mit den Werten, die bisher gezeichnet wurden (z.B. in PaintBackground), befüllt wurde und die auch im px-Array zwischengespeichert werden. Dann werden die Zeichenprozesse des Users eingeschoben (OnPaint) und die TextBox gerendert. Anschließend werden die aktuellen Werte mit dem Hintergrund geblendet (dazu dient der sngOpacity-Wert). Dein eigenes Caret kannst du z.B. über einen Timer und das Invalidieren des Bereiches, in dem sich das Caret befindet und dem Invertieren des dortigen Rectangles umsetzen (das Invertieren von Farbwerten ist einfach über New APIColor(CByte(255- R), CByte(255- G), CByte(255-B)) zu bewerkstelligen).

    Also, wenn du jetzt noch Lust darauf hast, das zu machen, hast du ja ne Vorlage. ;) Mir wäre jetzt keine API-Funktion bekannt, über die man die Transparenz einfach einstellen kann. Ist eine unschöne umständliche Methode, die aber funktioniert.

    Gruß
    ~blaze~

Facebook
Telefonspende