Hi, Pls refer the following links for the same
http://www.learnqtp.com/dotnetfactory-qtp-part1-basics/ http://www.learnqtp.com/dotnetfactory-qtp-part2-create-user-form/ Hope it helps...!! :) Regards Shalabh Dixit My QTP Blog <http://shalabhdixit.wordpress.com/> On Fri, Sep 7, 2012 at 10:02 PM, sachin mahajan <[email protected]> wrote: > Can u plz explain more abt dotnet factory..... > Ex wt is the use,whn used etc > > It will be grt help..... > On 7 Sep 2012 19:34, "Parke Kuntz" <[email protected]> wrote: > >> 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 >> > -- > 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
