Visual Basic

7-Jun-05 6:55

this code is write by vb6 and it convert to vb.net, when I run it, it gets me error. is anybody knows hot to fix this or what should I code it in vb.net? Thanks!

Private Sub clearTextboxes()

Dim txt As System.Windows.Forms.Control

'Set each textbox's value to ""

For Each txt In frmMain.DefInstance.Controls

'UPGRADE_WARNING: TypeOf has a new behavior. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1041"'
If TypeOf txt Is System.Windows.Forms.TextBox Then txt.Text = ""

Next txt

End Sub

Lisa

Dave Kreskowiak7-Jun-05 8:17

7-Jun-05 8:17

You need to change out the TypeOf statement to something more .NET compatible.

Dim ctrl As Control
Dim txtBox As TextBox
For Each Control In frmMain.Controls
    If Control.GetType().Equals(GetType(TextBox)) Then
        txtBox = CType(Control, GetType(TextBox))
        txtBox.Text = String.Empty
    End If
Next

Or something very similar. I wrote this from memory so it may not compile without some tweaks.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Lisana7-Jun-05 9:00

7-Jun-05 9:00

thanks..Dave.

I have another question to ask you. if I created textboxes, do I need to remove them when I use it again? when I resign the iStartIndex and iEndIndex and recall the sub textboxshow(), what should I do to make the second call shows correctly?

Private Sub textboxShow()
setStartIndex()
setEndIndex()
clearTextboxes()
MessageBox.Show(iStartIndex & "," & iEndIndex)
Dim I, J As Integer
Dim sData As Integer = 1
While sData <= iEndIndex
For I = 1 To 6
For J = 1 To 7
Call AddDataShow(sData, I, J)
sData += 1
Next
Next
End While
End Sub

Public Sub AddDataShow(ByVal sText As String, ByVal I As Integer, ByVal J As Integer)
Dim txtDataShow As New TextBox
Dim UserLft, UserTop As Integer
Dim X, Y As Integer
Dim a As Integer
a = sText - iStartIndex
UserLft = 20
UserTop = 80
txtDataShow.Height = 80
txtDataShow.Width = 80
txtDataShow.TextAlign = HorizontalAlignment.Left
txtDataShow.BorderStyle = BorderStyle.FixedSingle
'txtDataShow.BackColor = Color.White
txtDataShow.BringToFront()
If a > 0 And a <= iEndIndex Then
txtDataShow.Text = a
'MessageBox.Show(a)
Else
txtDataShow.Text = ""
End If
If txtDataShow.Text = "" Then
txtDataShow.BorderStyle = BorderStyle.None
Else
txtDataShow.BorderStyle = BorderStyle.FixedSingle
txtDataShow.BackColor = Color.White
End If
txtDataShow.Multiline = True
txtDataShow.ReadOnly = True
X = UserLft + (J - 1) * txtDataShow.Width
Y = UserTop + (I - 1) * txtDataShow.Height
txtDataShow.Location = New Point(X, Y)
'MessageBox.Show(X & "," & Y)
Me.GroupBox1.Controls.Add(txtDataShow)
End Sub
Private Sub clearTextboxes()
Dim ctrl As Control
Dim txtBox As TextBox
For Each ctrl In GroupBox1.Controls
If ctrl.GetType().Equals(GetType(TextBox)) Then
txtBox = CType(ctrl, Control)
txtBox.Text = String.Empty
End If
Next
End Sub
Lisa

Dave Kreskowiak7-Jun-05 13:04

7-Jun-05 13:04

If the code generates textboxes to display data, and you use the same code to display new data, then either, yes, you'll have to delete the old textboxes because your code is going to create a new set of them, or, your code will have to know that it already created all the necessary textboxes and reuse them.

The first option is much easier to implement...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Lisana8-Jun-05 2:38

8-Jun-05 2:38

how can I remove the dynamic textboxes? I have tried to remove it use controls.remove, but it doesn't work, it just remove all the textboxes when it load, then doing nothing. can you help me see what's wrong with it? Thanks a lot.

Dim tempCtrl As Control
For Each tempCtrl In GroupBox1.Controls
Groupbox1.Controls.Remove(tempCtrl)
Next tempCtrl

Lisa

Dave Kreskowiak8-Jun-05 5:28

8-Jun-05 5:28

You're not checking the type of control your removing. On top of that, you can't modify a collection while your enumerating it, or using For/Each on it. You have to use an array index to do this. But, overall, it works the same as trying to clear the text boxes. Check the type of the control first, then remove it:

Dim ctrl As Control
Dim txtBox As TextBox
Dim i As Integer
For i = 0 to frmMain.Controls.Count - 1
    If frmMain.Controls(i).GetType().Equals(GetType(TextBox)) Then
        frmMain.Controls.RemoveAt(i)
    End If
Next

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Lisana8-Jun-05 5:49

Upgrading applications to VB.NET from Visual Basic versions older than 6.0

8-Jun-05 5:49

when I run it, it shows this error:
Specified argument was out of the range of valid values.
parameter name: Index 32 is out of range.

but the control.count shows result is 53, why it is out of range?

Lisa

Anonymous7-Jun-05 5:36

Anonymous

7-Jun-05 5:36

Hi,

I am aware that the VB.NET environment provides a wizard and associated functionality to faclitate the upgrade of VB 6.0 applications to VB.NET.

I wanted to know if this also works with earlier versions of VB like VB5.0 and 3.0. If not, is there any recommended approach for upgrading such applications?

Thanks for your help!

Re: Upgrading applications to VB.NET from Visual Basic versions older than 6.0

Mekong River7-Jun-05 6:33

Mekong River

7-Jun-05 6:33

Anonymous wrote:
I wanted to know if this also works with earlier versions of VB like VB5.0 and 3.0. If not, is there any recommended approach for upgrading such applications?

I never upgrade from version 5 or 3 of vb to vb.net. But if it is possible, try to upgrade your version 5 or 3 of your vb application to vb6 then upgrade it from vb6 to vb.net.

A thousand mile of journey, begin with the first step.

APO-CEDC
Save Children Norway-Cambodia Office

Re: Upgrading applications to VB.NET from Visual Basic versions older than 6.0

Dave Kreskowiak7-Jun-05 8:12

7-Jun-05 8:12

I know it doesn't work with VB3. It MIGHT work with VB5, but you'll have to try it. But like the other poster said, you could upgrade the project in VB6 first, then load it into VB.NET. You'll have to clean up the code in VB6 first before you try VB.NET though.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Loop Command

Anonymous7-Jun-05 5:07

Anonymous

7-Jun-05 5:07

Hi,

I'm pretty new to VB and I'm trying to figure out how to use the loop command until I select a command button. Can someone help me out with this easy question? Thanks.

Dave Kreskowiak7-Jun-05 5:22

7-Jun-05 5:22

Button in a Loop command? You don't. If your trying to wait for a button press in a loop, you're not following the event-driven programming model of Windows Forms.

What are you trying to do with this button click in a loop? Are you waiting for an OK or something?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

CV57-Jun-05 5:27

7-Jun-05 5:27

I have a selection loop running. What I have envisioned is allowing the user to pick items out of a CAD window until the user selects the command button I labeled "OK". I hope I explained myself correctly.

Dave Kreskowiak7-Jun-05 5:31

7-Jun-05 5:31

Change your form so that when the user clicks on OK, the event handler for the button finishes the processing of the objects the user selects.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

CV57-Jun-05 5:37

7-Jun-05 5:37

Exactly how do I do that? Sorry, I really don't know how that's done.

Dave Kreskowiak7-Jun-05 8:10

7-Jun-05 8:10

What are you talking about? The code you were going to run after the loop where you wanted to wait for a button click? That goes in the Click event handler for the OK button you wanted your users to click when they were done, right?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

CV57-Jun-05 9:15

7-Jun-05 9:15

Yes, you're right, but what I'm looking for is what command needs to be typed following the Do Until to allow for the user to select one of the command buttons on the form. When I pass the focus to the application where the user is going to be selecting elements and when they're done selecting and try to pick the "OK" button I get an error message saying something like the application is busy, Switch To, and Retry buttons are my only choice.

Do Until ???????? - what command - ?????

Select Element code......

Loop

Forgive me, I'm new......

Thanks for your time and help.

Dave Kreskowiak7-Jun-05 13:09

7-Jun-05 13:09

You're not listening. You CANNOT do this at all! There is NOTHING you can put in this loop that will allow you to do what you want.

You MUST rewrite your form to do whatever it needs to before the user gets to select any element. AFTER the end of that function is where the user will select whatever elements you want them to, then click the OK button. In the Click event of the OK Button, then you can finish processing.

YOU ABSOLUTELY CANNOT RESPOND TO BUTTON CLICK EVENTS WHILE A LOOP IS EXECUTING.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Christian Graus7-Jun-05 13:30

Christian Graus

7-Jun-05 13:30

ROTFL - this made my morning brighter.

However, can't he run his loop in a seperate thread and have a UI thread stop it ?

Christian Graus - Microsoft MVP - C++

Dave Kreskowiak8-Jun-05 2:27

8-Jun-05 2:27

Do you want to tell him how to do it?!

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

CV58-Jun-05 4:16

8-Jun-05 4:16

Guys, thanks for the info. I understand now, I usually need things "Fisher Priced" for me. Thanks again.