Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Button click after textbox valid doesn't fire?
Message
De
02/12/2005 15:43:16
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Divers
Thread ID:
01074348
Message ID:
01074396
Vues:
13
Hi Tom,

On your say-so, I just went back and tried it in VFP6. I don't get the buttonclick messagebox. You do? I wonder what's different. For me it operates in 6 the same as 9. I get the textbox message, but not the button click message.

Could you please confirm for me exactly what you're seeing? Maybe it's a switch I have differently set somewhere.

So we're on the same wavelength, the form comes up, and I click the button. I get one messagebox only. Do you get 2?

>Alan;
>
>Your code works fine in VFP 6.0
>
>Tom
>
>
>
>>Running vfp9 on WinXP SP2.
>>
>>When I have a messagebox in a textbox valid, and, with the textbox having focus, I click on a button, the button's click event doesn't fire. Is this a bug, or is it supposed to happen this way?
>>
>>Here is some simple code. Note that if you change command1.click to command1.rightclick, the rightclick event will fire which makes me lean toward it being a bug.
>>
>>I thought it might make a difference if the messagebox didn't have to be closed manually, so I tried changing the
MessageBox("TextBox Valid")
to be
MessageBox("TextBox Valid",0,2000)
But it makes no difference. The button click doesn't fire.
>>
>>Anybody?
>>
>>oForm = CREATEOBJECT("Form1")
>>oForm.Show
>>READ events
>>
>>RETURN
>>
>>DEFINE CLASS form1 AS form
>>  DoCreate = .T.
>>  Caption = "Form1"
>>  Name = "Form1"
>>
>>  ADD OBJECT text1 AS textbox WITH ;
>>    Height = 23, ;
>>    Left = 96, ;
>>    Top = 48, ;
>>    Width = 100, ;
>>    Name = "Text1"
>>
>>  ADD OBJECT command1 AS commandbutton WITH ;
>>    Top = 120, ;
>>    Left = 96, ;
>>    Height = 27, ;
>>    Width = 84, ;
>>    Caption = "Command1", ;
>>    Name = "Command1"
>>
>>  Procedure Destroy
>>    Clear Events
>>  ENDPROC
>>	
>>  PROCEDURE text1.Valid
>>    MessageBox("TextBox Valid")
>>  ENDPROC
>>
>>  PROCEDURE command1.Click
>>    MESSAGEBOX("button click")
>>  ENDPROC
>>
>>ENDDEFINE
>>
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform