Click here to Skip to main content
15,906,766 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: Webclient doesn't get entire file Pin
Eddy Vluggen30-Apr-10 1:13
professionalEddy Vluggen30-Apr-10 1:13 
Questionaddhandler, addressof question Pin
Simon_Whale29-Apr-10 1:25
Simon_Whale29-Apr-10 1:25 
AnswerRe: addhandler, addressof question Pin
Wayne Gaylard29-Apr-10 2:28
professionalWayne Gaylard29-Apr-10 2:28 
GeneralRe: addhandler, addressof question Pin
Simon_Whale29-Apr-10 2:37
Simon_Whale29-Apr-10 2:37 
GeneralRe: addhandler, addressof question Pin
Wayne Gaylard29-Apr-10 3:13
professionalWayne Gaylard29-Apr-10 3:13 
GeneralRe: addhandler, addressof question Pin
Simon_Whale29-Apr-10 3:27
Simon_Whale29-Apr-10 3:27 
GeneralRe: addhandler, addressof question Pin
Wayne Gaylard29-Apr-10 3:40
professionalWayne Gaylard29-Apr-10 3:40 
GeneralRe: addhandler, addressof question Pin
Gregory Gadow29-Apr-10 4:19
Gregory Gadow29-Apr-10 4:19 
You can do this a bit more cleanly by storing the delegate in MyButton.
VB.NET
Private Class MyButton

    Private strName As String
    Private clkHandler As System.EventHandler

    Public Property Name() As String
        Get
            Return strName
        End Get
        Set(ByVal value As String)
            strName = value
        End Set
    End Property

    Public Property Handler() As System.EventHandler
        Get
            Return clkHandler
        End Get
        Set(ByVal value As System.EventHandler)
            clkHandler = value
        End Set
    End Property

End Class

    Private Sub ClickRoutine1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("Presented to you by ClickRoutine1 through " & CType(sender, Button).Name)
    End Sub

    Private Sub ClickRoutine2(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("Presented to you by ClickRoutine2 through " & CType(sender, Button).Name)
    End Sub


    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles Me.Load
        Buttons = New List(Of MyButton)
        For i As Integer = 0 To 4 'obviously get your info from file but i created this for demo            
            Dim newButton As New MyButton
            newButton.Name = "Button " & i
            If i Mod 2 = 0 Then
                newButton.Handler = AddressOf ClickRoutine1
            Else
                newButton.Handler = AddressOf ClickRoutine2
            End If

            Buttons.Add(newButton)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click
        Dim index As Integer = 0
        Dim intHeightDiff As Integer = Button1.Height + 5
        For Each newButton As MyButton In Buttons 'list of MyButtons            
            Dim btnNew As New Button
            btnNew.Name = newButton.Name
            AddHandler btnNew.Click, newButton.Handler
            btnNew.Parent = Me
            btnNew.Visible = True
            btnNew.Top = intHeightDiff + (intHeightDiff * index) + Button1.Top
            btnNew.Left = Button1.Left
            btnNew.Width = Button1.Width
            btnNew.Text = btnNew.Name
            index += 1
        Next
    End Sub

GeneralRe: addhandler, addressof question Pin
cptKoala29-Apr-10 20:41
cptKoala29-Apr-10 20:41 
GeneralRe: addhandler, addressof question Pin
Wayne Gaylard29-Apr-10 23:06
professionalWayne Gaylard29-Apr-10 23:06 
GeneralRe: addhandler, addressof question Pin
cptKoala30-Apr-10 0:06
cptKoala30-Apr-10 0:06 
AnswerRe: addhandler, addressof question Pin
supercat96-May-10 7:08
supercat96-May-10 7:08 
Questionwebbroeser auto login Pin
gokhan üstüner28-Apr-10 22:20
professionalgokhan üstüner28-Apr-10 22:20 
QuestionHelp with checkbox on datagrid? [modified] Pin
waner michaud28-Apr-10 7:45
waner michaud28-Apr-10 7:45 
AnswerRe: Help with checkbox on datagrid? Pin
Henry Minute28-Apr-10 12:54
Henry Minute28-Apr-10 12:54 
AnswerRe: Help with checkbox on datagrid? Pin
Md. Marufuzzaman28-Apr-10 22:07
professionalMd. Marufuzzaman28-Apr-10 22:07 
GeneralRe: Help with checkbox on datagrid? Pin
waner michaud29-Apr-10 3:14
waner michaud29-Apr-10 3:14 
Questionweb browser in vb.net. Pin
offroaderdan28-Apr-10 6:30
offroaderdan28-Apr-10 6:30 
AnswerRe: web browser in vb.net. Pin
Luc Pattyn28-Apr-10 7:16
sitebuilderLuc Pattyn28-Apr-10 7:16 
AnswerRe: web browser in vb.net. Pin
The Man from U.N.C.L.E.28-Apr-10 21:37
The Man from U.N.C.L.E.28-Apr-10 21:37 
QuestionVB.NET 2005 - Walking the Document Outline to iterate through controls Pin
vvincent28-Apr-10 5:26
vvincent28-Apr-10 5:26 
AnswerRe: VB.NET 2005 - Walking the Document Outline to iterate through controls Pin
Dave Kreskowiak28-Apr-10 8:19
mveDave Kreskowiak28-Apr-10 8:19 
GeneralRe: VB.NET 2005 - Walking the Document Outline to iterate through controls Pin
vvincent28-Apr-10 11:47
vvincent28-Apr-10 11:47 
GeneralRe: VB.NET 2005 - Walking the Document Outline to iterate through controls Pin
Dave Kreskowiak28-Apr-10 15:32
mveDave Kreskowiak28-Apr-10 15:32 
QuestionQueries for Datagrid View in VB 2008 Pin
Razanust28-Apr-10 0:52
Razanust28-Apr-10 0:52 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.