| 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 | |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| . |
| |
zurück