General information
Category:
ActiveX controls in VFP
I have already create a form through coding show below
Public oForm
oForm=Createobject('form1')
oForm.Show
Return
Define Class form1 As Form
Top = 0
Left = 0
width = 700
Height = 300
DoCreate = .T.
Caption = "Salary Calculation"
Name = "form1"
ADD object container1 as container with;
width = 250, ;
Height = 120, ;
Left = 15, ;
Top = 100, ;
backstyle = 0, ;
style = 3
ADD object container2 as container with;
width = 400, ;
Height = 60, ;
Left = 275, ;
Top = 100, ;
backstyle = 0, ;
style = 3
ADD object label1 as label with ;
left = 20, ;
width = 150, ;
Top = 125, ;
caption = "ENTER DA PERCENTAGE"
ADD object label2 as label with ;
left = 20, ;
width = 150, ;
Top = 175, ;
caption = "ENTER HRA PERCENTAGE "
ADD object label3 as label with ;
left = 240, ;
width = 50, ;
Top = 125, ;
caption = "%"
ADD object label4 as label with ;
left = 240, ;
width = 50, ;
Top = 175, ;
caption = "%"
ADD object label5 as label with ;
left = 280, ;
width = 100, ;
Top = 120, ;
caption = "ENTER ID FROM"
ADD object label6 as label with ;
left = 475, ;
width = 90, ;
Top = 120, ;
caption = "ENTER ID TO"
ADD object label7 as label with ;
left = 310, ;
width = 315, ;
Top = 75, ;
caption = "ENTER THE EMPLOYEE ID FOR SALARY CALCULATION "
ADD object label8 as label with ;
left = 30, ;
width = 225, ;
Top = 75, ;
caption = "ENTER PERCENTAGE OF D.A/H.R.A "
Add Object txtda As TextBox With ;
left =180, ;
width = 50, ;
top = 125
Add Object txthra As TextBox With ;
left =180, ;
width = 50, ;
top = 175
Add Object txtfrom As TextBox With ;
left =400, ;
width = 50, ;
top = 120
Add Object txtto As TextBox With ;
left =565, ;
width = 50, ;
top = 120
ADD OBJECT btn as commandbutton WITH ;
left = 200, ;
Top = 250, ;
Height = 25, ;
width =100, ;
caption = 'Calculate '
ADD OBJECT btn1 as commandbutton WITH ;
left = 315, ;
Top = 250, ;
Height = 25, ;
width =75, ;
caption = 'Exit '
ADD OBJECT btn2 as commandbutton WITH ;
left = 400, ;
Top = 250, ;
Height = 25, ;
width =75, ;
caption = 'View '
ADD OBJECT btn3 as commandbutton WITH ;
left = 485, ;
Top = 250, ;
Height = 25, ;
width =75, ;
caption = 'Clear '
ENDDEFINE
My question is
How to insert Microsoft Progress Bar Control version 5.0(SP2)on my form programmatically?
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only