Drag & Drop-Operationen II

Drag & Drop-Operationen: PictureBox, ComboBox, Select Case
Private Sub Form_Load()
Combo1.AddItem "keins"
Combo1.AddItem "Variante1"
Combo1.AddItem "Variante2"
Combo1.ListIndex = 0
Combo2.AddItem "keins"
Combo2.AddItem "Variante1"
Combo2.AddItem "Variante2"
Combo2.ListIndex = 0
End Sub
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0: Picture1.DragIcon = LoadPicture()
Case 1: Picture1.DragIcon = Image1.Picture Hier wird das Icon für picture1 gewählt (Hand oder
Case 2: Picture1.DragIcon = Image2.Picture Karteikarte).
End Select
End Sub
Private Sub Combo2_Click()
Select Case Combo2.ListIndex
Case 0: Picture2.DragIcon = LoadPicture()
Case 1: Picture2.DragIcon = Image1.Picture Hier wird das Icon für picture2 gewählt (Hand oder
Case 2: Picture2.DragIcon = Image2.Picture Karteikarte)
End Select
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Check1 Then Picture1.Drag 1 Wenn CheckBox aktiviert, dann aktiviere Drag-Methode
End Sub
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Check2 Then Picture2.Drag 1 Wenn CheckBox aktiviert, dann aktiviere Drag-Methode
End Sub
Private Sub Picture3_DragDrop(Source As Control, X As Single, Y As Single)
If Check3 Then Picture3.Picture = Source.Picture Ausführen von Drag & Drop
End Sub
Private Sub Picture3_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Const ENTER = 0, LEAVE = 1, OVER = 2
If Check4 Then
If State = ENTER Then
Picture3.Picture = Source.Picture Load Picture
ElseIf State = LEAVE Then
Picture3.Picture = LoadPicture() Unload Picture
End If
End If
End Sub
Private Sub Option1_Click()
Picture1.DragMode = 0 DragMode = manuell
End Sub
Private Sub Option2_Click()
Picture1.DragMode = 1 DragMode = automatisch
End Sub
Private Sub Option3_Click()
Picture2.DragMode = 0 DragMode = manuell
End Sub
Private Sub Option4_Click()
Picture2.DragMode = 1 DragMode = automatisch
End Sub
.
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt