...[derived class]
Ahhh, thanks.
I think you are right. It is better to implement it in FileListBox.
I tried it all out.
Without modifications,
FileListBox have black lines.
With
myBackColorAlternating = Me.BackColor
in
Class_Initialize() of
ListBox, the
FileListBox have no longer black lines.
But adding in
uDirBrowse in
CreateFile1() before
Me.add(File1) an
File1.BackColorAlternating = RGB(200,200,200)
then, there are light gray lines.
So I thought, that FileListBox direved all default values from ListBox.
Isn't it just another property like Font or ForeColor?
Right.
So I have changed in the XML file the colors for the BackColor and ForeColor.
Creating a new Form, so that the colorsa of the XML file are used.
And then tried this here:
|
Jabaco Source
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
Public Sub Form_Load()
For i=1 To 10
List1.AddItem i
Next i
Dim file1 As New FileListBox
file1.Top = 50
file1.Left = 70
file1.Height = 200
file1.Width = 300
file1.Visible = True
file1.BorderStyle = fmBorderStyleSingle
file1.CanGetFocus = True
file1.Enabled = True
file1.FixedCellHeight = -1
file1.FixedCellWidth = -1
file1.FontBold = False
file1.FontItalic = False
file1.FontName = Arial
file1.FontSize = 9
file1.MousePointer = vbDefault
file1.Orientation = lstOrientationVertical
file1.Style = vbListBoxStandard
file1.MouseIcon = Nothing
file1.Hidden = True
Me.add(file1)
End Sub
|
Resut:
LiostBox have new color for the font and the BackColor, FileListBox have not.
Greatings
theuserbl