auf ein Objekt gegeben

Question

ich an einem Projekt arbeite, in dem ich die Farben von Internet-Websites nehmen, Logo usw.

Gibt es eine Möglichkeit, den RGB-Wert der erhalten Farbe wohin ich zeige? Oder gibt es irgendeine Möglichkeit, wie ich die RGB-Werte eines farbigen Objekts als Text erhalten kann, damit ich auch anderen Objekten das gleiche geben kann?

Answer 1

Sie müssen dazu die WinAPI-Funktionen aufrufen.

Hier ein Beispiel: http://www.codeguru.com/vb/gen/vb_graphics/article.php/c2357/A-method-to-get-the-pixel-color-under-the-mouse-pointer.htm

ich es vereinfacht habe/angepasst es. Es wird die Farbe der aktuell gewählten Form an die Farbe des Pixels unter dem Cursor gesetzt:

Option Explicit 

Private Type POINTAPI 
    x As Long 
    y As Long 
End Type 
' 
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, _ 
    ByVal x As Long, ByVal y As Long) As Long 
Private Declare Function GetCursorPos Lib "user32" _ 
     (lpPoint As POINTAPI) As Long 
Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) _ 
     As Long 

Sub Test() 
    Dim tPOS As POINTAPI 
    Dim sTmp As String 
    Dim lColor As Long 
    Dim lDC As Long 

    lDC = GetWindowDC(0) 
    Call GetCursorPos(tPOS) 
    lColor = GetPixel(lDC, tPOS.x, tPOS.y) 

    sTmp = Right$("000000" & Hex(lColor), 6) 

    ActiveWindow.Selection.ShapeRange(1).Fill.ForeColor.RGB = lColor 

End Sub