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 ??

score 2 · Accepted Answer · answered Nov 25 '13 at 01:25

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

score 0 · Answer 2 · answered Nov 25 '13 at 01:15

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

Not working :( (Object reference not set to an instance of an object.) — Ahmad Visioń, Nov 25 '13 at 01:19

score 0 · Answer 3 · edited May 23 '17 at 12:05

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 '17 at 12:05

Community

1
1

answered Nov 25 '13 at 01:19

mattmc3

17,595
7
83
103

Type 'RoutedEventArgs' is not defined :( – Ahmad Visioń Nov 25 '13 at 01:22
@Ahmad Visioń - Just make it System.EventArgs. Wasn't sure if you were using WPF. – mattmc3 Nov 25 '13 at 01:44

score 0 · Answer 4 · answered Nov 25 '13 at 01:29

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.

vb.net passing variables between controls

4 Answers4