troubleshooting Question

User Defined Grid Control in VB.Net

Avatar of ukconcepts
ukconcepts asked on
.NET ProgrammingVisual Basic.NET
4 Comments1 Solution344 ViewsLast Modified:
Dear Experts,

I belong to the school of thought that the more the power you have on your own source codes the merrier.

I am used to creating my grid control from scratch.

I guess that has just landed me into serious trouble. I could not migrate some of my components to VB.Net.

I want the experts to show me how i can best circumvent this challenges.

Most times i build my self defined grid from a combination of self defined Text(Combo), Text(char),Text(Numbers) etc

My challenges are:

1. VB.Net has removed Control.index
2. I can not create a usercontrol from a previous control
3. Some of my codes are no longer relevant.
Public Sub CreateControls()
LastRow=LastRow + 1
 
Load TxtCombo(lastrow)
Load TxtName(LastRow)
Load TxtSalary(LastRow)
 
'Place Control under neath the Last One
 TxtCombo(lastrow).left=TxtCombo(0).left
 TxtName(LastRow).left=TxtName(0).left
 TxtSalary(LastRow).left=TxtSalary(0).left
 
'Determine the Top of the new controls
 TxtCombo(lastrow).Top=TxtCombo(LastRow -1).Top + TxtCombo(LastRow -1).Height
 TxtName(LastRow).Top=TxtName(LastRow -1).Top + TxtName(LastRow -1).Height
 TxtSalary(LastRow).Top=TxtSalary(LastRow -1).Top + TxtSalary(LastRow -1).Height
 
'Show the New Controls
 TxtCombo(lastrow).Visible=True
 TxtName(LastRow).Visible=True
 TxtSalary(LastRow).Visible=True
 
'Initialize the New Controls
 TxtCombo(lastrow).Text=""
 TxtName(LastRow).Text=""
 TxtSalary(LastRow).Text=0
 
End Sub
Join the community to see this answer!
Join our exclusive community to see this answer & millions of others.
Unlock 1 Answer and 4 Comments.
Join the Community
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros