Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

464 - CreateDragImage

Ejemplo del método CreateDragImage de los controles ListView y Treeview

En este ejemplo, se usa el método CreatedragImage para una operación de arrastrar y colocar desde un ListView hacia un control Picturebox

Descargar

Código fuente

Option Explicit Private Sub Form_Load() Dim oItem As ListItem Dim i As Integer ' con Listview With ListView1 ' asigna el imagelist .Icons = ImageList1 .SmallIcons = ImageList1 .View = lvwIcon ' agrega tantos items tenga el imagelist For i = 1 To ImageList1.ListImages.Count Set oItem = .ListItems.Add(i, , "Item número " & i, i, i) Next End With End Sub Private Sub listView1_MouseMove( _ Button As Integer, _ Shift As Integer, _ x As Single, y As Single) With ListView1 ' Si se presionó el Botón izquierdo If Button = vbLeftButton Then ' asigna el icono de arrastre recuperandolo con CreateDragImage .DragIcon = .SelectedItem.CreateDragImage ' comienza el Drag .Drag vbBeginDrag End If End With End Sub 'Evento de Drop para el picturebox ''''''''''''''''''''''''''''''''''''''''' Private Sub Picture1_DragDrop(Source As Control, _ x As Single, y As Single) Dim StepmPic As StdPicture ' carga la imagen en una variable Set StepmPic = Source.DragIcon Dim sAncho As Single, sAlto As Single, sTextoItem As String ' texto del item seleccionado sTextoItem = Source.SelectedItem.Text ' ancho y alto ( de himetrics a la escala del form) sAncho = ScaleX(StepmPic.Width, vbHimetric, Me.ScaleMode) sAlto = ScaleY(StepmPic.Height, vbHimetric, Me.ScaleMode) ' limpia Picture1.Cls With Picture1 ' dibuja el ícono centrado en el picture .PaintPicture Source.DragIcon, (.ScaleWidth - sAncho) / 2, 0 ' Imprime el texto .CurrentY = sAlto + 50 .CurrentX = (.ScaleWidth - TextWidth(sTextoItem)) / 2 Picture1.Print sTextoItem End With End Sub

Buscar en Recursos vb