Farbwerte gesucht

[MrMagoo]

Hallo zusammen,

also um es ganz einfach zu beschreiben.
Z.B. FFFFFF ergibt ja weiß
Was ich jetzt bräuchte wäre eine Übersicht über möglichst viele Farbwerte? Weiß jemand wo ich das bekomme??

[TMC]

gib mal in Google

farbwerte html

ein  

TMC

[MrMagoo]

Wäre denn sowas

http://www.foggynotion.de/internet/winfarbe.php3?farbe=A

Danke

[eknori]

... nimm doch Notes und ein bisschen Script ( Na gut, API )

Type ChooseColor
   lStructSize As Long
   hwndOwner As Long
   hInstance As Long
   rgbResult As Long
   lpCustColors As String
   flags As Long
   lCustData As Long
   lpfnHook As Long
   lpTemplateName As String
End Type

Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long


Sub Click(Source As Button)
   Dim cc As ChooseColor
   Dim lngCustColor(16) As Long
   
   cc.lStructSize = Len(cc)
   cc.hwndOwner = 0
   cc.hInstance = 0
   cc.flags = 0
   cc.lpCustColors = String$(16 * 4, 0)
   lngReturn = ChooseColor(cc)
   
   ShowColor = Str$(cc.rgbResult)
   HexColors = Hex$(ShowColor)
   
   ccolorlength = Len (HexColors)
   
   If ccolorlength < 6 Then
      
      hexcolors = Ustring$((6-ccolorlength), "0")  & hexcolors
      
   End If
   
   newcolor= Right$(hexcolors, 2) & Mid$(hexcolors, 3, 2) & Left$(hexcolors , 2)
   
   Msgbox newcolor
   
End Sub

Farbe auswählöen und OK klicken, dann wir dir der Farbwert angezeigt  

[TMC]

cool, war klar dass es mit Notes (API) auch wer kann  

Also sorry für meine Unverschämtheit, auf google zu verweisen, nach dem Motto "Appetit kann man sich ja draußen holen, aber gegessen wird zu Hause !!!"
 

TMC

[Axel Janssen temp]

Ich mag Eyedropper (suche in www.tucows.de)

Mit diesem Freewaretool kann man über den Bildschirm hoovern und man bekommt die Farbwerte in hex und dec angezeigt.  

Es gibt bestimmt smartere Tools, aber seit Jahren gehört es zu den ersten 5 Zusatzprogrammen, das ich auf einem neuen Computer installiere.

Gruß Axel

[Rob Green]

ein klitzkleiner Änderungsvorschlag eines Noteslers:

"flag$= Inputbox("Copy and Paste your color code to where it is needed!", "", newcolor )

instead of

msgbox newcolor"

(siehe http://www.basicthinking.de/blog/archive/000262.htm wo ich Deinen coolen Colorpicker gepostet habe für andere, die kein Deutsch können  )

[MrMagoo]

Danke, funktioniert 1a  
habe auch noch ne kleinigkeit geändert bzw angehängt.

   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = workspace.CurrentDocument
   If uidoc.EditMode = False Then
      uidoc.EditMode = True
   End If
   
   Call uidoc.FieldAppendText    ("Feld", newcolor & Chr(10))
   Call uidoc.Save

und dabei ist denn auch noch ne Frage aufgekommen,
ist es auch möglich den Namen der Farbe auszulesen???