Results 1 to 5 of 5

Thread: How To.... pass Variables to new form?

  1. #1

    Thread Starter
    Junior Member Novice's Avatar
    Join Date
    Nov 2003
    Location
    Stuttgart
    Posts
    19

    Question How To.... pass Variables to new form?

    Hello again,

    I have a form that controls the size, resolution and so on for a form that hasn't been opened yet. Now my problem is:

    The User can insert a name for the new form. But how do I pass this entry in the textBox to the new form?

    Thanks in advance
    I know that I know nothing, therefore I know something.

  2. #2
    Frenzied Member dynamic_sysop's Avatar
    Join Date
    Jun 2003
    Location
    Ashby, Leicestershire.
    Posts
    1,142
    you will need to modify the constructor of Form2 , so that when it's loaded from Form1 , it can access Form1's Controls.
    in Form2 .....
    VB Code:
    1. [Color=Blue]Public[/color] [Color=Blue]Class[/color] Form2
    2.     [Color=Blue]Inherits[/color] System.Windows.Forms.Form
    3.  
    4. #[color=blue]Region[/color] " Windows Form Designer generated code "
    5.  
    6.     [Color=Blue]Dim[/color] frm1 [Color=Blue]As[/color] Form1 [Color=Green]'///[/color] [Color=Green]first[/color] [Color=Green]add[/color] [Color=Green]this[/color] [Color=Green]line[/color] [Color=Green]above[/color] [Color=Green]Sub[/color] [Color=Green]New[/color] [Color=Green]([/color] [Color=Green][/color] [Color=Green])[/color] [Color=Green]
    7.  
    8. [/color]    [Color=Blue]Public[/color] [Color=Blue]Sub[/color] [Color=Blue]New[/color]([Color=Blue]ByVal[/color] f [Color=Blue]As[/color] Form1) [Color=Green]'///[/color] [Color=Green]then[/color] [Color=Green]add[/color] [Color=Green]ByVal[/color] [Color=Green]f[/color] [Color=Green]As[/color] [Color=Green]Form1[/color] [Color=Green]in[/color] [Color=Green]the[/color] [Color=Green]brackets[/color] [Color=Green].[/color] [Color=Green]
    9. [/color]        [Color=Blue]MyBase[/color].New()
    10.  
    11.         frm1 = f [Color=Green]'///[/color] [Color=Green]then[/color] [Color=Green]to[/color] [Color=Green]initialize[/color] [Color=Green]the[/color] [Color=Green]frm1[/color] [Color=Green][/color] [Color=Green]([/color] [Color=Green][/color] [Color=Green]to[/color] [Color=Green]access[/color] [Color=Green]Form1's[/color] [Color=Green]Controls[/color] [Color=Green][/color] [Color=Green])[/color] [Color=Green][/color] [Color=Green]add[/color] [Color=Green]this[/color] [Color=Green]line[/color] [Color=Green].[/color] [Color=Green]
    12.  
    13. [/color]        [Color=Green]'This[/color] [Color=Green]call[/color] [Color=Green]is[/color] [Color=Green]required[/color] [Color=Green]by[/color] [Color=Green]the[/color] [Color=Green]Windows[/color] [Color=Green]Form[/color] [Color=Green]Designer[/color] [Color=Green].[/color] [Color=Green]
    14. [/color]        InitializeComponent()
    15.  
    16.         [Color=Green]'Add[/color] [Color=Green]any[/color] [Color=Green]initialization[/color] [Color=Green]after[/color] [Color=Green]the[/color] [Color=Green]InitializeComponent[/color] [Color=Green]([/color] [Color=Green][/color] [Color=Green])[/color] [Color=Green][/color] [Color=Green]call
    17.  
    18. [/color]    [Color=Blue]End[/color] [Color=Blue]Sub
    19.  
    20. [/color]    [Color=Green]'Form[/color] [Color=Green]overrides[/color] [Color=Green]dispose[/color] [Color=Green]to[/color] [Color=Green]clean[/color] [Color=Green]up[/color] [Color=Green]the[/color] [Color=Green]component[/color] [Color=Green]list[/color] [Color=Green].[/color] [Color=Green]
    21. [/color]    [Color=Blue]Protected[/color] [Color=Blue]Overloads[/color] [Color=Blue]Overrides[/color] [Color=Blue]Sub[/color] Dispose([Color=Blue]ByVal[/color] disposing [Color=Blue]As[/color] [Color=Blue]Boolean[/color])
    22.         [Color=Blue]If[/color] disposing [Color=Blue]Then
    23. [/color]            [Color=Blue]If[/color] [Color=Blue]Not[/color] (components [Color=Blue]Is[/color] [Color=Blue]Nothing[/color]) [Color=Blue]Then
    24. [/color]                components.Dispose()
    25.             [Color=Blue]End[/color] [Color=Blue]If
    26. [/color]        [Color=Blue]End[/color] [Color=Blue]If
    27. [/color]        [Color=Blue]MyBase[/color].Dispose(disposing)
    28.     [Color=Blue]End[/color] [Color=Blue]Sub
    29.  
    30. [/color]    [Color=Green]'Required[/color] [Color=Green]by[/color] [Color=Green]the[/color] [Color=Green]Windows[/color] [Color=Green]Form[/color] [Color=Green]Designer
    31. [/color]    [Color=Blue]Private[/color] components [Color=Blue]As[/color] System.ComponentModel.IContainer
    32.  
    33.     [Color=Green]'NOTE[/color] [Color=Green]:[/color] [Color=Green][/color] [Color=Green]The[/color] [Color=Green]following[/color] [Color=Green]procedure[/color] [Color=Green]is[/color] [Color=Green]required[/color] [Color=Green]by[/color] [Color=Green]the[/color] [Color=Green]Windows[/color] [Color=Green]Form[/color] [Color=Green]Designer
    34. [/color]    [Color=Green]'It[/color] [Color=Green]can[/color] [Color=Green]be[/color] [Color=Green]modified[/color] [Color=Green]using[/color] [Color=Green]the[/color] [Color=Green]Windows[/color] [Color=Green]Form[/color] [Color=Green]Designer[/color] [Color=Green].[/color] [Color=Green][/color] [Color=Green][/color] [Color=Green]
    35. [/color]    [Color=Green]'Do[/color] [Color=Green]not[/color] [Color=Green]modify[/color] [Color=Green]it[/color] [Color=Green]using[/color] [Color=Green]the[/color] [Color=Green]code[/color] [Color=Green]editor[/color] [Color=Green].[/color] [Color=Green]
    36. [/color]    <System.Diagnostics.DebuggerStepThrough()> [Color=Blue]Private[/color] [Color=Blue]Sub[/color] InitializeComponent()
    37.         [Color=Green]'
    38. [/color]        [Color=Green]'Form2
    39. [/color]        [Color=Green]'
    40. [/color]        [Color=Blue]Me[/color].AutoScaleBaseSize = [Color=Blue]New[/color] System.Drawing.Size(5, 13)
    41.         [Color=Blue]Me[/color].ClientSize = [Color=Blue]New[/color] System.Drawing.Size(408, 230)
    42.  
    43.         [Color=Blue]Me[/color].Name = frm1.TextBox1.Text [Color=Green]'///[/color] [Color=Green]name[/color] [Color=Green]the[/color] [Color=Green]form[/color] [Color=Green]as[/color] [Color=Green]the[/color] [Color=Green]text[/color] [Color=Green]in[/color] [Color=Green]TextBox1[/color] [Color=Green]on[/color] [Color=Green]Form1[/color] [Color=Green].[/color] [Color=Green]
    44. [/color]        [Color=Blue]Me[/color].Text = frm1.TextBox1.Text
    45.  
    46.     [Color=Blue]End Sub[/color]
    47.  
    48. [Color=Blue]#End Region[/color]
    49.  
    50.  [Color=Blue]End Class[/color]
    then in Form1 , assuming you have a textbox and a button...
    VB Code:
    1. [Color=Blue]Private[/color] [Color=Blue]Sub[/color] Button1_Click([Color=Blue]ByVal[/color] sender [Color=Blue]As[/color] System.Object, [Color=Blue]ByVal[/color] e [Color=Blue]As[/color] System.EventArgs) [Color=Blue]Handles[/color] Button1.Click
    2.         [Color=Blue]If[/color] [Color=Blue]Not[/color] TextBox1.Text = "" [Color=Blue]AndAlso[/color] [Color=Blue]Not[/color] TextBox1.Text = [Color=Blue]Me[/color].Name [Color=Blue]Then
    3. [/color]            [Color=Blue]Dim[/color] frm2 [Color=Blue]As[/color] [Color=Blue]New[/color] Form2([Color=Blue]Me[/color]) [Color=Green]'///[/color] [Color=Green]notice[/color] [Color=Green]the[/color] [Color=Green]Me[/color] [Color=Green]in[/color] [Color=Green]brackets[/color] [Color=Green].[/color] [Color=Green]
    4. [/color]            frm2.Show()
    5.         [Color=Blue]End[/color] [Color=Blue]If
    6. [/color]    [Color=Blue]End[/color]
    hope it helps.
    ~
    if a post is resolved, please mark it as [Resolved]
    protected string get_Signature(){return Censored;}
    [vbcode][php] please use code tags when posting any code [/php][/vbcode]

  3. #3

    Thread Starter
    Junior Member Novice's Avatar
    Join Date
    Nov 2003
    Location
    Stuttgart
    Posts
    19
    Thank you,

    that'll helped.

    Now the new form has its name, but now I need to pass the height and width values (also in the textBoxes on form1) to form2.

    How is that going?
    Do I have to modify the Region code in order to solve this prob?

    Thanks
    I know that I know nothing, therefore I know something.

  4. #4
    Frenzied Member dynamic_sysop's Avatar
    Join Date
    Jun 2003
    Location
    Ashby, Leicestershire.
    Posts
    1,142
    in the windows generated code area of form2 ( where you declare the Form's name / text , do this...
    VB Code:
    1. [color=blue]Me[/color].ClientSize = [color=blue]New[/color] System.Drawing.Size(frm1.TextBox2.Text, frm1.TextBox3.Text)
    2. [COLOR=green]'/// obviously using your textbox's name's off form1.[/color]
    ~
    if a post is resolved, please mark it as [Resolved]
    protected string get_Signature(){return Censored;}
    [vbcode][php] please use code tags when posting any code [/php][/vbcode]

  5. #5

    Thread Starter
    Junior Member Novice's Avatar
    Join Date
    Nov 2003
    Location
    Stuttgart
    Posts
    19
    Thanks a lot
    I know that I know nothing, therefore I know something.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width