vb@rchiv · Tipps & Tricks · Farbauswahl-Dialog

Rubrik: Access | VB-Versionen: VBA

02.08.01

Farbauswahl-Dialog Dieses Beispiel stellt Ihnen die Farbauswahl-Funktionen per API zur Verfügung.
Autor: Microsys Kramer	Bewertung:	Views: 20.394
www.access-paradies.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Dieses Beispiel stellt Ihnen die Farbauswahl-Funktionen per API zur Verfügung.

Erstellen Sie ein neues Modul und fügen Sie nachfolgenden Code ein:

Option Compare Database
Option Explicit
 
Declare Sub wlib_AccChooseColor Lib "msaccess.exe" _
  Alias "#53" ( _
  ByVal Hwnd As Long, _
  rgb As Long)

Und so rufen Sie den Farbauswahl-Dialog auf
Erstellen Sie ein neues Formular, und fügen folgende Steuerelemente ein:

Bezeichnungsfeld: Beschriftung - Farbe
Textfeld: Name "Farbe_tmp"
Befehlsschaltfläche: Name "Farbe_holen"
Textfeld: Name "Farbe" unsichtbar
Befehlsschaltfläche: Name "OK"

Und nachfolgend der Code gesamte Code des Formulars:

Option Compare Database
Option Explicit
 
Private Sub Form_Load()
  On Error GoTo Err_Form_Load
  DoCmd.OpenForm "frm_AP_Info"
 
  If Not IsNull(Me![Farbe]) Then
    Me![Farbe_tmp].BackColor = Me![Farbe]
    Me![Farbe_tmp].ForeColor = Me![Farbe]
  End If
 
Exit_Form_Load:
  Exit Sub
 
Err_Form_Load:
  MsgBox Err.Description
  Resume Exit_Form_Load
 
End Sub
 
Private Sub OK_Click()
  On Error GoTo Err_OK_Click   
  DoCmd.Close acForm, Me.Name
 
Exit_OK_Click:
  Exit Sub
 
Err_OK_Click:
  MsgBox Err.Description
  Resume Exit_OK_Click
 
End Sub
 
Private Sub Farbe_holen_Click()
  On Error GoTo Err_Farbe_holen_Click
 
  Dim rgb As Long
 
  rgb = Me![Farbe_tmp].BackColor
  wlib_AccChooseColor Me.Hwnd, rgb
  Me![Farbe] = rgb
  Me![Farbe_tmp].ForeColor = rgb
  Me![Farbe_tmp].BackColor = rgb
 
Exit_Farbe_holen_Click:
  Exit Sub
 
Err_Farbe_holen_Click:
  MsgBox Err.Description
  Resume Exit_Farbe_holen_Click
 
End Sub