Shalabh: I have not played with dotnetfactory and forms. Very interesting and informative. Your demo gives me some ideas for the future.
Thanks, Parke On 9/6/12, Shalabh Dixit <[email protected]> wrote: > Try this code: > > *'Intializing Variables > CONST cord_X = 10 > CONST cord_Y = 20 > CONST txtWidth = 150 > Dim arr_ListItems : arr_ListItems= Array("Index","Draft","Sent > mail","personal mail") > With DOTNetFactory > 'Main-Form > Set oForm = .CreateInstance("System.Windows.Forms.Form", > "System.Windows.Forms") > 'Main-Form Start Position Object > Set objStartPos = > DotNetFactory.CreateInstance("System.Windows.Forms.FormStartPosition","System.Windows.Forms") > 'Combobox > Set oComboBox = > .CreateInstance("System.Windows.Forms.ComboBox","System.Windows.Forms") > 'Point > Set oPoint = .CreateInstance("System.Drawing.Point", > "System.Drawing", x, y) > 'Buttons > Set oButton_Cancel = .CreateInstance("System.Windows.Forms.Button", > "System.Windows.Forms") > Set oButton_Accept = .CreateInstance("System.Windows.Forms.Button", > "System.Windows.Forms") > 'Label_FeedName > Set oLbl_MailItems = > .CreateInstance("System.Windows.Forms.Label","System.Windows.Forms") > Set oFont = .CreateInstance("System.Drawing.Font", > "System.Drawing", "Microsoft Sans Serif", 11) > End With > > 'Label Point > With oPoint > .x = cord_X > .y = cord_Y > End With > > With oLbl_MailItems > .Location = oPoint > .Width = txtWidth > .Text = "Select Any Mail Link" > .Font.Style.Bold = oFont.Bold > End With > > > 'Setting ComboBox Point > With oPoint > .x = cord_X + 130 > .y = cord_Y - 2 > End With > 'Configuring ComboBox Properties > With oComboBox > .Location = oPoint > .Width = txtWidth > .Name = "cmbBox_EMailLinks" > End With > > 'Populating Feed-Names in ComboBox > For int_arr_Index = 0 To UBound(arr_ListItems) > oComboBox.Items.Add arr_ListItems(int_arr_Index) > Next > > 'Configuring Cancel Button Properties > With oPoint > .x = cord_X + 80 > .y = cord_Y + 40 > End With > With oButton_Accept > .Location = oPoint > .Width = 70 > .Text = "Start" > End With > > '------------------------------------------------------------------------------------------------------ > 'Configuring Accept Button Properties > With oPoint > .x = cord_X + 160 > .y = cord_Y + 40 > End With > With oButton_Cancel > .Location = oPoint > .Width = 70 > .Text = "Stop" > End With > '------------------------------------------------------------------------------------------------------ > 'Configuring Main-Form Properties > With oForm > .Text = "DotNet Factory Demo" > 'Set Form Height > .Height = 190 > .Width = 500 > .StartPosition = objStartPos.CenterScreen > 'Adding Controls to form > .Controls.Add oComboBox > .Controls.Add oLbl_MailItems > 'Adding a Cancel Button > .CancelButton = oButton_Cancel > .Controls.Add oButton_Cancel > 'Adding a Accept Button > .CancelButton = oButton_Accept > .Controls.Add oButton_Accept > End With > > 'Show Dialog > oForm.ShowDialog* > > > > > Regards > Shalabh Dixit > My QTP Blog <http://shalabhdixit.wordpress.com/> > > > > On Thu, Sep 6, 2012 at 6:16 PM, Akhalesh Yadav > <[email protected]>wrote: > >> dear, >> as per my suggestion you can make an arraylist and add items in >> it >> >> Set MyList = DotnetFactory.CreateInstance("System.Collections.ArrayList") >> MyList.Add("Index") >> MyList.Add("Draft") >> MyList.Add("Sent mail") >> MyList.Add("personal mail") >> >> if you want to select any one of them you can >> browser("").page("").weblist("").select(MyList(0)) >> >> >> >> Thanks >> Akhalesh >> >> >> On Thu, Sep 6, 2012 at 6:06 PM, arpit bansal < >> [email protected]> wrote: >> >>> ITS URGENT.........!!!!!! >>> >>> >>> On Thursday, September 6, 2012 3:49:41 PM UTC+5:30, arpit bansal wrote: >>>> >>>> hi >>>> my mentor assign me the task to create the combo box and listing the >>>> emails link like inbox, sent items , drafts etc. It is easy to login >>>> into >>>> the mail by just using qtp but i am not able to create the drop down >>>> combo >>>> box and add the items in it. Also unable to guess how to store the >>>> selected >>>> values. >>>> Please help me just by giving the simple example to create the drop >>>> down >>>> combo box and items it in. Also to store the selected item in variable >>>> for >>>> future processing >>>> >>> -- >>> You received this message because you are subscribed to the Google >>> "QTP - HP Quick Test Professional - Automated Software Testing" >>> group. >>> To post to this group, send email to [email protected] >>> To unsubscribe from this group, send email to >>> [email protected] >>> For more options, visit this group at >>> http://groups.google.com/group/MercuryQTP?hl=en >>> >> >> >> >> -- >> Akhalesh yadav >> +919555717928 >> +919310680659 >> >> -- >> You received this message because you are subscribed to the Google >> "QTP - HP Quick Test Professional - Automated Software Testing" >> group. >> To post to this group, send email to [email protected] >> To unsubscribe from this group, send email to >> [email protected] >> For more options, visit this group at >> http://groups.google.com/group/MercuryQTP?hl=en >> > > -- > You received this message because you are subscribed to the Google > "QTP - HP Quick Test Professional - Automated Software Testing" > group. > To post to this group, send email to [email protected] > To unsubscribe from this group, send email to > [email protected] > For more options, visit this group at > http://groups.google.com/group/MercuryQTP?hl=en > -- You received this message because you are subscribed to the Google "QTP - HP Quick Test Professional - Automated Software Testing" group. To post to this group, send email to [email protected] To unsubscribe from this group, send email to [email protected] For more options, visit this group at http://groups.google.com/group/MercuryQTP?hl=en
