Does anyone have any experience with this error? I am getting it on one computer my app is installed on. This computer was running my code perfectly 2 days ago, but yesterday it stopped working in the following code. The only difference in the system is that i installed msttsa22l.exe on the system. This installs voice engines. I had already installed the text to speech apis and control panel before this and the app ran perfectly. It is only since the installation of these engines that the problem has occurred.
VB Code:
For count = 0 To imagecount - 1 With frmReview.xwebpic1 MsgBox ("Setting new height") .PictureNewHeight = 240 MsgBox ("Setting new width") .PictureNewWidth = 320 MsgBox ("Setting image quality") .JPGQuality = 100 MsgBox ("Loading file") .InputFile = imagesToUpload(count) MsgBox ("Doing Resize") .PictureResize MsgBox ("Saving Image") .SaveToJPG (imagesToUpload(count)) End With MsgBox ("Changing File Attribute") Call SetAttr(imagesToUpload(count), vbNormal) MsgBox ("Doing Visual Stuff") frmVideoEdit.Shape1(count).Visible = True frmVideoEdit.Shape1(count).Refresh Next
Can anyone help me with this - I am getting really desperate. The error occurs on the line
VB Code:
.PictureNewHeight = 240
Thnx all in advance.


Reply With Quote