Visual Basic

terminating VB6 application

29-Nov-07 23:12

What have you tried ? Did you read the MSDN help ? Did you try google ?

Christian Graus - Microsoft MVP - C++

"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

"Ondra29-Nov-07 23:10

29-Nov-07 23:10

Hello,
I have a program consisting of four modules and three forms. When I try to terminate it using following sub:

Public Sub END_IT()
Unload Form1
Unload inicializace
Unload tech_krivka
MsgBox "applicaion terminated", vbInformation
End
End Sub

the MsgBox appear, but then the program get stuck and it's neccesary to quit it from TaskManager (where CPU usage 99% for the VB6.EXE is shown).
When made to .exe file, the situation is the same except CPU usage 0%.
thank you for your oppinion

Ondra Pokorny

Sipder29-Nov-07 23:15

Sipder

29-Nov-07 23:15

Why don't u write simply
"End"
insted of unloading all the forms?

Tell me if it works

"Ondra29-Nov-07 23:23

Re: terminating VB6 application [modified]

29-Nov-07 23:23

Because I've tried it and it was all the same. So I've looked in VB6 Help and:
"
The End statement provides a way to force your program to halt. For normal termination of a Visual Basic program, you should unload all forms. Your program closes as soon as there are no other programs holding references to objects created from your public class modules and no code executing.
"

Vimalsoft(Pty) Ltd30-Nov-07 0:43

Vimalsoft(Pty) Ltd

30-Nov-07 0:43

hi Ondra

Simply hide your forms and use unload function of vb6 and your Application will be terminated. like this

unload(frmmain)

.

Hope it helps

Thanks

-- modified at 6:54 Friday 30th November, 2007

"Ondra30-Nov-07 1:59

30-Nov-07 1:59

I've tried:

unload(Form1)

but a window appeared "invalid property value"

Vimalsoft(Pty) Ltd30-Nov-07 2:43

Vimalsoft(Pty) Ltd

30-Nov-07 2:43

ok, do it this way

forgive me, i dont know when last did i use Vb6, but let me give you a solution to that.

i assume you have a an MDI, a main Form. on every clsing exent or Dispose, make sure you put this code.

umload me

.

and it will be very Easy if you have one MDI and other forms as Children, when you unload the MDI and other Form will be terminated.

try it and tell me what is happening.

Thanks

"Ondra30-Nov-07 2:52

30-Nov-07 2:52

no sucess, situation is the same- but I assume that there is not problem in this (see my later comment-it's probably caused by timers). Anyway, thank you very much.

ChandraRam30-Nov-07 1:38

ChandraRam

30-Nov-07 1:38

1) Where is this sub defined?
2) Do you have any code in the event that is called when you unload any of these forms?

"Ondra30-Nov-07 2:05

30-Nov-07 2:05

1)it is defined in one of the module
2)I don't think so; Actually,I use two winAPI timers form winmm.dll and one VB timer in the program,but they are all stopped before terminating the application

another clue?

"Ondra30-Nov-07 2:18

There's problem with timers!

30-Nov-07 2:18

there may be a connection with timers I use (2*winAPI timers from winmm.dll and one "standard" VBTimer). I've noticed that when I terminate the application before starting these timers, it ends correctly.

"Ondra30-Nov-07 2:40

how to detect changes in system date

30-Nov-07 2:40

YESS, it's most probalby caused by WinAPI timers- I've trierd to start VBTimer Only and it ends correctly. The syntax of timers is:

Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID _
As Long) As Long

Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay _
As Long, ByVal uResolution As Long, ByVal lpFunction _
As Long, ByVal dwUser As Long, ByVal uFlags As Long) _
As Long

they are started:

Time2 = timeSetEvent(Period2, Period2, AddressOf Timer2Clb, 0, TIME_PERIODIC)
Time1 = timeSetEvent(Period1, Period1, AddressOf Timer1Clb, 0, TIME_PERIODIC)

and stopped:

Public Sub StopTimers()
Form1.VBTimer.Interval = 0

If Time1 <> 0 Then
timeKillEvent (Time1)
Time1 = 0
End If

If Time2 <> 0 Then
timeKillEvent (Time2)
Time2 = 0
End If

End Sub

If you know what's wrong, I would be grateful for reply.

-- modified at 8:52 Friday 30th November, 2007

eyes200729-Nov-07 22:35

eyes2007

29-Nov-07 22:35

hi all,
i am developing an application (a 15 days trial version).

can someone tell me how can i handle the situation, when the user change the system date, the application must not start.

how can i detect the changes in system date.

or if someone have any other logic to handle it anyway.

thanks in advance

help everyone

Christian Graus29-Nov-07 22:53

29-Nov-07 22:53

Every time the app stores, you need to store the date somewhere. If the date goes backwards, you store that it's gone backwards and the app therefore will no longer start.

eyes200729-Nov-07 23:02

eyes2007

29-Nov-07 23:02

thanks christian

i am thinking about to use file system watcher, what do u say

and i am also keeping an eye on the date and time as well as u say.

but their is a problem, if the user install the product on day 1, after 15 days he change the date and can use the product. how can i resolve that any idea.

thanks again

help everyone

Colin Angus Mackay29-Nov-07 23:07

Colin Angus Mackay

29-Nov-07 23:07

eyes2007 wrote:
i am thinking about to use file system watcher, what do u say

What would watching the file system achieve?

Upcoming FREE developer events:
* Developer Day Scotland

My website

eyes200729-Nov-07 23:10

eyes2007

29-Nov-07 23:10

any change in system date

thats just an idea and i have to read more about that component.

help everyone

Christian Graus29-Nov-07 23:11

29-Nov-07 23:11

eyes2007 wrote:
help everyone

I don't see what the point is. I told you what to do, and you're talking about something else that won't work.

Christian Graus29-Nov-07 23:11

29-Nov-07 23:11

eyes2007 wrote:
i am thinking about to use file system watcher, what do u say

Sounds bizarre to me. Why not do what I suggested instead ?

eyes2007 wrote:
but their is a problem, if the user install the product on day 1, after 15 days he change the date and can use the product. how can i resolve that any idea.

Refer to my original answer.

Add Bold Items in Combo Box

Tom Deketelaere30-Nov-07 5:07

Tom Deketelaere

30-Nov-07 5:07

here is how I would do it (wich resembles what christian said I think)

on installing the programme --> store the current date
everytime the programme starts --> store the current date in second location

now on startup off you'r programme you do 2 checks:
first check to see if the current date is before the date stored in location 2
if so --> user had turend clock back and trial ends
if not --> do check 2
check to see if the current date isn't 15 days after the date stored at location 1
if so --> trial has ended
if not --> store date in location 2 and start programme

to keep the user from hacking you'r programme (or at least make it harder too do) you might want to encrypt the date's

hope this helps

Credit to Christian who gave me this idea and I think this was also what he meant in his reply

If my help was helpfull let me know, if not let me know why.

The only way we learn is by making mistakes.

Kumaran21cen29-Nov-07 22:30

Kumaran21cen

29-Nov-07 22:30

I need to add some set of values in combo box.

eg :
Red
Blue
Green
Yellow
violet

I need red item to bold in the combo box. some one help me.......

Thanks & Regards
Kumaran

Re: Add Bold Items in Combo Box

Christian Graus29-Nov-07 22:53