Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: list box drag´n drop
Autor: LorenzD
Datum: 29.09.02 21:16
Probier mal folgendes: Leg eine neue Form an, auf der eine Listbox (List1) mit den Einträgen "Textbox" und "Commmand Button" ist Setz einen Command Button(Command1) und eine Textbox (Text1)auf die Form und setz deren Index auf 0. Benutz dann folgenden Code: Private Textboxcount As Integer Private CBcount As Integer Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single) If Source = List1 Then If List1.Text = "Textbox" Then Load Text1(Textboxcount) Text1(Textboxcount).Visible = True Text1(Textboxcount).Top = Y Text1(Textboxcount).Left = X Textboxcount = Textboxcount + 1 End If If List1.Text = "Command Button" Then Load Command1(CBcount) Command1(CBcount).Visible = True Command1(CBcount).Top = Y Command1(CBcount).Left = X CBcount = CBcount + 1 End If End If End Sub Private Sub Form_Load() CBcount = 1 Textboxcount = 1 End Sub Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If List1.ListIndex >= 0 And Button = 1 Then ' für linke Maustaste Button = 1 setzen ' Drag-Beginn (rechte Maustaste) List1.Drag vbBeginDrag End If End Sub Das ganze kannst du dann deinen Bedürfnissen anpassen

list box drag´n drop	67	mark	27.09.02 19:18
Re: list box drag´n drop	46	LorenzD	29.09.02 21:16

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen