Public Class Form1
  ' benötigte API-Deklarationen
  Private Declare Function SendMessage Lib "user32" _
    Alias "SendMessageA" ( _
    ByVal hwnd As IntPtr, _
    ByVal wMsg As Integer, _
    ByVal wParam As Integer, _
    ByVal lParam As Integer) As Integer
 
  Private Const EC_LEFTMARGIN = &H1
  Private Const EM_SETMARGINS = &HD3
 
  ' Bild im Eingabefeld einer ComboBox anzeigen
  Public Sub TextBox_AddPicture(ByVal oForm As Form, _
    ByVal oTextBox As TextBox, _
    ByVal oPictureBox As PictureBox)
 
    Dim nLeft As Integer
 
    ' Handle des Eingabefeldes der Combo-TextBox ermitteln
    With oTextBox
 
      ' PictureBox-Hintergrund dem Eingabefeld anpassen
      oPictureBox.BackColor = .BackColor
 
      ' PictureBox in das Eingabefeld platzieren
      oPictureBox.Location = New Point(.Left + 4, .Top + 3)
      oPictureBox.BringToFront()
 
      ' linken Rand des Eingabefeldes der ComboBox neu festlegen
      nLeft = oPictureBox.Width + 3
      Call SendMessage(.Handle.ToInt32, EM_SETMARGINS, EC_LEFTMARGIN, nLeft)
    End With
  End Sub
 
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    TextBoxBox_AddPicture(Me, TextBox1, PictureBox1)
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Das Leben ist wie eine H?hnerleiter

Kurz und beschissen

Beitrag wurde zuletzt am 03.03.10 um 13:22:15 editiert.

Salzburger