Autor
La función que busca el string:
Código:
Public Function Encuentra(Frase As String) As Boolean
Dim Indice As Long
' Tipo de búsqueda
Indice = SendMessage(fMain.List1.hwnd, LB_FINDSTRINGEXACT, -1, Frase)
If Indice < 0 Then
'no se encontró
Encuentra = False
Else
' se encontró la frase entonces la selecciona
Encuentra = True
End If
End Function
Aquí donde se utiliza:
Código:
Dim hdc As Long
Call GetCursorPos(Mouse)
'Get Color
hdc = GetDC(0)
pxColor = GetPixel(hdc, Mouse.x, Mouse.y)
ReleaseDC 0, hdc
'Set color
Picture1.BackColor = pxColor
If Encuentra(Hex(pxColor)) = False Then
List1.AddItem Hex(pxColor)
End If
Por algúna razón me agrega varias veces el mismo color encontrado, lo cual no debería, si es que lo encuentra en la condición planteada.
Gracias desde ya, saludos!
En línea
