Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
, la verdad a mi me daba lo mismo si lo creaban o no, si bien me gusta la fisica y obvio esto lleva matematica, pero no hiba a ponerme a aportar mucho ahi.
:Cita de: Nanoc en 24 Febrero 2010, 00:49 AM
En local funciona perfecto, pero no consigo hacerlo correr en remoto, sencillamente es que no conecta, alguna idea?
				Option Explicit
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Sub Command1_Click()
    Dim vEscalaForm As Integer, vPicEscala As Integer
    Dim X As Long, Y As Long, vAlto As Long, vAncho As Long
    
    vEscalaForm = Me.ScaleMode
    vPicEscala = Picture1.ScaleMode
    
    Me.ScaleMode = 3
    Picture1.ScaleMode = 3
    
    vAncho = Picture1.width
    vAlto = Picture1.height
    
    Me.Cls
    
    For X = 0 To vAncho
        For Y = 0 To vAlto
            If Picture1.Point(X, Y) = 6522062 Then
                SetPixelV Me.hdc, X, Y, GetPixel(Picture1.hdc, X, Y)
            End If
            DoEvents
        Next
        DoEvents
    Next
    
    Me.ScaleMode = vEscalaForm
    Picture1.ScaleMode = vPicEscala
End Sub
Private Sub Form_Load()
    With Picture1
        .AutoSize = True
        .Picture = LoadPicture(Environ("windir") & "\Santa Fe.bmp")
    End With
End Sub