Any VB folks out there...

Hey gang, YES, I am aware this is for C#, but I'm hoping there may be someone out there that can help me. I am looking for some assistance on how to get the below VB6 code modified to work in VB.NET. Once I get that far, I am going to try and get it to C#. I have already tried several converters, with no luck. So, if someone could PLEASE tell me how to get this converted and what the upgrade messages are wanting me to do, it would be extremely helpful. I have already looked at the MSDN reference for the upgrade errors and they do not make sense for what I am trying to do. Thanks, Private Sub cmdRunMacro_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdRunMacro.Click ' parmeters specified Dim paramList As Object Dim paramCount As Short If txtParamCount.Text <> "" Then paramCount = Val(txtParamCount.Text) 'UPGRADE_ISSUE: As String was removed from ReDim paramList(0 To paramCount - 1) statement. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1056"' ReDim paramList(paramCount - 1) 'UPGRADE_WARNING: Couldn't resolve default property of object paramList(). Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"' If paramCount > 0 Then paramList(0) = txtParameterName1.Text & "=" & txtParameterValue1.Text 'UPGRADE_WARNING: Couldn't resolve default property of object paramList(). Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"' If paramCount > 1 Then paramList(1) = txtParameterName2.Text & "=" & txtParameterValue2.Text 'UPGRADE_WARNING: Couldn't resolve default property of object paramList(). Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"' If paramCount > 2 Then paramList(2) = txtParameterName3.Text & "=" & txtParameterValue3.Text 'UPGRADE_WARNING: Couldn't resolve default property of object paramList(). Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"' If paramCount > 3 Then paramList(3) = txtParameterName4.Text & "=" & txtParameterValue4.Text 'UPGRADE_WARNING: Couldn't resolve default property of object paramList(). Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1037"' If paramCount > 4 Then paramList(4) = txtParameterName5.Text & "=" & txtParameterValue5.Text Else ' no parameters specified paramCount = 0 'UPGRADE_ISSUE: As String was removed from ReDim paramList(0) statement. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup1056"' ReDim paramList(0) End If

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

oblivion_lurks22y ago
hello bob!! i haven't programmed in vb.net for quit some time but, ill do my best to try to help!! it looks like when you tried to redimention paramList, you didn't give it a dimention or value from the start, you just declared it. try doing this... Dim paramList(5) as Object; // then redimention the array ReDim paramList(paramCount - 1);