Run Time Error '339' After VB Program Has Been Compiled To .exe

Compiled Run Time Error
hi, please help...

i have a program i made which works fine but now i've compiled it i get run time error 701 when i run certain things. it seems to be whenever i do a "call MsgBox"

the exact error says....

cannot show non-modal form when modal form is displayed

please can anyone help?

---

Please Help: Run Time Error 5 When Compiled
When I run my programme from within Visual Basic the programme runs fine. However when I compile it and install it I get an Run Time Error 5 in one part of the programme. I have tried putting more detailed error handling in but it isn't working and I can't for the life of me figure it out. Does anyone have any suggetions on why this is happening or how I can identify what they problem is.

Thanks

Tom

---

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!

---

Runtime Error 91 Only With Compiled Program.
Okay, I am tearing my hair out over this.

Enviroment is VB6.

The program I am working on only exhibits this error when it is compiled just making it even harder to figure it out.
Runtime Error '91':
Object variable or With block variable not set

Both sets of code/EXEs of the program do this. The main TME(Tiny Music Embedded) and the config program.

This pertains to reading settings from INI files.

In config.ini (Read by TMEConfig)
-------------
[settings]
iniloc=
-------------
The iniloc setting points to settings.ini where ever that may be.
When packing the program for a new installation, this is changed to nothing so that it will prompt for the location on the computer or network. However, when it is set to blank, the compiled program generates the error and terminates. Only the compiled does, the code in the run time enviroment behaves perfectly.
The main TME program exhibits the same behaviour when attempting to read the settings from its INI file.
-------------
[settings]
playlist=
winamp=
(Etc...)
-------------

I've done all kinds of tinkering and still I have no idea what is going wrong! It drives me insane and telling the people who use the program to edit the config.ini file to manually set the settings.ini location defeats the purpose of locating it.

The lastest source snapshot can be downloaded here:
http://www.experimentalinsanity.com/prog/TMESource6-1-04.zip

My appreciation in advance... about ready to start bashing my head.

---

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

---

Project Run-time Different From Compiled Run-time.
Hey again peeps,
As the subject states, when I test run the app during designing, it runs how I want it to... so I compile the app and run it and it's way off course. And yes, I saved all the frm's and the prj before compiling. Basically, all I notice right now is that the app is adding to the system tray 3 times instead of just one... oh, and 1 form is showing visible when it's supposed to be non-visible.
Like I said, during design time testing, it's perfect; but after I compile and test it's whacked out.
Please take a look at this code and see if you can pick anything out of it. I know it's really messy, but I haven't edited it yet. It's really just a compilation of sample codes from here and there. Sorry if it's too messy.

Thanks in advance!!!

---

Run-time Error On Program Close....
I'm getting a run-time error '55' File Already Open when I try to close my program. I know I'm accessing a file when I close the program.

What is the best way to close the file when the program is closed or another solution?

Thanks

---

Run-Time Error 7 When Running VB Program In XP
Hi all,

I am trying to run a program which I have written on a computer running windows XP. Before the upgrade to XP, the program was running perfectly with windows 98.

When you start the program, the splash screen comes up fine, but then when you press "ok" to load frmMain, it gives an error: Error 7 Out of Memory.

I took this error code to heart, and went and bought another 64MB RAM for this computer (it was only running with 64MB RAM initially), and I upped the page memory from 92MB to 250MB. I have watched the page memory monitor when the program runs, and it does not use up even half of the page memory.

Despite all this (128MB RAM and 250MB page mem), the program still gives this error when it trys to load frmMain.

I have spoken to somebody who suggested that VB error codes do not always mean what they say, and the error could have nothing to do with memory, which sort-of makes sense after it still throws the same error after the extra RAM has been loaded.

Could somebody please give me some idea on how to tackle this problem - I have a very irate user who is taking it very personally that this program doesn't run on his machine.

Many thanks in advance!

---

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

---

Exe's Dont Need VB Run Time If Compiled To Native Code?
I am reading this book and i havent tested this and i am pretty sure i am wrong here but according to this book the reason you need the VB run time dll is if you compiled to P-Code and your exe has to call that DLL to interpret the P-Code into Machine code.

I get the impression that since native code is already machine code this interpreter is not needed, therfore there is no need for the runtime dll.

Is there another reason for the run time dll?

---

Ado Connection Error When Running Program In Design Or Run Time
I am using vb6 with ado 2.1.In one of my developer machine my program is not running due to following errorin same line -

Activex Component cannot create object.

OR

Specified driver could not be loaded.System error 31 (Microsoft access driver {*.mdb))

Above error occured where i tried to open ado connection using open method.ADO dll properly referencd in project and i can select properties and method from list in code window.

I tried to uninstall and install vb.But problem is still there.

When vb setup registering dll/ocx certain files have problem to register to computer.Like msador.dll, msado21.dll, oledb32.dll etc.

I am in fix what to do now.Recently i have installed office xp in my machine and later uninstall it.May be errors are occured due to this.

---

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

---

Error On Data Report Vb 6.0 After Install Not At Program Run Time
After the packaging and loading the program on another computer with visual basic 6.0 on it. I try to run the data report and I am receiving this error:

Class not registered.
Looking for object with CLSID:{642AC766-AAB411D0-8494-00A0C90DC8A9}

Does any one know how to fix this problem?

Thank you
irish03

---

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!

---

Do Natively Compiled Programs Need Runt-time Executables? NT
NT

---

How Can I Include The Fonts I Used At Design Time With The Compiled App? [SOLVED]
If I use a special design font (or just not a common one) in my application, how can I include this font WITH the compiled app so when the user runs my app the font will always be available?

Do I just include the font to reside in my applications folder after installed? Can this be done without installing the font in the Windows Font folder?

I know, I know this is sort of a silly question but I need to be sure



_________________________________________________________________

Edited by - vbprog1144 on 11/16/2004 3:10:59 PM

---

Run Time Error Messages From A Dos Program Executed With The Shel L Function
Hola mail list partners

Someone knows how to get run time error messages from a dos program executed
with the shell function.

---

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?

---