PDA

Vollständige Version anzeigen : Position des Farbdialogfensters


Hondo
08.01.2002, 09:40
Hallo,
mich ärgert immer, wenn ich den Farbdialog aufrufe, daß der immer am linken Rand klebt.
folgender Code:


Option Compare Database
Option Explicit

Public Const CC_RGBINIT = &H1
Public Const CC_SOLIDCOLOR = &H80

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


Public BDFarben(0 To 15) As Long

Declare Function ChooseColorDlg Lib "comdlg32.dll" Alias "ChooseColorA" (Color As TChooseColor) As Long
Declare Function VarPtr Lib "vb40032" (lpVoid As Any) As Long

Public Function FarbDialog(farbe As Variant, Optional Fenster As Variant) As Boolean

Dim Colo As TChooseColor

Colo.lStructSize = Len(Colo)
If Not IsMissing(Fenster) Then
Colo.hwndOwner = Fenster
End If

Colo.rgbResult = farbe
Colo.lpCustColors = VarPtr(BDFarben(0))
Colo.flags = CC_RGBINIT

If ChooseColorDlg(Colo) Then
farbe = Colo.rgbResult
FarbDialog = True
Else
farbe = -1
FarbDialog = False
End If
End Function


Public Function FarbeWählen() As Long
Static hdc As Variant
FarbDialog hdc, Fenster:=Application.hWndAccessApp
FarbeWählen = hdc
End Function

aufgerufen per button wird FarbeWählen()

kann man da was machen?

Gruß Andreas

Hondo
08.01.2002, 10:18
Hallo,
dank Judith habe ich eine neue Lösung gefunden. Für alle die es interessiert hier der Hinweis auf den Downloadbereich.

Gruß Andreas