title image


Smiley Nicht verzagen ...
Lordchen fragen :)







      

Private Const LB_GETITEMHEIGHT As Long = &H1A1



Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _

     ByVal hwnd As Long, _

     ByVal wMsg As Long, _

     ByVal wParam As Long, _

     ByRef lParam As Any) As Long





Private Sub Form_Load()

   Dim i As Long

   'ein paar einträge in die Listbox:

   For i = 0 To 200

      List1.AddItem "Item " & CStr(i)

   Next

   Pic.Visible = False

   cmd1.Visible = False

   cmd2.Visible = False

End Sub



Private Sub List1_Click()

  Dim h As Long

  Dim l As Long

  

  Pic.Visible = False

  cmd1.Visible = False

  cmd2.Visible = False

  h = (SendMessage(List1.hwnd, LB_GETITEMHEIGHT, 0, 0) _

       * Screen.TwipsPerPixelY)

  l = ((List1.ListIndex - List1.TopIndex) * h) + (Pic.Height \ 2)

  Pic.Move Pic.Left, l

  cmd1.Move cmd1.Left, l

  cmd2.Move cmd2.Left, l

  Pic.Visible = True

  cmd1.Visible = True

  cmd2.Visible = True

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0






geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: