Sonstiges > Offtopic

Farbwerte gesucht

<< < (2/2)

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  8)
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???
   

Navigation

[0] Themen-Index

[*] Vorherige Sete