photo credit: jonathansin

This is the 6th article in the DOTNetFactory Series. The first 5 articles cover the basics of creating a user form and adding a control to it. Like the previous article, this will also be a little fast-paced and will cover how to create a Custom form and add a RadioButton control to it. If you have any doubts with the content in this article, or the previous, please post your comments and I will try to answer them as soon as possible.

Similar to creating a Form, a Text Box and a Button Control, we will use .CreateInstance to create an instance of RadioButton Control as well.

Set oRadioButton = DOTNetFactory.CreateInstance("System.Windows.Forms.RadioButton", "System.Windows.Forms")

Similar to the objects we’ve worked in the preceeding lessons, we will again have to define a point where the RadioButton will be placed.

Set oPoint = DotNetFactory.CreateInstance("System.Drawing.Point", "System.Drawing", x, y)
 
With oPoint
	.x = 20
	.y = 20
End With
 
oRadioButton.Location = oPoint

Also, we must add some Text to the RadioButton so its easily distinguishable. It can be done by using the .Text method:

oRadioButton.Text = "RadioButton"

Putting it all together

Set oForm = DotNetFactory.CreateInstance("System.Windows.Forms.Form", "System.Windows.Forms")
Set oButton = DotNetFactory.CreateInstance("System.Windows.Forms.Button", "System.Windows.Forms")
Set oRadioButton = DOTNetFactory.CreateInstance("System.Windows.Forms.RadioButton", "System.Windows.Forms")
 
Set oPoint = DotNetFactory.CreateInstance("System.Drawing.Point", "System.Drawing", x, y)
 
'RadioButton Location
With oPoint
	.x = 20
	.y = 20
End With
 
'RadioButton Properties
With oRadioButton
	.Text = "RadioButton"
	'Give the RadioButton a name property
	.Name = "btnSample"
	.Location = oPoint
End With
 
'Button Location
With oPoint
	.x = 20
	.y = 50
End With
 
'Button Properties
With oButton
	.Location = oPoint
	.Width = 100
	.Text = "Close Form"
End with
 
'Add Controls
With oForm
	.Controls.Add oRadioButton
	'Adding a Cancel Button
	.CancelButton = oButton
	.Controls.Add oButton
End with
 
'Show Dialog
oForm.ShowDialog
 
'Output the entered Text:
MsgBox "RadioButton Selected: " & oRadioButton.Checked

Executing the code above will display a form control like below:

DOTNetFactory: Adding a Radio Button Control

I had the RadioButton selected and after clicking the WebButton, I received the following output from QTP:

QTP Output for a Selected RadioButton

In the next topic in this series, we will learn how to create a ComboBox control using DOTNetFactory.

In this Series

1. QTP & DOTNetFactory – Creating a Custom Form
2. QTP & DOTNetFactory – Adding a Text Box Control
3. QTP & DOTNetFactory – Adding a Button Control
4. QTP & DOTNetFactory – Adding a CheckBox Control
5. QTP & DOTNetFactory – Creating a Custom Form with Multiple Objects
6. QTP & DOTNetFactory – Adding a RadioButton {Currently Viewed}
7. QTP & DOTNetFactory – Adding a ComboBox – Coming Soon!

If you have any questions, please ask them in the comments section. If your query is confidential, please use the Contact Form to send me an e-mail instead.

Tagged as: DOTNetFactory, QTP