"Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"
"Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"
"Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"
"Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"
"Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"
"Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard" "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard" "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard" "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard" "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard" "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard" "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard" "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"
"Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard" "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"
"Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"
Go Back  Xtreme Visual Basic Talk > > > "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"


Reply
 
Thread Tools Display Modes
  #1  
Old 07-09-2004, 11:34 AM
bjb53 bjb53 is offline
Newcomer
 
Join Date: Jul 2004
Posts: 2
Default "Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard"


I am getting a "run-time error '5'" when trying to run this old vb program in vb 6. When I click debug it highlights the statement "AppActivate ReturnValue" underlined below. When I run code advisor it writes the following under the statement: "FIXIT: Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard." I am not a vb programmer, so I appologize if this information is insufficient. But, any help you could give on how to modify this code to run properly would be greatly appreciated.
Thanks!

Option Explicit
'FIXIT: Non Zero lowerbound arrays are not supported in Visual Basic .NET FixIT90210ae-R9815-H1984
Public Dist59(1 To 60) As Double 'distances for 59 gage bands
'FIXIT: Non Zero lowerbound arrays are not supported in Visual Basic .NET FixIT90210ae-R9815-H1984
Public Dist40(1 To 41) As Double 'distances for 40 gage bands

'converts impax files to utility files (works on win 98, but not later, should be changed to use dll if XP becomes prevelant)
Public Function ImpaxConversion(path As String, runnumber As Integer, L_or_U As String, TestName As String, Comment As String, EventNumber As Integer, NumOfGages As Integer) As String
Dim ReturnValue As Long
Dim start As Long
Dim TempInt As Long
Dim FileName As String
Dim runnumberstr As String
runnumberstr = CStr(runnumber)
While Len(runnumberstr) < 3
runnumberstr = "0" + runnumberstr
Wend
FileName = path + "\ASLDATA\S" + runnumberstr + L_or_U + "XXX"
If Dir(path & "\ASLDATA", 16) = "" Then
MkDir path & "\ASLDATA"
End If
'Call CopyFile(path, App.path + "\impax.ini")
'Call CopyFile(path, App.path + "\test.dbd")
'Call CopyFile(path, App.path + "\xdcr.txt")
ReturnValue = Shell(App.path + "\Impx_cnv.exe", vbMinimizedNoFocus)
AppActivate ReturnValue
'FIXIT: Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard. FixIT90210ae-R6194-H1984
Clipboard.Clear
'FIXIT: Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard. FixIT90210ae-R6194-H1984
Clipboard.SetText path + vbCr + "S" + vbCr + vbCr + CStr(runnumber) + vbCr + L_or_U + vbCr + vbCr + TestName + vbCr + "0.0" + vbCr + Comment + vbCr + "No" + vbCr + "No" + vbCr + CStr(EventNumber) + vbCr
SendKeys "% ep", 1
MsgBox "Please wait for the console window to read ''Finished'', and click on Ok.", vbInformation, "Done"
ImpaxConversion = FileName
End Function

Private Sub CopyFile(path As String, FileName As String)
'FIXIT: Declare 'FSO' with an early-bound data type FixIT90210ae-R1672-R1B8ZE
Dim FSO As Object
'FIXIT: Declare 'File' with an early-bound data type FixIT90210ae-R1672-R1B8ZE
Dim File As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
End Sub

'initalizes distance arrays
Public Sub InitDist()
Dist59(1) = 0
Dist40(1) = 0
Dim i As Integer
For i = 2 To 59
If i <= 12 Or i >= 49 Then
Dist59(i) = Round(Dist59(i - 1) + 25.4, 9)
Else
Dist59(i) = Round(Dist59(i - 1) + 12.7, 9)
End If
If i <= 40 Then
Dist40(i) = Round(Dist40(i - 1) + 25.4, 9)
End If
Next i
Dist59(60) = Dist59(59)
Dist40(41) = Dist40(40)
End Sub
Reply With Quote
  #2  
Old 07-09-2004, 11:40 AM
Iceplug's Avatar
Iceplug&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot; Iceplug is offline
MetaCenturion

Retired Moderator
* Guru *
 
Join Date: Aug 2001
Location: Iowa, USA
Posts: 16,583
Default

I'm guessing that this is a VB6 question?
Are you sure that there is an Impx_cnv.exe in your application's folder?

Seems like you can just say vbNormalFocus to have the application focused in the Shell function.
__________________

Iceplug, USN
Quadrill 1 Quadrill 2 (full) Quadrill 3 JumpCross .NET Website is ALIVE! - DL Platform Tour for VB.NET! Posting Guidelines Hint: Specify your location in your user cp profile if you want compassion!
Reply With Quote
  #3  
Old 07-09-2004, 11:58 AM
bjb53 bjb53 is offline
Newcomer
 
Join Date: Jul 2004
Posts: 2
Default run-time error

Yes this is a VB6 question. And yes Impx_cnv.exe is in the application's folder. I have no vb programming experience, so if you have a possible sollution, could you tell me what exactly to type?
Thanks
Reply With Quote
  #4  
Old 07-09-2004, 12:27 PM
lebb's Avatar
lebb&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot; lebb is offline
Disillusioned Code Poet

Retired Moderator
* Guru *
 
Join Date: Apr 2002
Location: Tennessee, USA
Posts: 12,808
Default

I'm confused about your running Code Advisor, since this is a tool to help in converting VB6 code to VB.NET. Are you trying to migrate it to .NET? Or just trying to get it to run?

You can check to see if the application is shelling correctly by putting a breakpoint on the line that's erroring: Move the cursor there, then go to Debug > Toggle Breakpoint. Run the application, and it will stop on that line. Move the mouse pointer over the ReturnValue variable, and it should display its value. If it's 0, then it failed.
__________________
Laura

Ita erat quando hic adveni.
Reply With Quote
Reply


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump

Advertisement:





Free Publications
The ASP.NET 2.0 Anthology
101 Essential Tips, Tricks & Hacks - Free 156 Page Preview. Learn the most practical features and best approaches for ASP.NET.
subscribe
Programmers Heaven C# School Book -Free 338 Page eBook
The Programmers Heaven C# School book covers the .NET framework and the C# language.
subscribe
Build Your Own ASP.NET 3.5 Web Site Using C# & VB, 3rd Edition - Free 219 Page Preview!
This comprehensive step-by-step guide will help get your database-driven ASP.NET web site up and running in no time..
subscribe
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot; &quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot; &quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot; &quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot; &quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot; &quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot; &quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot; &quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
 
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
&quot;Clipboard object not upgraded to Visual Basic .NET by the Upgrade Wizard&quot;
 
-->