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
