FoxInCloud
Re: Internet Information service 8
Messages
Reply
Edit
Delete
******************
<span style="{font-size: xx-small; color: red;}">Code parsing for language: "”vfp”" is not currently supported.<br></span>
Define Class OFORM As Thisform
Width = 400
Height = 400
Add Object label1 As Label With ;
FontBold = .T., ;
FontName = "Verdana", ;
FontSize = 10, ;
Height = 17, ;
Left = 10, ;
Top = 0, ;
Width = 170, ;
Name = "eti1"
Add Object command1 As CommandButton With ;
FontBold = .F., ;
FontName = "Verdana", ;
FontSize = 10, ;
Caption = "Clients", ;
Height = 17, ;
Left = 0, ;
Top = 150, ;
Width = 100, ;
Name = "cmdok"
Add Object command2 As CommandButton With ;
FontBold = .F., ;
FontName = "Verdana", ;
FontSize = 10, ;
Caption = "Chiudi", ;
Height = 17, ;
Left = 105, ;
Top = 150, ;
Width = 100, ;
Name = "cmdend"
Procedure cmdok.Click()
Thisform.eti1.Caption = "PIppo"
Thisform.eti1.Visible = !Thisform.eti1.Visible
Endproc
Procedure cmdend.Click()
Thisform.Release()
Quit
Endproc
Enddefine
