• Jueves 18 de Julio de 2024, 19:05

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Mombasa

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Imagen PNG sobre Picture
« en: Jueves 9 de Mayo de 2013, 16:55 »
Si prueban el siguiente código, al hacer clic sobre una parte del Picture, indicará las coordenadas. Luego las guarda en txt.
Ahora...en vez de realizar la operación antes explicada, sobre el picture quiero arrastrar y soltar una imagen PNG. Esta acción puedo hacerlo alrededor del picture, pero no soltarla dentro. ¿Existe alguna solución para esto?

NOTA: EL módulo para leer las imágenes PNG no lo adjunté...si lo necesitan, pídanmelo.
Muchas gracias.

Código: [Seleccionar]
Option Explicit
DefLng A-Z
Dim Boton As Integer
Dim Coordy As Integer

Private Sub Form_Load()
'Permitimos al control image una operacion de arrastre
        Image1.OLEDragMode = 1
        Image3.OLEDragMode = 1
        Me.OLEDropMode = 1

Call PngImageLoad("C:\r.png", Image1) 'para cargarlo en el image1
Call PngImageLoad("C:\am.png", Image3) 'para cargarlo en el image1
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
    With Image1
    .Drag vbEndDrag
    .Move X - mx, Y - my
    End With
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Drag vbBeginDrag
    mx = X: my = Y
End Sub

Private Sub Form_OLEDragOver(data As DataObject, Effect As Long, Button As Integer, Shift As Integer, _
                                 X As Single, Y As Single, State As Integer)
        Boton = Button
End Sub
     
'Evento que se ejecuta al soltar la imagen en el formulario
Private Sub Form_OLEDragDrop(data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
     
    On Error Resume Next
         
        'Le decimos que sea una copia de lo que vamos a arrastrar
        Effect = vbDropEffectCopy
     
            If Boton = vbLeftButton Then
                Me.PaintPicture data.GetData(2), X, Y
            End If
End Sub

Private Sub Image2_Click()
On Error GoTo cancelar 'en caso de que halla un error ir a cancelar

Dim archivo As String

archivo = "x:\ubicacion del archivo.txt"

Open archivo For Append As #1 'sintaxis para guardar una archivo

Print #1, Text1.Text & "         " & Text2.Text
Text3.Text = Text3.Text & IIf(Text3.Text <> "", vbCrLf, "") & Text1.Text & "         " & Text2.Text
Close 'cerramos el archivo

cancelar: 'accion que va a tomar si hay algun error.
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const Ancho = 0.3
Const Alto = 0.3
Dim CoordX As Single, CoorY As Single
Dim X1 As Single, Y1 As Single, W1 As Single, H1 As Single
Dim file As Integer, col As Integer
If Button = vbLeftButton Then
    CoordX = X - ((Picture1.ScaleWidth * Ancho) / 2)
    If CoordX < 0 Then CoordX = 0
    If (CoordX + (Ancho * Picture1.ScaleWidth)) > Picture1.ScaleWidth Then
        CoordX = Picture1.ScaleWidth * (1 - Ancho)
    End If
    Coordy = Y - ((Picture1.ScaleHeight * Alto) / 2)
    If Coordy < 0 Then Coordy = 0
    If (Coordy + (Alto * Picture1.ScaleHeight) > Picture1.ScaleHeight) Then
        Coordy = Picture1.ScaleHeight * (1 - Alto)
    End If
    Text1.Text = CoordX
    Text2.Text = Coordy
   
End If
End Sub


2
Visual Basic 6.0 e inferiores / Pasar a text3, lo que hay en text1 y text2
« en: Miércoles 8 de Mayo de 2013, 16:12 »
Buenas...supongamos que tengo text1, text2 y text3.
En text1 y text2 valores cualquiera. Deseo que al hacer clic sobre un button cargue esos valores en text3. Una vez que hice clic sobre el botón, borro text1 y text2, cargar otros datos y los paso a text3; debajo de los datos anteriores.
Había comenzado con esta sentencia, pero me sobreescribe los datos.
Text3.Text = Text1.Text + " " + Text2.Text
Muchas gracias.

3
Visual Basic 6.0 e inferiores / Memorización de movimientos
« en: Miércoles 24 de Abril de 2013, 15:49 »
Hola gente, a ver si me pueden ayudar. Necesito grabar los movimientos de por ejemplo un shape sobre un picture o image.
Es decir: Con el programa corriendo, inserto un shape y obtengo las coordenadas. Desplazo ese mismo shape y obtengo las nuevas coordenadas. En total hice dos movimientos.
Lo que deseo es hacer un clic sobre un command llamado Play y ver el recorrido que hizo el shape.
Nota: puede ser shape u otro objeto, no hay drama.
¿Alguien tendrá una ayuda, un ejemplo?
Se los agradeceré mucho.

4
Visual Basic 6.0 e inferiores / Arrastrar un picture dentro de otro picture
« en: Viernes 19 de Abril de 2013, 18:13 »
Buenas....el título resume mi pedido.
¿Alguien podría indicarme cómo puedo hacer esto?
Muchas gracias

5
Visual Basic 6.0 e inferiores / Clic copiar, clic pegar
« en: Miércoles 17 de Abril de 2013, 18:06 »
Consulta:
Supongamos que tengo un formulario dividido en dos: de un lado varias imágenes.
Lo que deseo es hacer un clic sobre alguna de ellas, ir hacia el otro sector del formulario y pegar la imagen clickeada.
Pegarla en cualquier parte del form y la cantidad de veces que haga clic.
¿Es factible realizar esto? Ustedes me dirán si debo realizarlo con un PictureBox ó Image.

Muchas gracias.


6
Visual Basic 6.0 e inferiores / Base de datos y consultas
« en: Martes 9 de Abril de 2013, 14:32 »
Buenas...una consulta: tengo 2 msflexgrid en un formulario. En el primero, una vez cargados los datos los guardo en una base de datos. El segundo se va cargando automáticamente, ya que suma y muestra los totales de los datos tipeados en el primero.
Pero no logro que estos últimos se graben en una base de datos. a continuación, el código para la primer base: (Cabe destacar que la segunda base acumula los totales de: Min, Gol, Puntaje, etc.)
Muchas gracias.

Código: Visual Basic
  1. Private Sub cmdAddEntry_Click()
  2.     'agrego
  3.    With Data1.Recordset
  4.         .AddNew
  5.         !Partido = Text1.Text
  6.         !Fecha = DTPicker1
  7.         !Min = Text2(1).Text
  8.         !Gol = Text2(2).Text
  9.         !Ptje = Text2(4).Text
  10.         .Update
  11.     End With
  12.    
  13.     Data1.Refresh
  14.  
  15. Data1.DatabaseName = App.Path & "\Estadis.mdb"
  16.        
  17. Data1.RecordSource = "select Min,Gol,Ptje from Datos order by Id"
  18.  
  19. end sub
  20.  
  21.  

Páginas: [1]