It seems that my code doesn't seem to work very much.
(The code to get the tag data from buttons into a textbox), nothing really happens when I press a button...
Here's the code I use in a class module:
[/COLOR][/INDENT] [INDENT][COLOR=#333333]Public Class clsbuttons[/COLOR][/INDENT] [INDENT][COLOR=#333333] Public WithEvents Btn As Button[/COLOR][/INDENT] [INDENT][/INDENT] [INDENT][/INDENT] [INDENT][COLOR=#333333] Private Sub Btn_Click()[/COLOR][/INDENT] [INDENT][COLOR=#333333] Form5.TextBox3.Text = Btn.Tag[/COLOR][/INDENT] [INDENT][COLOR=#333333] Form5.TextBox5.Text = Format(Now(), "yyyy-mm-dd")[/COLOR][/INDENT] [INDENT][COLOR=#333333] Form5.Show()[/COLOR][/INDENT] [INDENT][COLOR=#333333] End Sub[/COLOR][/INDENT] [INDENT][COLOR=#333333]End Class[/COLOR][/INDENT] [INDENT][COLOR=#333333]
Here's the code I use in the normal form with the buttons:
[/COLOR][/INDENT] [INDENT][COLOR=#333333]Public Class Form4[/COLOR][/INDENT] [INDENT][COLOR=#333333] Dim colButtons As New Collection[/COLOR][/INDENT] [INDENT][COLOR=#333333] Private Sub Form4_Initialize(sender As Object, e As EventArgs) Handles MyBase.Load[/COLOR][/INDENT] [INDENT][COLOR=#333333] Dim ctl As Control[/COLOR][/INDENT] [INDENT][COLOR=#333333] Dim obEvents As clsbuttons[/COLOR][/INDENT] [INDENT][/INDENT] [INDENT][/INDENT] [INDENT][COLOR=#333333] For Each ctl In Controls[/COLOR][/INDENT] [INDENT][COLOR=#333333] If TypeOf ctl Is Button Then[/COLOR][/INDENT] [INDENT][COLOR=#333333] obEvents = New clsbuttons[/COLOR][/INDENT] [INDENT][COLOR=#333333] obEvents.Btn = ctl[/COLOR][/INDENT] [INDENT][COLOR=#333333] If obEvents.Btn.Tag Like "GLUE*" Then[/COLOR][/INDENT] [INDENT][COLOR=#333333] colButtons.Add(obEvents)[/COLOR][/INDENT] [INDENT][/INDENT] [INDENT][/INDENT] [INDENT][COLOR=#333333] End If[/COLOR][/INDENT] [INDENT][COLOR=#333333] End If[/COLOR][/INDENT] [INDENT][COLOR=#333333] Next ctl[/COLOR][/INDENT] [INDENT][/INDENT] [INDENT][/INDENT] [INDENT][COLOR=#333333] End Sub[/COLOR][/INDENT] [INDENT][/INDENT] [INDENT][/INDENT] [INDENT][COLOR=#333333]End Class[/COLOR][/INDENT] [INDENT][COLOR=#333333]
Pfff don't know what i'm doing wrong...:concern:
Last edited: