Macro Substitution or ReFlection

StrataFrame Forum

Back

Macro Substitution or ReFlection

Author	Message
Terry Bottorff	Terry Bottorff posted 15 Years Ago Post Details Share Post
Group: Forum Members Posts: 448, Visits: 12K	Oh thank you so much I will look into it very closely. I did find my mistake because I had a groupbox that I was not including in the statements. Here is finally what I used but I will read your article to get a grip on this. Thank you again and have a great Holiday season. CType(Me.GroupBox2.Controls("lbl" & (j + 1).ToString + "go"), Label).Text = ngoper(j).ToString + "%" CType(Me.GroupBox2.Controls("txt" & (j + 1).ToString + "go"), TextBox).Text = nresult(j).ToString("C")
	Reply Like 0
Les Pinter	Les Pinter posted 15 Years Ago Post Details Share Post
Group: Forum Members Posts: 43, Visits: 213	Hi Terry, I've got an article on how to use reflection to read values of screen objects, and how to set their Text (or other) property, at http://lespinter.com/FoxToNet/ShowArticle.aspx?ArtNum=405. See if the technique described there will do what you need. Les
	Reply Like 0
Terry Bottorff	Terry Bottorff posted 15 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 (117 views, 6.00 KB)
	Reply Like 0
Terry Bottorff	Terry Bottorff posted 15 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