Results 1 to 5 of 5

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

  1. Nov 17th, 2003, 02:26 AM #1
    Novice
    Novice is offline

    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.
    Reply With Quote Reply With Quote
  2. Nov 17th, 2003, 03:24 AM #2
    dynamic_sysop
    dynamic_sysop is offline
    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]
    Reply With Quote Reply With Quote
  3. Nov 17th, 2003, 04:51 AM #3
    Novice
    Novice is offline

    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.
    Reply With Quote Reply With Quote
  4. Nov 17th, 2003, 04:58 AM #4
    dynamic_sysop
    dynamic_sysop is offline
    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]
    Reply With Quote Reply With Quote
  6. Nov 17th, 2003, 05:24 AM #5
    Novice
    Novice is offline

    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.
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

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

Forum Rules


Click Here to Expand Forum to Full Width