Runtime Error 91 Only With Compiled Program.

Compiled Runtime Error
Can anyone tell me what to do at this point? I have created a standard exe application in VB6...it runs fine in the design evironment but not when I compile it as a stand-alone exe file format. I have several forms in this application that basically run formulas that calculate the input from several text field and puts the results in label fields.

The error that I get is entitled
"Run-time error'-2147417848 (80010108)': Automation Error

If someone can help I will really appreciate it & possibly do a commissioned consult in the near future.

Flint Puckett MBA
Johnson & Johnson

mailto:flint01@foothills.net

---

Compiled Program Now Get This Error...
Just compiled my program and created a setup exe useing Setup Factory program.

Program works fine in the IDE

Compile works fine

Createing a setupfile useing setupfactory and includeing all the programs dependanceys works fine

installing the program on the PC useing created setupfile works fine

Try running th program and get this message

Run-time error '401': Can't show non-modal form when modal form is displayed

This happeds right at the start, at the start it checks to see if the various paths for routeen in the code have been set, if not (which is the case when you first run the program, it pops up a messga box saying you need to set the paths withing the program. its at this point it get the error message.

---

Program Error When Compiled (weird)
Hi,

I get no error running my program in VB, but when compiled I get the error when I run it:

"Run-time error '-2147024726 (800700aa)
Automation error
Requested resource is in use."

Any idea what could cause this error? The error happens because of the WebBrowser1.Navigate. If you put the WebBrowser1.Navigate... in the If/Then, it doesn't give the error but the program doesn't work. Here's the code:


Code:

Private Sub WebBrowser1_DownloadComplete()

H = Val(Text2.Text)

If WebBrowser1.LocationURL = "http://www.url.com" & X Then
X = X + 1
End If

If X = H Then
Exit Sub
End If

WebBrowser1.Navigate "http://www.url.com" & X

End Sub
Thanks!

---

Run Time Error '339' After VB Program Has Been Compiled To .exe
Hi,
I made a VB program and compiled it to the shared user drive.
Some users use it ok.


But some users experienced the following error:


"Run-time error `339`;


Component `MSCOMCT2.OCX or one of its dependencies not correctly
registered.

Does anyone know what to do?

Your help is appreciated!

---

Error Running VB6 Compiled EXE Program On Other PCs. Missing OCX, DLL Files?? Help!
i tried running my compiled EXE program on a different PC and i got a error message saying it needs a comdlg32.ocx & msvbvm60.dll file to run.
Issit becos tat PC doesnt hav VB runtime files to run the program i hav compiled?

how can i make my program portable so tat they can run on any Windows-based PCs. Must i go search for comdlg32.ocx & msvbvm60.dll files & copy them to the c:windowssystem32 if they dont hav it? Pls help. thanxs

---

PROGRAM When Played RUNS PERFECT...but When Compiled I Get A 55-error File Already Open?
My program works perfectly when ran before compiling.... but when it's compiled and I try to close the program I have some code in the form terminte that deals with two files, that are delt with in the form load.... in the load section they are closed... in the terminate section the are closed as well...

and ideas?

Justin

---

VB Program Runtime Error
Hi, I need help!
I have a complied program which is running smoothly on the computer with VB6 installed. But when I try to run the same executable file on anothor machine, this message appeared : "Component 'MSDATGRD.OCX' or one of its dependencies not correctly registered: a file is missing or invalid." If I install VB6 on this machine, it's going to work too, but it's not the right solution, I hope someone can help me to solve this problem. Thanks.

---

Catch VC++ Runtime Error In VB Program
Hello,

I have a VB application talking with another third-party application, which I guess is written in VC++. Sometimes, we get a 'Microsoft Visual C++ Runtime Library' error and system crashes. The detailed error message is:

Runtime Error
Program C:Program FilesThirdPartyApp.exe
abnormal program termination

I don't want to debug and fix this problem because it is a third-party application. All I want to do it catch this error and do a proper shutdown. Is there any way to do that?

Thanks a lot. Waiting for your input.

---

Runtime Error '9' Subscript Out Of Range/Time Program
Sorry for the length this will be, but I can't get where this is coming from... The line the error shows on is marked with ---------->. (Or just search for 700) It's the line after where I specified I wanted it to extend from 0-700 (weeks).  It works fine if I make i = 0 to 500, but if I make it anything but 500, it ends. I'm trying to extend the length of my time program.  If possible, could you explain why this is happening?

Private Sub MAKEHTM()
 Dim FNAME$, s1$, s2$, s3$, S4$, R1#, RALL#
 jobnamect = 1:
 jmatchon = 0
 Open "C:TMP.HTM" For Output As #1
  Print #1, "<HTML><HEAD><TITLE></TITLE></HEAD><BR>"
  Print #1, "<BLOCKQUOTE><B><PRE><CENTER>"
  Print #1, "<FONT SIZE=+3><I>WEEKLY TIME SHEET</I></FONT>"

  Print #1, "WEEK ENDING:<U> " & CVDate(WEEK2) & " </U>   NAME:<U> " & Label8.Caption & " </U>   EMP#:<U> " & Label9.Caption & " </U>"
 RALL = 0
 jobnamect = 0
 For i = 0 To 299: jobnamearry(i) = "": jobotary(i) = 0: jobtimearry(i) = 0: Next i
 For i1 = 0 To 6
  If i1 = 0 Then LCT = L1CT
  If i1 = 1 Then LCT = L2CT
  If i1 = 2 Then LCT = L3CT
  If i1 = 3 Then LCT = L4CT
  If i1 = 4 Then LCT = L5CT
  If i1 = 5 Then LCT = L6CT
  If i1 = 6 Then LCT = L7CT
  For i = 0 To LCT - 1
   If i1 = 0 Then s2 = L11(i): s3 = L12(i): S4 = L13(i)
   If i1 = 1 Then s2 = L21(i): s3 = L22(i): S4 = L23(i)
   If i1 = 2 Then s2 = L31(i): s3 = L32(i): S4 = L33(i)
   If i1 = 3 Then s2 = L41(i): s3 = L42(i): S4 = L43(i)
   If i1 = 4 Then s2 = L51(i): s3 = L52(i): S4 = L53(i)
   If i1 = 5 Then s2 = L61(i): s3 = L62(i): S4 = L63(i)
   If i1 = 6 Then s2 = L71(i): s3 = L72(i): S4 = L73(i)
   R1 = CDbl(s2) + CDbl(s3)
   
   jmatch = 0:
   If jmatchon = 0 Then jobnamearry(1) = S4: jmatchon = 1
   
   For i2 = 1 To jobnamect
    If LTrim(RTrim(S4)) = LTrim(RTrim(jobnamearry(i2))) Then
     jmatch = 1
     jobtimearry(i2) = jobtimearry(i2) + R1
    End If
   Next i2
   
'   jmatch = 0
   If jmatch = 0 Then
    jobnamect = jobnamect + 1
    jobnamearry(jobnamect) = S4
    jobtimearry(jobnamect) = jobtimearry(jobnamect) + R1
   End If
   
   RALL = RALL + R1
  Next i
 Next i1
 
 Print #1, ""
 For i2 = 1 To jobnamect
  s1 = jobnamearry(i2):  s2 = jobtimearry(i2)
  Print #1, "JOB:<U> " & s1 & " ( " & s2 & " ) "
 Next i2
 Print #1, ""
 
 s2 = "0.00"
 s3 = "40.00"
 s1 = CStr((CLng(RALL * 100) / 100#))
 If RALL > 40 Then s2 = CStr((CLng((RALL - 40) * 100) / 100#))
 If RALL <= 40 Then s3 = CStr((CLng(RALL * 100) / 100#))
 
  
  Print #1, "TOTAL HOURS:<U> " & Space(10 - Len(s1)) & s1 & " </U> OT:<U> " & Space(10 - Len(s2)) & s2 & " </U> NT:<U> " & Space(10 - Len(s3)) & s3 & " </U>"
  Print #1, "</PRE></FONT></B></BLOCKQUOTE></CENTER><HR>"

 For i1 = 0 To 6
  If i1 = 0 Then LCT = L1CT
  If i1 = 1 Then LCT = L2CT
  If i1 = 2 Then LCT = L3CT
  If i1 = 3 Then LCT = L4CT
  If i1 = 4 Then LCT = L5CT
  If i1 = 5 Then LCT = L6CT
  If i1 = 6 Then LCT = L7CT
  RALL = 0
  For i = 0 To LCT - 1
   If i1 = 0 Then s1 = L13(i): s2 = L11(i): s3 = L12(i)
   If i1 = 1 Then s1 = L23(i): s2 = L21(i): s3 = L22(i)
   If i1 = 2 Then s1 = L33(i): s2 = L31(i): s3 = L32(i)
   If i1 = 3 Then s1 = L43(i): s2 = L41(i): s3 = L42(i)
   If i1 = 4 Then s1 = L53(i): s2 = L51(i): s3 = L52(i)
   If i1 = 5 Then s1 = L63(i): s2 = L61(i): s3 = L62(i)
   If i1 = 6 Then s1 = L73(i): s2 = L71(i): s3 = L72(i)
   R1 = CDbl(s2) + CDbl(s3)
   RALL = RALL + R1
  Next i
  If RALL > 0 Then
   Print #1, "<BLOCKQUOTE><B><FONT SIZE=1><PRE>"
   s1 = CStr((CLng(RALL * 100) / 100#))
   s2 = Format(CVDate(WEEK2 - 6 + i1), "DDDD")
   '& Space((10 - Len(S2)) * 2)
   Label1.Caption = s2 & " : " & s1
   Print #1, "<FONT SIZE=+1>" & s2 & " : <U>" & Space(6 - Len(s1)) & s1 & " </U>" & " HOURS : " ' & CVDate(WEEK2 - 6 + i1) & "</FONT>"
   For i = 0 To LCT - 1
    If i1 = 0 Then s1 = L13(i): s2 = L11(i): s3 = L12(i): S4 = L15(i)
    If i1 = 1 Then s1 = L23(i): s2 = L21(i): s3 = L22(i): S4 = L25(i)
    If i1 = 2 Then s1 = L33(i): s2 = L31(i): s3 = L32(i): S4 = L35(i)
    If i1 = 3 Then s1 = L43(i): s2 = L41(i): s3 = L42(i): S4 = L45(i)
    If i1 = 4 Then s1 = L53(i): s2 = L51(i): s3 = L52(i): S4 = L55(i)
    If i1 = 5 Then s1 = L63(i): s2 = L61(i): s3 = L62(i): S4 = L65(i)
    If i1 = 6 Then s1 = L73(i): s2 = L71(i): s3 = L72(i): S4 = L75(i)
    s1 = Left(RTrim(LTrim(s1)), 29)
    s2 = RTrim(LTrim(s2))
    s3 = RTrim(LTrim(s3))
    Label1.Caption = s1 & ":" & s2 & ":" & s3
    Print #1, "    JOB:<U> " & Space(30 - Len(s1)) & s1 & " </U> OT:<U> " & Space(10 - Len(s2)) & s2 & " </U> NT:<U> " & Space(10 - Len(s3)) & s3 & " </U>"
    
    Print #1, "      " & S4
   Next i
   Print #1, "</PRE></FONT></B></BLOCKQUOTE><HR>"
  End If
  Next i1
 
 Close #1
End Sub

Private Sub STDGET()
 s1 = Dir("C:TIMEinfo.STD", 0)
 If s1 <> "" Then
  Open "C:TIMEinfo.STD" For Input As #9:
   Input #9, drv1
   Input #9, s1: WEEK2 = CDbl(s1)
   EMPCT = 0
   Do While Not EOF(9)
    Input #9, NAME1(EMPCT): Input #9, EMP1(EMPCT)
    EMPCT = EMPCT + 1
   Loop
   Label8.Caption = NAME1(0): Label9.Caption = EMP1(0)
   FDATA = drv1 & ":TIME" & EMP1(0) & ""
  Close #9
 End If
End Sub


Private Sub bclr()
 Command3.FontBold = False: Command4.FontBold = False: Command5.FontBold = False: Command6.FontBold = False: Command7.FontBold = False: Command8.FontBold = False: Command9.FontBold = False:
End Sub

Private Sub Combo1_Click()
 Dim i1%, i2%
 i2 = Combo1.ListIndex
 LSTJOBDWG
 i1 = List2.ListIndex
 If i1 >= 0 Then
  If i2 >= 0 Then Text3.Text = JOB(i2)
 End If
End Sub

Private Sub Combo2_Click()
 Dim i1%, i2%
 i2 = Combo2.ListIndex
 LSTJOBDWG
 i1 = List2.ListIndex
 If i1 >= 0 Then
  If i2 >= 0 Then Text4.Text = DWG(i2)
 End If
End Sub

Private Sub Command1_Click()
 If BCT = 1 Then L11(L1CT) = "0": L12(L1CT) = "0": L13(L1CT) = "JOB": L14(L1CT) = "DWG": L15(L1CT) = "DESC": L16(L1CT) = 0: L1CT = L1CT + 1: L2UPD 0
 If BCT = 2 Then L21(L2CT) = "0": L22(L2CT) = "0": L23(L2CT) = "JOB": L24(L1CT) = "DWG": L25(L2CT) = "DESC": L26(L2CT) = 0: L2CT = L2CT + 1: L2UPD 0
 If BCT = 3 Then L31(L3CT) = "0": L32(L3CT) = "0": L33(L3CT) = "JOB": L34(L1CT) = "DWG": L35(L3CT) = "DESC": L36(L3CT) = 0: L3CT = L3CT + 1: L2UPD 0
 If BCT = 4 Then L41(L4CT) = "0": L42(L4CT) = "0": L43(L4CT) = "JOB": L44(L1CT) = "DWG": L45(L4CT) = "DESC": L46(L4CT) = 0: L4CT = L4CT + 1: L2UPD 0
 If BCT = 5 Then L51(L5CT) = "0": L52(L5CT) = "0": L53(L5CT) = "JOB": L54(L1CT) = "DWG": L55(L5CT) = "DESC": L56(L5CT) = 0: L5CT = L5CT + 1: L2UPD 0
 If BCT = 6 Then L61(L6CT) = "0": L62(L6CT) = "0": L63(L6CT) = "JOB": L64(L1CT) = "DWG": L65(L6CT) = "DESC": L66(L6CT) = 0: L6CT = L6CT + 1: L2UPD 0
 If BCT = 7 Then L71(L7CT) = "0": L72(L7CT) = "0": L73(L7CT) = "JOB": L74(L1CT) = "DWG": L75(L7CT) = "DESC": L76(L7CT) = 0: L7CT = L7CT + 1: L2UPD 0

End Sub

Private Sub Command10_Click()
 FILEWR
End Sub

Private Sub Command11_Click()
 Dim i1%, i2%, i%
 i = List2.ListIndex
 If i >= 0 Then
  
  If BCT = 1 Then
   If L1CT > 0 Then
    For i2 = 0 To L1CT + 10: L81(i2) = L11(i2): L82(i2) = L12(i2): L83(i2) = L13(i2): L84(i2) = L14(i2): L85(i2) = L15(i2): Next i2
    i1 = 0
    For i2 = 0 To L1CT + 10: L11(i1) = L81(i2): L12(i1) = L82(i2): L13(i1) = L83(i2): L14(i1) = L84(i2): L15(i1) = L85(i2):
     If i2 <> i Then i1 = i1 + 1
    Next i2
    L1CT = L1CT - 1: If i >= L1CT Then i = 0
   End If
  End If
  
  If BCT = 2 Then
   If L2CT > 0 Then
    For i2 = 0 To L2CT + 10: L81(i2) = L21(i2): L82(i2) = L22(i2): L83(i2) = L23(i2): L84(i2) = L24(i2): L85(i2) = L25(i2): Next i2
    i1 = 0
    For i2 = 0 To L2CT + 10: L21(i1) = L81(i2): L22(i1) = L82(i2): L23(i1) = L83(i2): L24(i1) = L84(i2): L25(i1) = L85(i2):
     If i2 <> i Then i1 = i1 + 1
    Next i2
    L2CT = L2CT - 1: If i >= L2CT Then i = 0
   End If
  End If
  
  If BCT = 3 Then
   If L3CT > 0 Then
    For i2 = 0 To L3CT + 10: L81(i2) = L31(i2): L82(i2) = L32(i2): L83(i2) = L33(i2): L84(i2) = L34(i2): L85(i2) = L35(i2): Next i2
    i1 = 0
    For i2 = 0 To L3CT + 10: L31(i1) = L81(i2): L32(i1) = L82(i2): L33(i1) = L83(i2): L34(i1) = L84(i2): L35(i1) = L85(i2):
     If i2 <> i Then i1 = i1 + 1
    Next i2
    L3CT = L3CT - 1: If i >= L3CT Then i = 0
   End If
  End If
  
  If BCT = 4 Then
   If L4CT > 0 Then
    For i2 = 0 To L4CT + 10: L81(i2) = L41(i2): L82(i2) = L42(i2): L83(i2) = L43(i2): L84(i2) = L44(i2): L85(i2) = L45(i2): Next i2
    i1 = 0
    For i2 = 0 To L4CT + 10: L41(i1) = L81(i2): L42(i1) = L82(i2): L43(i1) = L83(i2): L44(i1) = L84(i2): L45(i1) = L85(i2):
     If i2 <> i Then i1 = i1 + 1
    Next i2
    L4CT = L4CT - 1: If i >= L4CT Then i = 0
   End If
  End If
  
  If BCT = 5 Then
   If L5CT > 0 Then
    For i2 = 0 To L5CT + 10: L81(i2) = L51(i2): L82(i2) = L52(i2): L83(i2) = L53(i2): L84(i2) = L54(i2): L85(i2) = L55(i2): Next i2
    i1 = 0
    For i2 = 0 To L5CT + 10: L51(i1) = L81(i2): L52(i1) = L82(i2): L53(i1) = L83(i2): L54(i1) = L84(i2): L55(i1) = L85(i2):
     If i2 <> i Then i1 = i1 + 1
    Next i2
    L5CT = L5CT - 1: If i >= L5CT Then i = 0
   End If
  End If
  
  If BCT = 6 Then
   If L6CT > 0 Then
    For i2 = 0 To L6CT + 10: L81(i2) = L61(i2): L82(i2) = L62(i2): L83(i2) = L63(i2): L84(i2) = L64(i2): L85(i2) = L65(i2): Next i2
    i1 = 0
    For i2 = 0 To L6CT + 10: L61(i1) = L81(i2): L62(i1) = L82(i2): L63(i1) = L83(i2): L64(i1) = L84(i2): L65(i1) = L85(i2):
     If i2 <> i Then i1 = i1 + 1
    Next i2
    L6CT = L6CT - 1: If i >= L6CT Then i = 0
   End If
  End If
  
  If BCT = 7 Then
   If L7CT > 0 Then
    For i2 = 0 To L7CT + 10: L81(i2) = L71(i2): L82(i2) = L72(i2): L83(i2) = L73(i2): L84(i2) = L74(i2): L85(i2) = L75(i2): Next i2
    i1 = 0
    For i2 = 0 To L7CT + 10: L71(i1) = L81(i2): L72(i1) = L82(i2): L73(i1) = L83(i2): L74(i1) = L84(i2): L75(i1) = L85(i2):
     If i2 <> i Then i1 = i1 + 1
    Next i2
    L7CT = L7CT - 1: If i >= L7CT Then i = 0
   End If
  End If
  
  L2UPD i
'  List2.ListIndex = i
 End If
End Sub

Private Sub Command12_Click()
 Dim OPT%
 s2 = "C:TEMPFILE.OPT": s1 = Dir(s2, ATTR_FILE): If s1 <> "" Then Kill (s2)
 s1 = drv1 & ":TIMEFTIME.BAT": X = Shell(s1, 6)
 OPT = 0
 Do While OPT = 0
  For i = 0 To 100: For i1 = 0 To 100: Next i1: Next i
  s1 = Dir(s2, ATTR_FILE)
  If s1 <> "" Then OPT = 1
 Loop
 Load TIME1
 TIME1.Show
End Sub

Private Sub Command2_Click()
  FILEWR
  MAKEHTM
  s3 = "C: mp.htm":
  OLE1.Visible = True:
  OLE1.SourceItem = s3:
  OLE1.SourceDoc = s3:
  OLE1.Action = 1
  OLE1.Action = 7
End Sub

Private Sub Command3_Click()
 BCT = 1: bclr: Command3.FontBold = True: L2UPD 0
End Sub

Private Sub Command4_Click()
 BCT = 2: bclr: Command4.FontBold = True: L2UPD 0
End Sub

Private Sub Command5_Click()
 BCT = 3: bclr: Command5.FontBold = True: L2UPD 0
End Sub

Private Sub Command6_Click()
 BCT = 4: bclr: Command6.FontBold = True: L2UPD 0
End Sub

Private Sub Command7_Click()
 BCT = 5: bclr: Command7.FontBold = True:  L2UPD 0
End Sub

Private Sub Command8_Click()
 BCT = 6: bclr: Command8.FontBold = True: L2UPD 0
End Sub

Private Sub Command9_Click()
 BCT = 7: bclr: Command9.FontBold = True: L2UPD 0
End Sub

Private Sub FILEREAD(FN$)
 Dim s1$, s2$, s3$, S4$, S10$
 Open FN For Input As #9:
  L1CT = 0: L2CT = 0: L3CT = 0: L4CT = 0: L5CT = 0: L6CT = 0: L7CT = 0:
  S10 = strout()
  Do While Left(S10, 1) = "^"
   If Left(S10, 2) = "^1" Then L11(L1CT) = strout(): L12(L1CT) = strout(): L13(L1CT) = strout(): L14(L1CT) = strout(): L15(L1CT) = strout(): S10 = strout(): L1CT = L1CT + 1
   If Left(S10, 2) = "^2" Then L21(L2CT) = strout(): L22(L2CT) = strout(): L23(L2CT) = strout(): L24(L2CT) = strout(): L25(L2CT) = strout(): S10 = strout(): L2CT = L2CT + 1
   If Left(S10, 2) = "^3" Then L31(L3CT) = strout(): L32(L3CT) = strout(): L33(L3CT) = strout(): L34(L3CT) = strout(): L35(L3CT) = strout(): S10 = strout(): L3CT = L3CT + 1
   If Left(S10, 2) = "^4" Then L41(L4CT) = strout(): L42(L4CT) = strout(): L43(L4CT) = strout(): L44(L4CT) = strout(): L45(L4CT) = strout(): S10 = strout(): L4CT = L4CT + 1
   If Left(S10, 2) = "^5" Then L51(L5CT) = strout(): L52(L5CT) = strout(): L53(L5CT) = strout(): L54(L5CT) = strout(): L55(L5CT) = strout(): S10 = strout(): L5CT = L5CT + 1
   If Left(S10, 2) = "^6" Then L61(L6CT) = strout(): L62(L6CT) = strout(): L63(L6CT) = strout(): L64(L6CT) = strout(): L65(L6CT) = strout(): S10 = strout(): L6CT = L6CT + 1
   If Left(S10, 2) = "^7" Then L71(L7CT) = strout(): L72(L7CT) = strout(): L73(L7CT) = strout(): L74(L7CT) = strout(): L75(L7CT) = strout(): S10 = strout(): L7CT = L7CT + 1
  Loop
 Close #9
End Sub

Private Sub FILEWR()
 Open FN1 For Output As #1
 For i = 0 To L1CT - 1: Print #1, "^1": Print #1, L11(i): Print #1, L12(i): Print #1, L13(i): Print #1, L14(i): Print #1, L15(i): Next i
 For i = 0 To L2CT - 1: Print #1, "^2": Print #1, L21(i): Print #1, L22(i): Print #1, L23(i): Print #1, L24(i): Print #1, L25(i): Next i
 For i = 0 To L3CT - 1: Print #1, "^3": Print #1, L31(i): Print #1, L32(i): Print #1, L33(i): Print #1, L34(i): Print #1, L35(i): Next i
 For i = 0 To L4CT - 1: Print #1, "^4": Print #1, L41(i): Print #1, L42(i): Print #1, L43(i): Print #1, L44(i): Print #1, L45(i): Next i
 For i = 0 To L5CT - 1: Print #1, "^5": Print #1, L51(i): Print #1, L52(i): Print #1, L53(i): Print #1, L54(i): Print #1, L55(i): Next i
 For i = 0 To L6CT - 1: Print #1, "^6": Print #1, L61(i): Print #1, L62(i): Print #1, L63(i): Print #1, L64(i): Print #1, L65(i): Next i
 For i = 0 To L7CT - 1: Print #1, "^7": Print #1, L71(i): Print #1, L72(i): Print #1, L73(i): Print #1, L74(i): Print #1, L75(i): Next i
 Print #1, "~":
 Close #1
End Sub

'
Private Sub Form_Load()
 Dim i%, s1$, s2$, s3$, S4$, S5$, S10$
 drv1 = "H"
 RUN = 0: L1CT = 0
 STDGET
 WEEK1 = WEEK2

 For i = 0 To EMPCT: List3.AddItem NAME1(i): Next i
 If EMPCT < 2 Then List3.Visible = False
 If EMPCT < 2 Then Command12.Visible = False

 For i = 0 To 700 '300 '240
----------->  WEEK(i) = CVDate(WEEK1)<---------------
  S5 = WEEK(i) '& Space(20)
'  S5 = Space((9 - Len(S5)) * 2) & S5 & " "
  List1.AddItem S5
  WEEK1 = WEEK1 + 7
 Next i

 WEEK1 = WEEK2
 
 
' i1 = List1.ListIndex
' WEEK2 = WEEK1 + (i1 * 7)
 
 
 R1 = CLng(Date): R1 = R1 - WEEK1: R1 = R1 / 7: R1 = CLng(R1)
 List1.ListIndex = R1
  
 LSTJOBDWG

' ' CREATE LISTS
' Dim OPT%
' S2 = "C:TEMPFILE.OPT": S1 = Dir(S2, ATTR_FILE): If S1 <> "" Then Kill (S2)
' S1 = drv1 & ":TIMETIMEFTIME.BAT": X = Shell(S1, 6)

' OPT = 0
' Do While OPT = 0
'  For i = 0 To 100: For i1 = 0 To 100: Next i1: Next i
'  S1 = Dir(S2, ATTR_FILE)
'  If S1 <> "" Then OPT = 1
' Loop

End Sub

Private Sub ITEMCLR()
 Text1.Text = "": Text2.Text = "":    Text3.Text = "": Text4.Text = "": Text5.Text = "":
End Sub

Private Sub L2UPD(LCT%)
 List2.Clear
 
 If BCT = 1 Then
  If L1CT > 0 Then
    For i = 0 To L1CT - 1: List2.AddItem L13(i) & " : " & L15(i): Next i: If L1CT > 0 Then List2.ListIndex = LCT
  Else
   ITEMCLR
  End If
 End If
 
 If BCT = 2 Then
  If L2CT > 0 Then
   For i = 0 To L2CT - 1: List2.AddItem L23(i) & " : " & L25(i): Next i: If L2CT > 0 Then List2.ListIndex = LCT
  Else
   ITEMCLR
  End If
 End If

 If BCT = 3 Then
  If L3CT > 0 Then
   For i = 0 To L3CT - 1: List2.AddItem L33(i) & " : " & L35(i): Next i: If L3CT > 0 Then List2.ListIndex = LCT
  Else
   ITEMCLR
  End If
 End If
 
 If BCT = 4 Then
  If L4CT > 0 Then
   For i = 0 To L4CT - 1: List2.AddItem L43(i) & " : " & L45(i): Next i: If L4CT > 0 Then List2.ListIndex = LCT
  Else
   ITEMCLR
  End If
 End If

 If BCT = 5 Then
  If L5CT > 0 Then
   For i = 0 To L5CT - 1: List2.AddItem L53(i) & " : " & L55(i): Next i: If L5CT > 0 Then List2.ListIndex = LCT
  Else
   ITEMCLR
  End If
 End If
 
 If BCT = 6 Then
  If L6CT > 0 Then
   For i = 0 To L6CT - 1: List2.AddItem L63(i) & " : " & L65(i): Next i: If L6CT > 0 Then List2.ListIndex = LCT
  Else
   ITEMCLR
  End If
 End If

 If BCT = 7 Then
  If L7CT > 0 Then
   For i = 0 To L7CT - 1: List2.AddItem L73(i) & " : " & L75(i): Next i: If L7CT > 0 Then List2.ListIndex = LCT
  Else
   ITEMCLR
  End If
 End If

End Sub

Private Sub List1_Click()
 Frame1.Visible = True
 L1CT = 0: L2CT = 0: L3CT = 0: L4CT = 0: L5CT = 0: L6CT = 0: L7CT = 0:
 List2.Clear
 Text1.Text = "": Text2.Text = "":    Text3.Text = "": Text4.Text = "": Text5.Text = "":
 i1 = List1.ListIndex
 WEEK2 = WEEK1 + (i1 * 7)
 FN1 = FDATA & "ts" & i1 & ".Txt"
' label1.Caption = FN1
 '''''
 s1 = Dir(FN1, vbNormal)
 If s1 = "" Then Open FN1 For Output As #1: Print #1, "": Close #1
 
 FILEREAD FN1
 BCT = 1: bclr: Command3.FontBold = True: L2UPD 0
 Command3.Caption = Format(CVDate(WEEK2 - 6), "DDD") & " : " & CVDate(WEEK2 - 6)
 Command4.Caption = Format(CVDate(WEEK2 - 5), "DDD") & " : " & CVDate(WEEK2 - 5)
 Command5.Caption = Format(CVDate(WEEK2 - 4), "DDD") & " : " & CVDate(WEEK2 - 4)
 Command6.Caption = Format(CVDate(WEEK2 - 3), "DDD") & " : " & CVDate(WEEK2 - 3)
 Command7.Caption = Format(CVDate(WEEK2 - 2), "DDD") & " : " & CVDate(WEEK2 - 2)
 Command8.Caption = Format(CVDate(WEEK2 - 1), "DDD") & " : " & CVDate(WEEK2 - 1)
 Command9.Caption = Format(CVDate(WEEK2), "DDD") & " : " & CVDate(WEEK2)
' ITEMCLR
End Sub

Private Sub List2_Click()
  RUN = 1
  LOP = 0: i1 = List2.ListIndex:
  If BCT = 1 Then s1 = L11(i1): s2 = L12(i1): s3 = L13(i1): S4 = L14(i1): S5 = L15(i1)
  If BCT = 2 Then s1 = L21(i1): s2 = L22(i1): s3 = L23(i1): S4 = L24(i1): S5 = L25(i1)
  If BCT = 3 Then s1 = L31(i1): s2 = L32(i1): s3 = L33(i1): S4 = L34(i1): S5 = L35(i1)
  If BCT = 4 Then s1 = L41(i1): s2 = L42(i1): s3 = L43(i1): S4 = L44(i1): S5 = L45(i1)
  If BCT = 5 Then s1 = L51(i1): s2 = L52(i1): s3 = L53(i1): S4 = L54(i1): S5 = L55(i1)
  If BCT = 6 Then s1 = L61(i1): s2 = L62(i1): s3 = L63(i1): S4 = L64(i1): S5 = L65(i1)
  If BCT = 7 Then s1 = L71(i1): s2 = L72(i1): s3 = L73(i1): S4 = L74(i1): S5 = L75(i1)
  Text1.Text = s1: Text2.Text = s2:    Text3.Text = s3: Text4.Text = S4: Text5.Text = S5:
  LOP = 1
End Sub

Private Sub List3_Click()
 i = List3.ListIndex
 If i >= 0 Then
  Label8.Caption = NAME1(i): Label9.Caption = EMP1(i)
  FDATA = drv1 & ":TIME" & EMP1(i) & ""
''  List1.ListIndex = 1
  R1 = CLng(Date): R1 = R1 - WEEK1: R1 = R1 / 7: R1 = CLng(R1)
  List1.ListIndex = R1
  List1_Click
 End If
End Sub

Private Sub LSTJOBDWG()
 Dim i1%, i2%
 Combo1.Clear: Combo2.Clear
' READ FROM OUTSIDE DATA FILE FOR JOB
 s2 = "C:TIME" & "job.STD": s1 = Dir(s2, 0)
 If s1 <> "" Then
  Open s2 For Input As #9: JOBCT = 1
   JOB(0) = " "
   Do While Not EOF(9)
    JOB(JOBCT) = strout(): If RTrim(LTrim(JOB(JOBCT))) <> "" Then JOBCT = JOBCT + 1
   Loop
  Close #9
 End If
 For i = 0 To JOBCT - 1: Combo1.AddItem JOB(i): Next i

' READ FROM OUTSIDE DATA FILE FOR DWG
 s2 = "C:TIME" & "DWG.STD": s1 = Dir(s2, 0)
 If s1 <> "" Then
  Open s2 For Input As #9: DWGCT = 1
   DWG(0) = " "
   Do While Not EOF(9)
    DWG(DWGCT) = strout(): If RTrim(LTrim(DWG(DWGCT))) <> "" Then DWGCT = DWGCT + 1
   Loop
  Close #9
 End If
 For i = 0 To DWGCT - 1: Combo2.AddItem DWG(i): Next i
End Sub

Private Sub LSTUPD()
 Dim i1%
 If LOP = 1 Then
  i1 = List2.ListIndex
  If BCT = 1 Then If i1 >= 0 Then L11(i1) = Text1.Text: L12(i1) = Text2.Text: L13(i1) = Text3.Text: L14(i1) = Text4.Text: L15(i1) = Text5.Text
  If BCT = 2 Then If i1 >= 0 Then L21(i1) = Text1.Text: L22(i1) = Text2.Text: L23(i1) = Text3.Text: L24(i1) = Text4.Text: L25(i1) = Text5.Text
  If BCT = 3 Then If i1 >= 0 Then L31(i1) = Text1.Text: L32(i1) = Text2.Text: L33(i1) = Text3.Text: L34(i1) = Text4.Text: L35(i1) = Text5.Text
  If BCT = 4 Then If i1 >= 0 Then L41(i1) = Text1.Text: L42(i1) = Text2.Text: L43(i1) = Text3.Text: L44(i1) = Text4.Text: L45(i1) = Text5.Text
  If BCT = 5 Then If i1 >= 0 Then L51(i1) = Text1.Text: L52(i1) = Text2.Text: L53(i1) = Text3.Text: L54(i1) = Text4.Text: L55(i1) = Text5.Text
  If BCT = 6 Then If i1 >= 0 Then L61(i1) = Text1.Text: L62(i1) = Text2.Text: L63(i1) = Text3.Text: L64(i1) = Text4.Text: L65(i1) = Text5.Text
  If BCT = 7 Then If i1 >= 0 Then L71(i1) = Text1.Text: L72(i1) = Text2.Text: L73(i1) = Text3.Text: L74(i1) = Text4.Text: L75(i1) = Text5.Text

' LST5(i1) = CDbl(LST1(i1)) * CDbl(LST2(i1))
  L2UPD i1
'  List2.ListIndex = i1
 End If
End Sub
Private Function strout() As String
 If Not EOF(9) Then
  TEXTDATA = "": Char = Input(1, #9):
  While Char <> Chr(10):
   TEXTDATA = TEXTDATA & Char:
   Char = Input(1, #9):
  Wend:
  strout = Left(TEXTDATA, Len(TEXTDATA) - 1)
 End If
End Function

Private Sub Text1_Change()
 If RUN > 0 Then LSTUPD
End Sub

Private Sub Text2_Change()
 If RUN > 0 Then LSTUPD
End Sub

Private Sub Text3_Change()
 If RUN > 0 Then LSTUPD
End Sub

Private Sub Text4_Change()
 If RUN > 0 Then LSTUPD
End Sub

Private Sub Text5_Change()
 If RUN > 0 Then LSTUPD
End Sub

---

Runtime Vs. Compiled Runtime?
Hey guys,

Here's my problem. When I'm running my program from within VB5, it doesn't do anything during a messagebox. But when I have it compiled, it'll respond to external devices like the serial port.

Can anyone tell me the differences between running a program from the VB IDE, and running the compiled program? Is there anyway that I can get it to work the same while designing? I can't get any event to happen (timers, etc...) while I have a messagebox up, unless I have the program compiled.

There must be something simple I'm missing.

- Dim A

---

Windows 2000 Runtime Error For VB Program....SOME GURU PLEASE HELP&gt;&gt;&gt;Its Extremely Urgent!
Please note: I have this on another older thread too but it did not get resolved there so I am posting it here with some update as this is really really urgent for me....please .. some guru help me...

I have made an application package using windows installer for my application that was made in VB 6 and Crystal Reports 9. On windows 2000, my application installs fine but when I try to run the application, I get the following error.

Run-time error '-2147467159 (80004005)': Unspecified error.

I am unbale to run the applicatin due to this. The error is supposedly generated by the following lines of code. Can someone help me get rid of this error. Thanks a lot!

Private Sub Form_Load()
    Dim fso As FileSystemObject
     
    Set fso = New FileSystemObject
    Set CN = New Connection
    currentOpenFile = GetSetting("FollowUp", vbNullChar, "defaultVDF")
    If (currentOpenFile = "") Or (fso.FileExists(currentOpenFile) <> True) Then
        currentOpenFile = App.Path & "FollowUp.vdf"
    End If
    CN.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & currentOpenFile & ";pwd=blingbling"
    txtPassword.PasswordChar = "*"
End Sub

Yes I have done all the updates available and am using MDAC 2.8. There is weird thing that happened. I tried installing it on another windows 2000 machine and it did install correctly and ran correctly. But when I try installing it on the other windows 2000, the installation works fine but I get the same error when I run the application. Whats going on?/?

Please help!

Edit By Shandy: Previous post, Run time error on windows 2000



Edited by - Shandy on 1/16/2004 3:23:07 AM

---

Compiled Program Won't Run
Hello, I have a probem with VB. When I run my projects from inside VB, they work fine, but when I compile them and launch the executable, the program does not open at all and I just hear the windows beep. I think that it used to work, but now it wont. I tried reinstalling VB, but the programs still don't work. I made a simple project, with a window and a button that pops up with a messagebox when you click it. It is the simplest thing and the exe will not work! Could it be a software conflict with something else I have installed? Please help.

Thanks

---

IDE V Compiled Program Run...
I have an error in my program. I don't know what causes it, nor do I know how to solve it. It occurs when I run my program in the IDE, however it does not occur when my program is compiled.

My question: Since I haven't had this happen in a compiled version of a program, can I simply leave it alone? Is it really an error if it occurs only in the IDE?

Has anyone else ran into such an error?

---

Compiled Program Won't Run
Hi everyone. I have writen an app that runs perfectly from the development environment, even if I select "Run with full compile". When I make the EXE, however, and run that, it doesn't even open - crashes with a Windows "FSEicas has perfomed an illegal operation, and will be closed" error box. The error details are:-


Code:
FSEICAS caused an invalid page fault in
module MSVBVM50.DLL at 017f:741bd10f.
Registers:
EAX=38cc036a CS=017f EIP=741bd10f EFLGS=00010206
EBX=740ddc7f SS=0187 ESP=0071f0e0 EBP=0071f50c
ECX=00713e7c DS=0187 ESI=0071f4d8 FS=43d7
EDX=0000005b ES=0187 EDI=740de2f2 GS=0000
Bytes at CS:EIP:
83 78 08 00 0f 85 02 64 00 00 8b 46 08 66 81 60
Stack dump:
741bd0d2 004defa4 004defb8 0071f518 0071f5f4 00d5b8f4 45c4e000 0000189c 00000187 0071f118 00000000 00000000 c4039588 c3beb3df c221f31e c1eab5fe

Can anyone help me out ?

Richard

---

Tell If Program Is Compiled Or Not?
Hi,
How can I tell if my program is running as uncompiled (i.e still in VB) or is running as a compiled executable?

My program saves it's current path in a setting in the registry every time it starts, but I have an old version of my program running while still using the current version so this registry setting ends up pointing to the the wrong file and I then forget about it and all sorts of terrible things end up happening.

Any ideas anyone?

---

My Compiled Program Slow Upon First Run?
Hi There,

I have just completed my program and when I first run it after a reboot of the PC, it is very sluggish. My opening Intro screen contains an "Animation" in the form of 30 moving pictures to create the effect, and it runs in slow motion the first time I run the program. The funny thing is that when I close the application and restart it the animation is smooth and how it should be. Is there some file that is loaded when you first run the application and then stays there for as long as the PC is running. Do you have any suggestions as to how I can make the animation smooth from the first run. I would certainly appreciate and help

Thanks in advance

---

Compiled Program Start Up
I've made a nice program I really use a lot on my computer. I compiled it too an exe file so that I can access it fast. But when i click the shortcut on my desktop it can take 20-30 seconds before the program is visible on my screen.
I've allready tried to defragmentise my system, but that didnt solve the problem. My own written program doesnt contain weird stuff, so I dont know why the loading takes that long. Is there a way to compile the executable exe file in a way so that it loads faster ? (Ive got a pentium III, 667 mhz)

Regards,
Sjaak

---

Program Crushes If Compiled To .exe
My program that uses:


Code:
Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, _
ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, _
lpThreadId As Long) As Long
Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long
Private Declare Function SetThreadPriority Lib "kernel32" (ByVal hThread As Long, ByVal nPriority As Long) As Long
Private Declare Function GetThreadPriority Lib "kernel32" (ByVal hThread As Long) As Long
Private Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
in the .BAS module and code in the form:


Code:
Dim myFirstThread As clsThreads
Set myFirstThread = New clsThreads
With myFirstThread
.Initialize AddressOf RunGen1
.Enabled = True
End With
works fine if launched from within VB6. Once compiled to an .exe crushed immediately if I start the myFirstThread. Does anybody know why is this happening?

---

Program Crashes After Compiled
Why does my prog have a fatal error after it is compiled into *.exe

---

Compiled Program Too Big In Windows NT!!!
I ran into a problem compiling an application in VB6. It runs fine in the IDE but after compiling and getting the .exe file it doesn't work. I get what looks like a Command window with a message "Program to big to fit in memory." This blows by in a fraction of a second and nothing else happens.

I tried to reproduce this problem on a laptop. I compiled the application using the same files (I use sneaker net to move files from one machine to another) to make a .exe. It ran fine on the laptop! It also runs fine on my desktop. That gave me the chance to see how much memory it was taking up. Task Manager indicated about 13000k (~13MB) - not very big I thought. So I don't understand what could go wrong with a compile that would give the error.

Both machines have 128MB of RAM and plenty of disk space and are running Windows NT 4.0.

I can't be forever going to the laptop to compile it! Any suggestions?

---

Deploying Compiled Program To Other Pc
How come my program shows bugs when I installed it in other OS, eventhough I made the installer? how can I prevent this to happen?

---

Program Not Loading When Compiled
Is there any reason for a program running perfectly in VB IDE, but don't showing up anything, not even loading, when compiled?

the only dependency this program has is the common controls 6.0..

--
{-felipin-sioux-}
There are only 10 types of people in the world: Those who understand binary, and those who don't.

---

Changing A Compiled Program
I do all my Vb under (Standard EXE). Mainly because it is easier for me. I Finally learned how to Convert the Program to a desktop Icon starting program using the file menu Item (Make ??? ExE). Now I want to make changes in that code and once again save as a Make ??? Exe.
The question is How do I do that?
Deleteing the original by draging it to the garbage seems to have prevented me from ever compiling it again because the Make ??? does not show up on the file menu.
Thanks RSH

---

Compiled Program Doesn't Open
Hi there !
I'm really not a good programmer, but i've written a program, compiled it and everything works fine.
So the problem is.. why doesn't it open on other computers ?

Has anyone experienced it ?

The program is very simple
I use a rich text box and a list box
maybe it's that

my code is very simple, shouldn't be that..

---

Difference Between Uncompiled And Compiled Program
This one is hard!

What could be the reason, that a program runs normaly in debug mode, but when compiled, it constantly reports an error in one Sub procedure. I really can't find the reason of this error. The procedure uses no APIs, no user Classes or Structs, etc.

Have any of you had any such experiance?

E.

---

Compiled Program Behaving Differently
I've run into a strange problem with a chess program I've written (VB6). It doesn't have any AI and only plays out moves read from a file (and also does some analysis). Anyway, I came across a game that plays out on the graphical board perfectly within the development environment but causes errors when try it with the EXE (compiled) version of my program. Have any of you run into a problem like this before? How and why would the compiled version behave differently? Aren't they supposed to be exactly the same? I don't even know where to start looking for the problem in a case like this.

---

Sending Parameters To Compiled Program
I wasn't exactly sure what to search for to find the answer to this, so i figured i'd just ask:

Is there any way for a compiled visual basic program to accept some parameters as input, such as:
c:program filesvbprogram.exe "randomstring", "secondstring"
If I did that, how would i account for it inside of the program?
Thanks, Adam

---

Cannot Exit Compiled Version Of My Program
Hi - I'm very new to vb and I hope I can state my question with some type of clarity.
I created a very small program using 6.0 professional and it has some music playing in it. I only have 2 forms and I wanted to see what would happen if I tried to make it a .exe file and run the package and deployment....to package it. I wanted to do that now because I did not want to write a whole program only to find out I could not package it later on. So - it's a "test". The program now appears in my start....programs...and when I click it, it does open to show the main form (form1) and I do hear the music playing. However, when I click a command button to show form2 and hides form1 - form2 does appear and when I click a command button to bring me back to form1 that does work also. But - if I stay on form2 and I click the upper right hand corner of the form (Close) - the whole program closes and I have nothing but my desktop showing and the music is still playing - and I have no way to turn the program off unless I
click "Ctrl,alt,delete" and then close the program from there. Can anyone please tell me what code I may be missing - what am I doing wrong?
would very much appreciate it - thanks!
Jim

---

Program Written In VB 6.0 Compiled For UNIX
This is my first post on this forum. I hope you don't laugh too hard.

Anyway, I have a program written in VB 6.0 and compiled to run on Windows XP. It runs fine. Now my boss wants the source recompiled to run on UNIX. I know nothing about UNIX. I've done what I thought was a thorough internet search but can't find anything related to this. Is that even possible? If so, how do I go about it?

ty

---

[VB6] Problem Starting Compiled Program With OCX
Hello all!

I've got a problem starting a compiled program (little Tetris-game). It does not start at all when the program is compiled!
When I run the program within VB6 itself, the program runs smoothly. No problems at all.
I've placed the OCX-file in the Windows an System32 directory, so it should be correct. I also registered the file using regsvr32.

It won't work on other systems also. Even when I make a setup with Setup Factory from Endigo Rose.

What to do?

---

VB Compiled Program Made Into Screensaver
'lota viruses work that way..

---

What Shoul I Send With My Compiled Program
Hi guys
I have developed a program in vb6 for someone and compiled it and now I wanna offer it to him but he hasn’t vb installed on his computer and I’m afraid he won’t be able to run it what should I install on his computer to make him capable of running my app.
Another q is that if I use a component from component list in my app then I want to give my app to someone who doesn’t have vb what should I do??
Thank u so much for helping me my friend

---

Passing Parameters To A Compiled Program
I am working with multiple VB apps and I need to know how I would go about passing parameters between them (i .e displaying only a certain form from a particular app etc. )

---

How To Send Parameters To Compiled Program ?
I need to send some parameters to me compiled VB program (like unzip.exe /P /S ....). Is it possible to do ?
Thanks in advance.
Raoul

---

Question About Updating A Compiled Program
I haven't made a setup file before so excuse me if I ask any really stupid questions here!

I made quite a few improvements/additions/repairs to my Code Database program. I want to create a setup file for the program now. The problem is I have a couple of minor bugs (honestly not sure yet if they are bugs or just faulty logic!). They don't hurt anything and wouldn't effect the way the program performs in any way, they just annoy me. Also I have some ideas for some things I could add to the program, but it would take a lot more work and time.

So...if I go ahead and compile the application and make a package and deploy file, then a week from now I figure out how to fix the bugs, would I have to create an entire new exe and setup file from scratch? I mean would my program have to be uninstalled so the new version could be installed, or could I just make an update file that would update the existing application with the new changes?


God Bless America

---

Compiled VB Program Won't Stop Running!?
This is probably a very basic idea in VB programming, but I haven't learned it yet. I complied a VB program I wrote and when I hit the close button, the "X" next to max/min, the prgram appears to end, but if you press ctl-alt-del and see what programs are running it says that the program is still running! If you go to the file menu and hit exit, I have a sub that just calls the end function. If you exit the program this way, it doesnt keep running. So If anyone knows what I'm talking about please help!

---

Activate Event Called Only When Program Is Compiled.
Greetings all!

I ran into a really weird problem that took me about one day of work to fix. Byt the thing is, I still don't understand why I got this weird behavior!?!?!?!?!? So I tought that maybe some of you could provide me with another plausible explaination than my computer is posessed!

I work with MDIforms. When I click a button, it is supposed to open a form. So, what I do is loading an MDIchild into a collection. After doing that, I call a my custom function "LoadData()" from the MDIchild to load some datas (duh! that really sounded like a bad help file I read once...).

Now, here is the funcky part: when I run from the .exe file, the sub "Form_Activate()" is called right after my function "LoadData()". BUT, if I run the program from the VB developpment (I call it debug mode...) environment, "Form_Activate()" is NOT called!!!!

If anybody could tell me why the behavior is different between compiled version of the app and the debug mode, that would be great!!! Or, at least, if someone have seen something like that, just tell me cuz I really think about calling a priest so he can exorcit my computer!!!!


Thanks!
)

---

Visual Basic Program Locks Up Only If Compiled
This is very weird, but it's not the first time i'm experiencing it.

basically what i have here is an IRC Server that is able to form a network (ie: it can have server to server connections and every server knows about any other server and user).

Everything fine until now, but everytime a server has more than one server connection (happens only with server connections for some reason) it locks up and uses up 100% of the cpu time not doing anything at all.

I am using the Winsock API, there's no GUI at all.

Usually i'd say it's some unwanted infinite loop, but this doesnt happen in the IDE at all, maybe anyone has an idea? i can post the code too if you need it, nothing secret about it...

thanks in advance!

---

Problem - Compiled Program Only Runs On WIN98
I made a VB6 program, then compiled it and tested it on different computers and systems. The program works great, contains no bugs, but.... I only runs well on Win-98! On Win-2000 or Win-XP it sometimes even doesn't want to start or sometimes it starts, but stops later.

When it stops or doesn't start, the Run-time error '7' + 'Out of memory' is reported. As said, under Win-98 there is no error.

I suppose there is some library problem, but have no idea, how to solve it. The program is using 'Commondialog', 'flexgrid' and other advanced elements, so I did add the needed OCX-files to the program folder.

Can anybody give me any useful information?

Thanks!
Matej

---

How To Detect If Program Is Compiled Or In Debug Mode
Hi

I need my programme to run certain code only if it is compiled. Those procedures should not execute in debug mode. Is there any solution to that problem? Thanks for your help.

---

Problem - Compiled Program Only Runs On WIN98
I made a VB6 program, then compiled it and tested it on different computers and systems. The program works great, contains no bugs, but.... I only runs well on Win-98! On Win-2000 or Win-XP in sometimes even doesn't want to start or sometimes it starts, but stops later.

When it stops the Run-time error '7' + 'Out of memory' is reported. As said, under Win-98 there is no error.

I suppose there is samo library problem, but have no idea, how to solve it. The program is using 'Commondialog', 'flexgrid' and other advanced elements, so I did add all the needen OCX-files to the program itself.

Can anybody give me any useful information?

Thanks!
Matej

---

Compiled VB Program Doesn't Work On Computer Without VB
Yo yo yo

I've known (or think anyways) that computer without VB can't run a program compiled in VB without haveing some important DLL. I just need to know where to get these DLLs and how to install them

Thanks, Cerf

---

After Closing A Compiled EXE Program, How Come Its Still Running Inside Memory?
i jus compile an EXE file for my VB code. After i run it & play around with it, i close the program by hitting the "X" at top right corner. The problem is tat the program is still running in the memory after i close the program & i hav to go to Task Manager & then under Process tab to close tat program.

is there a way to really make the compiled EXE file really close when i hit the "X" button?

---

Compiled Error
i have a fully completed program that i have made to an exe file which works perfectly on my comp( XP) but when i tryed it on a friends ( 98 & ME) i get error messages. first of all i get the error

Class not registered.
Looking for object with CLSID:{0000000110010101010010blablabla

and then

run time error '91'
Object variable or With block variable not set

dont know what any of these means any ideas why it works on myne but not on a different computer. thanks

---

When Compiled Error
i made a program involving winsock

when i play it normally there aint no error but when i play it when its compiled it says 'Runtime error '13' Type mismatch'

how do i fix it?

---

Error Only In Compiled Exe!
Hello, I am developing an application that uses VB6.

It all works fine when running from inside Visual basic - even selecting 'run with full compile' produces no errors; building the EXe file works ok, but when I run the EXE file it always fails at the same point with the following error

Run-time error '458':
Variable uses an automation type not supported in visual basic

I do not know exactly which line is causing the problem as it does not happen when running from VB! ButI do know that at around the time it fails it is writing to the Outlook contacts via MAPI.

Does anyone know why this is happening and how I can fix it?

Thanks

Icarusbop

Edited by - icarusbop on 3/2/2005 1:52:38 AM

---

Exporting To Excel Wont Work When The Program Is Compiled Into A .exe File
Sir/s,

Hope you can help me with this bug.... im having difficulties on this.....

Thanks !

---

Amazing Problem. I Cant Get Links From Webbrowser Control When My Program Is Compiled
Hello,
I am trying to retrieve all the links from a web page. I am using webbrowser control for that. I create references of the Microsoft HTML Object library. I used 3 methods. And all of them works fine when i run the program within visual basic code window. But as soon as i create .exe it does not work and show me the error 'Object variable of with block variable not set' (error : 91)
Here is my code.

Method 1:

Code:
Dim doc as New HTMLDOCUMENT
Dim a_link As HTMLAnchorElement

wbrsource.navigate("www.bdlearner.qsh.es")

'Give time to webbrowser for loading document

do while wbrsource.readystate<>readystate_complete
doevents
loop

'Document loading completed. Extract links

Set doc = wbrSource.Document
Set a_link = doc.links

For Each a_link In doc.links
List1.AddItem a_link.href
Next a_link
Method 2:

Code:
dim collinks as variant
wbrsource.navigate("www.bdlearner.qsh.es")

'Give time to webbrowser for loading document

do while wbrsource.readystate<>readystate_complete
doevents
loop

'Document loading completed. Extract links

Set collinks = wbrSource.Document.All.tags("A")

For qq = 0 To collinks.Length - 1
List1.AddItem collinks(qq).href
Next qq
Method 3:

Code:
wbrsource.navigate("www.bdlearner.qsh.es")

'Give time to webbrowser for loading document

do while wbrsource.readystate<>readystate_complete
doevents
loop

'Document loading completed. Extract links

For qq = 0 To wbrSource.Document.links.Length - 1
List1.AddItem wbrSource.Document.links(qq).href
Next qq
I tried all 3 methods. But none works when the code is compiled into .exe.

What can i do now? I need a solution. I am using Microsoft Internet Explorer (Version: 6.0.2900.2180.xpsp_sp2_rtm.040803-2158)

Please help me.

Kindest regards...
Shaoun

---

DLL Call Returns Different Values In Debug Mode And Compiled Program
I had called an DLL file pointing to its exact location using

Code:
Private Declare Function RPos Lib "C:Documents and SettingsTY Desktopmovementline.dll" (ByRef Normal As Double, ByVal Pos As Integer, ByVal NPos As Integer) As Integer


The problem is this DLL call returns junk when i run the program in vb6 to debug it. e.g. 5685 it shld return some values less than 80.

But when i compile and run the program as a executable, it returns the values which i wanted.

What are the likely cause?

Thks in advance.

---