Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Autocomplete stopped working
Message
From
26/03/2016 10:13:30
 
 
To
25/03/2016 22:41:11
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01633792
Message ID:
01633807
Views:
91
Sorry forget to point you a reply i made on autocomplete textbox there is some days.
verify also if the table Home(7)+"autocomp.dbf" satnds here.
i duplicate it below:
Publi yform
yform=Createobject("yauto")
yform.Show
Read Events
Retu
*
Define Class yauto As Form
	BorderStyle = 0
	Height = 367
	Width = 571
	AutoCenter = .T.
	Caption = "Form1"
	MaxButton = .F.
	Name = "Form1"

	Add Object text1 As TextBox With ;
		FontSize = 11, ;
		Height = 37, ;
		Left = 48, ;
		SelectOnEntry = .T., ;
		Top = 18, ;
		Width = 204, ;
		AutoComplete = 1, ;
		Name = "Text1"

	Add Object edit1 As EditBox With ;
		FontName = "Comic Sans MS", ;
		Height = 302, ;
		Left = 8, ;
		ReadOnly = .T., ;
		ScrollBars = 0, ;
		Top = 62, ;
		Width = 552, ;
		Name = "Edit1"

	Add Object command1 As CommandButton With ;
		Top = 18, ;
		Left = 420, ;
		Height = 25, ;
		Width = 121, ;
		Caption = "Clear Hystory", ;
		Name = "Command1"


	Procedure Destroy
	Clea Events
	Endproc

	Procedure text1.GotFocus
	Keyboard "{CTRL+A}"
	Endproc

	Procedure edit1.Init
	TEXT to this.value noshow
		Help:
		Set the AutoComplete property to provide a text box that automatically stores
		and suggests values. As characters are typed, a drop-down list displays recently
		entered words that match the pattern of the typed characters. When the
		user selects an entry from the list, the text box value becomes equal
		to that entry and updates the usage information for that entry in the
		Autocomp.dbf or other table you have specified.

		The autocomplete textbox gathers a great quantity of informations.can reset it by
		this simple trick.(of course its a table located in home(7))

		use home(7)+"autocomp.dbf"
		zap  &&Removes all records from a table, leaving just the table structure.
		use in home(7)+"autocomp.dbf"
		this remove all autocomp historical data.
		can also appe your personal table (same structure as autocomp.dbf) to autocomplete.dbf
		and work with.
	ENDTEXT
	Endproc

	Procedure command1.Click
	Close Data All
	Use Home(7)+"autocomp.dbf" Alias yautocomp
	Select yautocomp
	Brow
	If Messagebox("Want to zap all hystory data ?",4+64+4096,"Autocomplete.dbf")=6
		Zap
	Endi
	Use In Select("yautocomp")
	Endproc

Enddefine
*
*-- EndDefine:yauto
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform