
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ú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