vb.net passing variables between controls

Question

here is my code

Public Sub Personalize_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For Each fi As FileInfo In New DirectoryInfo(Application.StartupPath + "\web").GetFiles
        Dim pictooltip As New ToolTip
        Dim pbx As New Button
        AddHandler pbx.Click, AddressOf pbx_click
        pbx.Width = 150
        pbx.Height = 150
        pbx.BackgroundImage = Image.FromFile(fi.FullName)
        wallpapers.Controls.Add(pbx)
        pbx.Cursor = Cursors.Hand
        pictooltip.SetToolTip(pbx, fi.Name)
        pbx.BackgroundImageLayout = ImageLayout.Stretch

    Next
End Sub

Private Sub pbx_click()
    main.BackgroundImage = Image.FromFile(fi.FullName)
End Sub

i can't figure how to use "fi" in pbx_click()

any hint for that ??

Idle_Mind · Accepted Answer · 2013-11-25 01:25:54Z

2

Just put the FullName() into the Tag() property of the Button and pull it back out when it gets clicked:

Dim pbx As New Button
pbx.Tag = fi.FullName

Pulling it back out:

Private Sub pbx_click()
    main.BackgroundImage = Image.FromFile(DirectCast(sender, control).Tag.ToString())
End Sub

answered Nov 25, 2013 at 1:25

Idle_Mind

39.3k3 gold badges31 silver badges40 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Codemunkeee · Accepted Answer · 2013-11-25 01:15:37Z

0

Try this,

Public Class Form1

Dim fi as FileInfo

Public Sub Personalize_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For Each Me.fi In New DirectoryInfo(Application.StartupPath + "\web").GetFiles
        Dim pictooltip As New ToolTip
        Dim pbx As New Button
        AddHandler pbx.Click, AddressOf pbx_click
        pbx.Width = 150
        pbx.Height = 150
        pbx.BackgroundImage = Image.FromFile(fi.FullName)
        wallpapers.Controls.Add(pbx)
        pbx.Cursor = Cursors.Hand
        pictooltip.SetToolTip(pbx, fi.Name)
        pbx.BackgroundImageLayout = ImageLayout.Stretch

    Next

End Sub

Private Sub pbx_click()
    main.BackgroundImage = Image.FromFile(fi.FullName)
End Sub

End Class

answered Nov 25, 2013 at 1:15

Codemunkeee

1,6136 gold badges19 silver badges29 bronze badges

1 Comment

Ahmad Visioń Over a year ago

Not working :( (Object reference not set to an instance of an object.)

Malcolm Salvador · Accepted Answer · 2013-11-25 01:29:31Z

Your Fi is declared locally in the first subroutine (or sub).

Declare Fi outside of the Personalize_Load sub, then pass data to it.

 Dim fi as String = ""

Public Sub Personalize_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each fii As FileInfo In New DirectoryInfo(Application.StartupPath + "\web").GetFiles
    Dim pictooltip As New ToolTip
    Dim pbx As New Button
    AddHandler pbx.Click, AddressOf pbx_click
    pbx.Width = 150
    pbx.Height = 150
    pbx.BackgroundImage = Image.FromFile(fii.FullName)

    fi = fii.FullName

    wallpapers.Controls.Add(pbx)
    pbx.Cursor = Cursors.Hand
    pictooltip.SetToolTip(pbx, fi.Name)
    pbx.BackgroundImageLayout = ImageLayout.Stretch

    Next
 End Sub

Private Sub pbx_click()
    main.BackgroundImage = Image.FromFile(fi)
End Sub

You can then use pbx_click() by simply calling it on any sub, or trying it to a handler.

Community · Accepted Answer · 2017-05-23 12:05:05Z

0

Change your event to this:

Private Sub pbx_click(sender As Object, e As System.EventArgs)
    main.BackgroundImage = Image.FromFile(DirectCast(sender, Button).BackgroundImage)
End Sub

Or, you can use the Tag property and store some serialized data. See here: Add parameter to Button click event

edited May 23, 2017 at 12:05

CommunityBot

11 silver badge

answered Nov 25, 2013 at 1:19

mattmc3

18.6k8 gold badges88 silver badges109 bronze badges

2 Comments

Ahmad Visioń Over a year ago

Type 'RoutedEventArgs' is not defined :(

mattmc3 Over a year ago

@Ahmad Visioń - Just make it System.EventArgs. Wasn't sure if you were using WPF.

Collectives™ on Stack Overflow

vb.net passing variables between controls

4 Answers 4

Comments

1 Comment

Comments

2 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

Comments

1 Comment

Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related