Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Programmatically open find/replace windows
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Programmatically open find/replace windows
Divers
Thread ID:
01201555
Message ID:
01201555
Vues:
79
I'm missing something obvious this morning.

I'm writing an editor-like application for SQL Server stored procs/functions/triggers/etc that displays a grid (stored procs that have a string we searched for) and an editbox that displays the contents of a memo field (the definition of the stored proc selected in the grid).

I want to, from buttons, set focus to the editbox, light up the find (CTRL+F) or replace (CTRL-L) menu and load it with the string we searched for, and have it go to the first occurance in the editbox.

basically..
	IF RECCOUNT('curs_sqlroutines')>0
		CLEAR TYPEAHEAD
		thisform.edtRoutine_Definition.SetFocus()
		KEYBOARD '{CTRL+F}'
		KEYBOARD (thisform.csearchstring)
		KEYBOARD '{ENTER}'	
	ENDIF
So far, this works unreliably. Many times it doesn't actually open the find dialog and just winds up typing my search string into the editbox.


I thought there was a way to just activate the system Find window?
____________________________________

Don't Tread on Me

Overthrow the federal government NOW!
____________________________________
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform