Macro Substitution or ReFlection

StrataFrame Forum

Back

Macro Substitution or ReFlection

Author	Message
Terry Bottorff	Terry Bottorff posted 16 Years Ago Topic Details Share Topic
Group: Forum Members Posts: 448, Visits: 12K	I have a FrmGetPayOff with TabControl1 on it. On page1 of tabcontrol1 I have several labels with names lbl1go, lbl2go, lbl3go, ... I would like to fill them with some numeric data found in an array ngopercents(). I have tried to follow some samples found in the forum but if I use the Ctype below it tells me I am missing an object and if I use the last several examples using an object the object in the line below ends up to be nothing and of course produces and error. What am I doing wrong in this code or how do I get the correct object? loObj = Me.TabControl1.TabPages(1).Controls("lbl" & i.ToString + "go") Dim i As Integer = 0 Dim j As Integer = 0 Dim loObj As Object For j = 0 To (nnumofplaces - 1) i = j + 1 ' CType(Me.Controls("lbl" & i.ToString + "go"), Label).Text = ngopercents(j).ToString + "%" ' CType(Me.Controls("txt" & i.ToString + "go"), Label).Text = ngoresults(j).ToString("C") ' loObj = Me.TabControl1.TabPages.Controls("lbl" & i.ToString + "go") ' loObj = Windows.Forms.TabControl.TabPageCollection.Controls("lbl" & i.ToString + "go") ' loObj = frmCalcPayOffs.TabControl1.TabPages(1).Controls("lbl" & i.ToString + "go") loObj = Me.TabControl1.TabPages(1).Controls("lbl" & i.ToString + "go") loObj.GetType().GetProperty("Text").SetValue(loObj, ngopercents(j), Nothing) Next TIA.
	Reply Like 0
Reply
Terry Bottorff	Terry Bottorff posted 16 Years Ago Post Details Share Post
Group: Forum Members Posts: 448, Visits: 12K	I created the silly little form that is attached and the following code works fine. Why does it not work when I try it in my previous post??? TIA Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer = 1 For i = 1 To 3 CType(Me.Controls("lbl" & i.ToString), Label).Text = i.ToString CType(Me.Controls("lbl" & i.ToString + "go"), Label).Text = (i * 100).ToString Next For i = 10 To 11 CType(Me.TabPage1.Controls("lbl" & i.ToString), Label).Text = i.ToString CType(Me.TabPage1.Controls("lbl" & i.ToString + "go"), Label).Text = i.ToString Next End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim i As Integer = 1 For i = 10 To 11 CType(Me.TabPage1.Controls("lbl" & i.ToString), Label).Text = i.ToString CType(Me.TabPage1.Controls("lbl" & i.ToString + "go"), Label).Text = i.ToString Next End Sub End Class Attachments macrosubstitution.png (140 views, 6.00 KB)
	Reply Like 0

Merge into selected topic...

Merge into merge target...

Merge into a specific topic ID...

Threaded View

Macro Substitution or ReFlection

Terry Bottorff - 16 Years Ago

I created the silly little form that is attached and the following...

Terry Bottorff - 16 Years Ago

Hi Terry, I've got an article on how to use reflection to read...

Les Pinter - 16 Years Ago

Oh thank you so much I will look into it very closely. I did find my...

Terry Bottorff - 16 Years Ago

Reading This Topic

Login
Remember Me Reset Password Resend Validation Email Login

Macro Substitution or ReFlection

Macro Substitution or ReFlection

Merge Selected

Threaded View

Similar Topics

Reading This Topic

Login

Explore

Messages

Mentions

Search