version 6.30 0 Form1 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 238 268 1 Door.dll 1 Door.dll 4 LabelKey:Event LabelClick:Event LabelLostFocus:Event Obj:Object Sub designer addform(Form1,"Form1","",220,220,220)@ addtextbox(form1,TextBox1,10,40,215,22,"TextBox1",255,255,255,0,0,0,True,True,False,9)@ addlabel(form1,Label1,10,10,215,25,"Label1",220,220,220,0,0,0,True,True,9)@ End Sub @EndOfDesignText@Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show Form1.Line(Label1.Top-1,Label1.Left-1,Label1.Left+label1.Width+1,Label1.Top+label1.Height+1,cGray,B) Obj.New1(False) Obj.FromControl("Label1") LabelClick.New1(Obj.Value,"Click") LabelKey.New1(Obj.Value,"KeyPress") LabelLostFocus.New1(Obj.Value,"LostFocus") End Sub Sub LabelClick_NewEvent Form1.Line(Label1.Top-1,Label1.Left-1,Label1.Left+label1.Width+1,Label1.Top+label1.Height+1,cOrange,B) Label1.Focus End Sub Sub LabelLostFocus_NewEvent Form1.Line(Label1.Top-1,Label1.Left-1,Label1.Left+label1.Width+1,Label1.Top+label1.Height+1,cGray,B) End Sub Sub LabelKey_NewEvent Obj.Value=LabelKey.Data a=Obj.GetProperty("KeyChar") If a=Chr(13) Then LabelLostFocus_NewEvent Else If a=Chr(8) Label1.Text=StrRemove(Label1.Text,StrLength(label1.Text)-1,1) Else Label1.Text=Label1.Text & a End If End Sub