Ingen seperator i min Toolbar?
Hej Alle!Jeg er løbet ind i et underligt problem.
I min vb6 laver jeg en toolbar. Her tilføjer jeg en række knapper samt en seperator.
Imidlertid kommer der ikke nogen synlig seperator.
Se eksemplet herunder, efter den markerede knap burde der komme en synlig seperator.
http://www.afront.dk/fejl/eksempel.gif
Mit spørgsmål er, hvordan jeg kan få den frem.
- Er der noget sted i min kode jeg skal rette,
- kan jeg eventuelt løse problemet ved at lave et billede og placere det i en placeholder i stedet,
- eller kan jeg farve knappen højre kant evt.?
Håber virkelig der er nogle der har lyst til at svare, da det irriterer mig gevaldigt.. :)
Min kode er herunder:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 1170
ClientLeft = 60
ClientTop = 450
ClientWidth = 3870
LinkTopic = "Form1"
ScaleHeight = 1170
ScaleWidth = 3870
StartUpPosition = 3 'Windows Default
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 630
Left = 0
TabIndex = 0
Top = 0
Width = 3870
_ExtentX = 6826
_ExtentY = 1111
ButtonWidth = 820
ButtonHeight = 953
Appearance = 1
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 8
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Knap"
Object.Tag = ""
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Knap"
Object.Tag = ""
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Knap"
Object.Tag = ""
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Knap"
Object.Tag = ""
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Knap"
Object.Tag = ""
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 4
Object.Width = 100
MixedState = -1 'True
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "Knap"
Object.Tag = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
