Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Dropdown list positioned at end of list
Message
From
24/05/2006 10:38:01
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Dropdown list positioned at end of list
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01124526
Message ID:
01124526
Views:
42
Hi,

a client of mine has created a combo (dropdown list) that is bound to a 1 character field to indicate 1 is yes and 0 is no. The complaint is that when the user tabs into the combo, they have to press the up arrow to select Yes or No, whereas they expect to press the Down arrow. Here's some code which illustrates the problem. The first combo shows the problem, the second combo illustrates how they expect it to work, but the problem is that they can then leave a blank entry in the combo.
CREATE CURSOR combo;
(yesno C(1),;
yesno2 C(1))

APPEND BLANK

oForm = CREATEOBJECT('form1')
oForm.Show()


DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"
	windowtype = 1


	ADD OBJECT combo1 AS combobox WITH ;
		BoundColumn = 2, ;
		ColumnCount = 2, ;
		ColumnWidths = "50,0", ;
		RowSourceType = 1, ;
		RowSource = "Yes,1,No,0", ;
		ControlSource = "combo.yesno", ;
		Height = 24, ;
		Left = 52, ;
		Style = 2, ;
		Top = 40, ;
		Width = 100, ;
		Name = "Combo1"


	ADD OBJECT combo2 AS combobox WITH ;
		BoundColumn = 2, ;
		ColumnCount = 2, ;
		ColumnWidths = "50,0", ;
		RowSourceType = 1, ;
		RowSource = ",,Yes,1,No,0", ;
		ControlSource = "combo.yesno2", ;
		Height = 24, ;
		Left = 52, ;
		Style = 2, ;
		Top = 76, ;
		Width = 100, ;
		BoundTo = .T., ;
		Name = "Combo2"


ENDDEFINE
Anyone have any ideas how to sort this out?
Frank.

Frank Cazabon
Samaan Systems Ltd.
www.samaansystems.com
Next
Reply
Map
View

Click here to load this message in the networking platform