Search This Blog

Monday, November 22, 2010

Functionality: Select an environemtn by using dot net factory method

Function SelectEnv()
Set objEnviForm = DotNetFactory.CreateInstance("System.Windows.Forms.Form")
Set objEnvFormRdgp = DotNetFactory.CreateInstance("System.Windows.Forms.GroupBox")
Set objEnvFormRB1 = DotNetFactory.CreateInstance("System.Windows.Forms.RadioButton")
Set objEnvFormRB2 = DotNetFactory.CreateInstance("System.Windows.Forms.RadioButton")
Set objEnvFormRB3 = DotNetFactory.CreateInstance("System.Windows.Forms.RadioButton")
Set objEnvFormRB4 = DotNetFactory.CreateInstance("System.Windows.Forms.RadioButton")
Set objEnvFormRB5 = DotNetFactory.CreateInstance("System.Windows.Forms.RadioButton")
Set objEnvFormOKButton = DotNetFactory.CreateInstance("System.Windows.Forms.Button")
Set objEnvFormCANCELButton = DotNetFactory.CreateInstance("System.Windows.Forms.Button")
Set objButtonFlatStyle = DotNetFactory.CreateInstance("System.Windows.Forms.FlatStyle")
Set objButtonDialogResult=DotNetFactory.CreateInstance("System.Windows.Forms.DialogResult")
Set formStartPos = objEnviForm.StartPosition
With objEnviForm
.Text = "AES Automation"
.TopMost = True
.FormBorderStyle = .FormBorderStyle.FixedToolWindow
.Size = DFGetSize(500,150)
objEnvFormRdgp.Controls.Add objEnvFormRB1
objEnvFormRdgp.Controls.Add objEnvFormRB2
objEnvFormRdgp.Controls.Add objEnvFormRB3
objEnvFormRdgp.Controls.Add objEnvFormRB4
objEnvFormRdgp.Controls.Add objEnvFormRB5
objEnvFormRdgp.Location = DFGetPont(25,10)
objEnvFormRdgp.Size = DFGetSize(350,80)
objEnvFormRdgp.Text= "Select AES Environment"
objEnvFormRdgp.TabIndex=0
objEnvFormRB1.Location = DFGetPont(30,15)
objEnvFormRB1.Size = DFGetSize(70,20)
objEnvFormRB1.Name = "RadioBox1"
objEnvFormRB1.Text = "&UAT"
objEnvFormRB2.Location = DFGetPont(30,40)
objEnvFormRB2.Size = DFGetSize(70,20)
objEnvFormRB2.Name = "RadioBox2"
objEnvFormRB2.Text = "&SIT"
objEnvFormRB3.Location = DFGetPont(160,15)
objEnvFormRB3.Size = DFGetSize(70,20)
objEnvFormRB3.Name = "RadioBox3"
objEnvFormRB3.Text = "&PFIX"
objEnvFormRB4.Location = DFGetPont(160,40)
objEnvFormRB4.Size = DFGetSize(70,20)
objEnvFormRB4.Name = "RadioBox4"
objEnvFormRB4.Text = "PRO&D"
objEnvFormRB5.Location = DFGetPont(270,15)
objEnvFormRB5.Size = DFGetSize(70,20)
objEnvFormRB5.Name = "RadioBox5"
objEnvFormRB5.Text = "&MIT"
objEnvFormOKButton.Location = DFGetPont(400,15)
objEnvFormOKButton.Size = DFGetSize(70,20)
objEnvFormOKButton.Name = "Button1"
objEnvFormOKButton.FlatStyle = objButtonFlatStyle.Popup
objEnvFormOKButton.DialogResult = objButtonDialogResult.OK
objEnvFormOKButton.Text = "&OK"
objEnvFormOKButton.TabIndex = 1
objEnvFormCANCELButton.Location = DFGetPont(400,40)
objEnvFormCANCELButton.Size = DFGetSize(70,20)
objEnvFormCANCELButton.Name = "Button2"
objEnvFormCANCELButton.FlatStyle = objButtonFlatStyle.Popup
objEnvFormCANCELButton.Text = "&Cancel"
.AcceptButton = objEnvFormOKButton
.CancelButton = objEnvFormCANCELButton
.Controls.Add objEnvFormRdgp
.Controls.Add objEnvFormOKButton
.Controls.Add objEnvFormCANCELButton
.StartPosition = formStartPos.CenterScreen
End With
i=0
Do
objEnviForm.ShowDialog
objEnviForm.Activate
strSelectChoice = ""
If
objEnvFormRB1.Checked Then
strSelectChoice = "UAT"
ElseIf objEnvFormRB2.Checked then
strSelectChoice = "SIT"
ElseIf objEnvFormRB3.Checked then
strSelectChoice = "PFIX"
ElseIf objEnvFormRB4.Checked then
strSelectChoice = "PROD"
ElseIf objEnvFormRB5.Checked then
strSelectChoice = "MIT"
Else strSelectChoice= "No Option is Selected"
End If
If UCase(objEnviForm.DialogResult)="CANCEL" Then
' MsgBox "You Cancelled the form"
strSelectChoice = "CANCEL"
i=1
ElseIf strSelectChoice= "No Option is Selected" Then
MsgBox "You have not selected any option. Please Choose one"
i=0
Else
' MsgBox strSelectChoice
i=1
End If
Loop Until i=1
Set objEnviForm = Nothing
Set formStartPos =Nothing
Set objButtonFlatStyle = Nothing
Set objButtonDialogResult = Nothing
Set objEnvFormRdgp = Nothing
Set objEnvFormRB1 = Nothing
Set objEnvFormRB2 = Nothing
Set objEnvFormRB3 = Nothing
Set objEnvFormRB4 = Nothing
Set objEnvFormRB5 = Nothing
Set objEnvFormOKButton = Nothing
Set objEnvFormCANCELButton = Nothing
SelectEnv = strSelectChoice
End Function
Function DFGetSize(x,y)
Set DFGetSize = DotNetFactory.CreateInstance("System.Drawing.Size","System.Drawing",x,y)End Function
Function DFGetPont(x,y)
Set DFGetPont = DotNetFactory.CreateInstance("System.Drawing.Point","System.Drawing",x,y)
End Function

No comments:

Post a Comment