How Do I Stop This?

Stop Error? Or I Will Stop You!
Oh the title i just wanted to get your attention. it looks like it worked though.

So now to the real problem, How do you make an easy error handler for a for next loop that sets or reads the properties of controls. and it tries to read a "timer.width".

I don't want ot know a way to avoid the error just a way to handle it.

Regards
E.P.

---

Stop IE Until It's Done
Hi!
I made a web translator in VB. I capture IE events so when a website is opened and browsed I will get IE document.body.innerhtml translate it and the navigate "mydir ranslated.html"
The app works fine but I want to know if there is any way to do this:
The the user enters the url or clicks on an hyperlink I want to pause internet explorer, send the url clicked or entered to a webbrowser control in my app, navigate the url, get the html, translate it and then send the navigate command to the IE window. I know i can send the navigate command, i can get the clicked url, get the HTML, but i dont know how to pause IE or if it can be done...
Is there anyway to do this?
Tnx!

---

Using One Sub To Stop Another
Hi,
Can anyone tell me if this is even possible:

The best way I can illustrate my concept would be with a slot machine.

Let's say I wrote a sub so that when I click on a [Spin] button, my panel would start cycling images. The cycling takes place as a result of a For...Next Loop and I also would invoke the Sleep API so I can alter the speed at which it cycles.

Now under the panel I would have a seperate button that I would like to stop that single image from cycling in the middle of the loop.

Is this possible, and if so how would I approach it?

This isn't exactly what I am trying to do, but I have encountered this road block many times in the past. I would appreciate any thoughts on this topic. Thanks!

---

Run And Stop
http://www.xtremevbtalk.com/newt...newthread&f=7#
Confused
how to make a program that always looping.. and stoped if we press "stop" and can continue running again if we press "run"?
i would be thankfull if you can give me the coding.

---

I Can't Get It To STOP!!
Hey there, I'm having problems getting my program to end.

Here's the code:


Code:
Dim NextTorrent As Boolean
Private boComplete As Boolean
Private boState As Boolean
Dim FORCEquit As Boolean

Private Sub UploadMeganova()
If FORCEquit = True Then
Exit Sub
Else
On Error Resume Next
NextTorrent = False
If WebPageContains("The page cannot be found") = True Then
boComplete = True
Else
wb.Document.All("file").Click
wb.Document.All("name").Value = Title.Text
If Music.Value = True Then
wb.Document.All("cat").Value = "11"
End If
If Movie.Value = True Then
wb.Document.All("cat").Value = "34"
End If
If eBook.Value = True Then
wb.Document.All("cat").Value = "24"
End If
If Other.Value = True Then
wb.Document.All("cat").Value = "21"
End If
If TVShow.Value = True Then
wb.Document.All("cat").Value = "7"
End If
If Software.Value = True Then
wb.Document.All("cat").Value = "17"
End If
wb.Document.All("description").Value = Description.Text
wb.Document.All("submit").Click
End If
End If
End Sub

Private Sub Command1_Click()
FORCEquit = True
Unload Me
End Sub

Private Sub Form_Terminate()
FORCEquit = True
Unload Me
End Sub

Private Sub Form_Unload(Cancel As Integer)
FORCEquit = True
Unload Me
End Sub

Private Sub Start_Click()
Do Until FORCEquit = True
Start.Enabled = False
NextButton.Enabled = True
NextTorrent = False
boState = False
boComplete = False
wb.Navigate "http://www.mininova.org/upload"
Do Until boComplete = True Or FORCEquit = True
DoEvents
Loop
boComplete = False
Call UploadMiniNova
Do Until boComplete = True Or FORCEquit = True
DoEvents
Loop
boComplete = False


Loop
End Sub
For some weird reason, if the user exits out via the Command1 button, or if they exit out via the little x in the top right, the program still runs in the Processes window.

How can I have the program TERMINATE if they user exits the program?

I'm a bit confused.....

---

Stop Next N
I'm trying to paste only one time once Excel recognizes that it has found a blank cell. Then I want to compare date differences. How can I command it to ignore next n for this situation. Also, I realize 1 to 999 is not good paractice, any suggestion?

n = 1
For n = 1 To 999

Cells(n, 1).Select
If (Cells(n, 1)) = "" Then
Selection.PasteSpecial paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

End If

Next n


If DateDiff("d", Cells(n, 5), Cells(n - 1, 5)) = 0 Then

---

Tab Stop
Tab Stop prevents that an object gets focus.
But, how to prevent the object lost its focus.
I have a text box, I want that when it gets focus by mouse, it does not lost its focus by pressing tab !
Is it possible ?

---

Stop Everything
Is there a way when A message box comes up that the only thing the user can do is click on the message box. I know that there is system modal, but the user can still do things even with this. I need something that will stop everything runing on the computer except what is needed to say answer message box.

---

Stop Ras From VB
Hi,

I want to be able to start and stop the remote access service from within a vb program.

Its a simple command in dos

net start RemoteAccess

How do I run this command in VB, is it possible to run the command at a certain time.

I`m using vb 6.0.

Thanks in advance.

jono

---

How To Stop
Code:
Private Sub Timer4_Timer()
SetCursorPos CLng(Text13.Text), CLng(Text14.Text)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
DoEvents
Sleep 1000
SetCursorPos CLng(Text13.Text), CLng(Text14.Text) - 60
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
DoEvents
Dim TimeToWait As Single
TimeToWait = 300 + Timer ' 300 seconds
Do While Timer - TimeToWait <= 0
DoEvents
Loop
SetCursorPos CLng(Text13.Text), CLng(Text14.Text)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
DoEvents
Sleep 1000
SetCursorPos CLng(Text13.Text), CLng(Text14.Text) - 60
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
DoEvents
TimeToWait = 20 + Timer ' 20 seconds
Do While Timer - TimeToWait <= 0
DoEvents
Loop
End Sub
How do i stop this timer. I tries timer4.enabled = False but it wont stop ot it will then it wont stop how would i stop it. Is there a stop loop control.

---

Stop Until Done
I have a script which restarts the computer after it has backupped my recent changed files.

But the computer isn't shuting down completely, it shows the "U can shutdown your computer now"screen. but i have tu press the shut down button manually.

the code i am using is :

Code:
Private Type LUID
UsedPart As Long
IgnoredForNowHigh32BitPart As Long
End Type

Private Type TOKEN_PRIVILEGES
PrivilegeCount As Long
TheLuid As LUID
Attributes As Long
End Type

Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_FORCE As Long = 4
Private Const EWX_REBOOT = 2

Private Declare Function ExitWindowsEx Lib "user32" (ByVal _
dwOptions As Long, ByVal dwReserved As Long) As Long

Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal _
ProcessHandle As Long, _
ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32" _
Alias "LookupPrivilegeValueA" _
(ByVal lpSystemName As String, ByVal lpName As String, lpLuid _
As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32" _
(ByVal TokenHandle As Long, _
ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES _
, ByVal BufferLength As Long, _
PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long

Private Sub AdjustToken()
Const TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8
Const SE_PRIVILEGE_ENABLED = &H2
Dim hdlProcessHandle As Long
Dim hdlTokenHandle As Long
Dim tmpLuid As LUID
Dim tkp As TOKEN_PRIVILEGES
Dim tkpNewButIgnored As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long

hdlProcessHandle = GetCurrentProcess()
OpenProcessToken hdlProcessHandle, (TOKEN_ADJUST_PRIVILEGES Or _
TOKEN_QUERY), hdlTokenHandle

' Get the LUID for shutdown privilege.
LookupPrivilegeValue "", "SeShutdownPrivilege", tmpLuid

tkp.PrivilegeCount = 1 ' One privilege to set
tkp.TheLuid = tmpLuid
tkp.Attributes = SE_PRIVILEGE_ENABLED

' Enable the shutdown privilege in the access token of this process.
AdjustTokenPrivileges hdlTokenHandle, False, _
tkp, Len(tkpNewButIgnored), tkpNewButIgnored, lBufferNeeded

End Sub

ExitWindowsEx (EWX_SHUTDOWN), &HFFFF

this is an standard windows api. why o why?

---

Stop
I am in the middle of creating a program and I hit the play button to try it out, my code containts a msgbox and it keeps popping up, when i press ok another one comes. How can i stop running my program?

Thx

Im not asking for help with my code, just the keyboard shortcut to stop


CTRL + ALT + BREAK

---

How To Stop Vb6.exe
hey how do you stop the exe file at run time? i have an exit button with unload me as the code but all it does is closes and it never really stops. is there like a system.close for vb?

---

Stop When Value = ?
Is there a way to make the code stop when a variable goes say to -88000. I need to find out where it is going deep into the negatives and there are so many goto statements im lost in the forest. (im translating a government fortran program to vb (goto was the thing back then) and the translater program didnt think to remove them. How kind right?) So my value has a general range of 9600ish and then all of a sudden goes to -88000 and I cant find where it does this.

Is there some kind of neat trick you can do to zoom to the code that makes a variable change past a certain number? The break points only work so well, b/c the variables switch names several times so im slowing tracking down how it changes to -88000. Any help would be incredibly appreciated.

---

Tab Stop
I have a screen with a lot of stuff on it. Grids, frames, tabs, etc. I'm trying to turn off all the tab stops except one. I was able to get all of them off except the one I want off and one other one I can't seem to find.

Is there a easier way to find what is still on? Thanks!

---

Stop.
hey, how do you stop a module from carrying on? in my form load i run many private subs, but i want it to stop it from running the next one if something is not correct with the first

---

Get PID And Stop App
I've been trying to see how I can close down a app safetly.

I know that I've got to get the PID of the app and then stop.

Anyone got any ideas for this?

Thanks

---

Net Stop
Hi there,im working on a project like a tweak and it will be doin a number of things enable/disbleing stuff!,and i want to know how to disble xp firewall with net stop this command wont work shell net stop "Internet Connection Firewall (ICF) / Internet Connection Sharing (ICS)"

any way around it to disble the firewall and enable,thanks

*ps you could pm me and tell me to stop its from misc use but thats up to you thanks*

---

Stop Asking Me MS!
Im using VB with Excel object model to interface with some excel files...A lot of times I make changes to the excel file via the vb gui . And then I simply use the excel object:
objExcel.Save
objExcel.Close...
etc

To save and close the object...but windows always asks me if I want to overwrite the previous file. Is there any way to suppress that so that it just overwrites?

Jon

---

Is There Some Way To Stop This????
When writing programs to go through the MAPI, specifically when sending an email, is there a way to stop the whole "a program is trying to send an email, should it be allowed?" thing that Microsoft goes through?

It's very annoying!!! My application works, and sends me the data that I need, but I get all of these windows popping up asking me for this and that.

Thanks all,

10kman

---

How Can I Stop This?
I am still trying to do that slot machine type game. I have everything down except... everytime the money goes up 1... it goes back down on the next click, here is my code:

Private Sub Command1_Click()
Dim money
money = 1
Text1.Text = Int(Rnd * 3)
Text2.Text = Int(Rnd * 3)
Text3.Text = Int(Rnd * 3)
text4.Text = money

If Text3 = Text1 And Text2 = Text1 And Text3 = Text2 Then money = money + 1
text4.Text = money
End Sub

I don't know whats wrong, please tell me.

---

Stop / Run
You know how you can use Stop to stop the application at specific code. Well how do I get it to re-run (programatically, i.e. User doesn't have to use F5 or play icon)?

---

To Stop A My VB App?
Hi guys

I would like to know.. How do I stop my VB App.

I know u can use the unload me , or even END command.

But I only have one form doing a SQL query, but when I enter
Unload me it doesn't quit the app.

I have to use END.

What is wrong? Why doesn't my app end if I use Unload Me?

Thanks

---

Stop App
He everyone,

Is there a way to complete stop a application. Every Event must be stopped (if possible).

I kind of emergency brake...

Grtz,

Bloged

---

Stop Them
How can I stop people resixing my forms??


Regards

Matt

---

How Can I Stop...
how can i stop a javascript from loading in a webbrowser. I know the scripts name and url. can i make it so that script never loads ?

---

ASP.STOP?
I'm trying to understand some codes which some genius left. Then I found words -" ASP.STOP" and " ASP.Navigate". Does anyone know about those? Is "ASP" a method? or a component? or is it an original thing?

I cheked MSDN libraly, but couldn't find those.

Please help.

---

Stop Sub
Hey I have a program and a sub that restarts the computer but now i want to beable to stop it by pressing F1. please help this newbie

---

Stop
Is there any way to stop a button's action once it has started? Thanks.

---

Stop The Sub
how can i stop the sub() if certain condition appears?
ex:
sub trying()
<>
<>
if [condition] then
stop? end sub? help!
end if
<>
<>
<>
end sub

---

Stop One Sub From Another?
Hi List

I startet two Subs. One of these Subs should stop the ohter Sub when a special sittuation exist.
How can I do that.

I tried it with

Sub firstsub()
code..
Exit Sub secondsub
End


but it doesn't work

any idea?

macloy

---

Stop-clock
Hi, im trying to make an analogue stop-clock, but i have no idea how to do the orientations for it. I just want to click a command button and one hand on the clock face turns for 60 seconds.

Any help is appreciated, thank you

---

Stop Minimizing
Hi,
i need to block users of my software from minimizing it (it has no border and it is full-screen), switching to another program via alt-tab or launching the start menu via the windows key. Is it possible?

---

Stop Webbrowser Pop-ups
hi

i have webbrowser on a form, and i navigate to a link. I want to stop ANY pop-ups that may appear.
Anybody has any ideas...?

Thanx in advance

---

How Can I Stop This Happening?
Every time I enter a letter or number in the text box, it enters the number in the last cell of the column and if I write 365 it will write 3 in the first empty cell, then 6 in the next and then 5 in the next. How can I stop this and make it so it has 365 in the last empty cell. If I take out the 'offset' it continually overwrites the last cell.

Private Sub TextTSH_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
SendKeys "{TAB}"
KeyAscii = 0
End If
With appGas1

.Sheets(1).Select
.Range("B1").End(xlDown).Offset(1, 0).Select
.Selection.Value = TextTSH.Text
.DisplayAlerts = False

End With
End Sub

Thanks.

---

Starting Stop
Hi folks,

When i test my program and it works i close it and put some new things into it or some little changes. However when i test it and the program crashes for some reason i can edit it and save it but i can't test it anymore because it halts everytime i want to test it.

I have to restart my computer everytime to test them again.

why does it always halts and what can i do about it?

---

Stop Wav File
I try to stop the sound from playing using this:

Public Const SND_ASYNC = &H1

PlaySound vbNullString, 0, SND_ASYNC

Doesn't end.

error message:
Wrong number of arugements or invaild property assigments

---

Stop The Flicker
Hi,

How can I stop the visual appearance of a macro running - I know there's a simple bit of code to stop this but for the life of me I can't find it in my notes!

TKS

Lou

---

Stop A Procedure
I´m printing some recipts after a procedure which applies some payments but i need a buttom to stop the printing and then continue the printing in the las number it printed I´ve tired exit, stop and cancel but it doesn´t work. Help me please

---

How Do I Stop A Timer?
how do i stop a timer after it has went through all 8 images??? so it only plays once.

the code i have is this

static frame as interger
frame(frame+1) mod 8
image1.left=image1.left+0
image1.picture=image2(frame).picture

---

Stop Watch Help
hi
I have a stop watch but the thing is that i want to display a msgbox when the time hits zero "00:00:00" here is the vb code i hope some one can help me out



Dim Hours As Integer
Dim Minutes As Integer
Dim Seconds As Integer
Dim Time As Date
Private Sub Mydisplay()
'This code is common to all three text boxes so I
'put it in it's own sub.

'Extract the numbers from the text boxes by using
'the Val() statement.
Hours = Val(Text1.Text)
Minutes = Val(Text2.Text)
Seconds = Val(Text3.Text)
'Convert variables to time format
Time = TimeSerial(Hours, Minutes, Seconds)
'Display the converted time variable in label 1
Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
End Sub

Private Sub Command1_Click()
'Start button - turn on timer and disable reset
'button
Timer1.Enabled = True
Command3.Enabled = False
End Sub

Private Sub Command2_Click()
'Pause button - temporarily stop timer and enable
'reset button. You can restart countdown by clicking
'the start button. Or reset the time by clicking
'the reset button.
Timer1.Enabled = False
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
'Reset button - reset all varibles and text boxes
'to nothting.
Hours = 0
Minutes = 0
Seconds = 0
Time = 0
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text1.SetFocus 'put curser in the hour text box
End Sub

Private Sub Command4_Click()
'Exit button - end program and clear varibles
End
End Sub

Private Sub Form_Load()
'Center form on screen.
Form1.Top = (Screen.Height - Form1.Height) / 2
Form1.Left = (Screen.Width - Form1.Width) / 2
'Set timer interval and varibles
Timer1.Interval = 1000
Hours = 0
Minutes = 0
Seconds = 0
Time = 0
End Sub



Private Sub Text1_Change()
'Call Mydisplay sub to display text box data
Mydisplay
End Sub

Private Sub Text2_Change()
'Call Mydisplay sub to display text box data
Mydisplay
End Sub

Private Sub Text3_Change()
'Call Mydisplay sub to display text box data
Mydisplay
End Sub

Private Sub Timer1_Timer()
'Count down loop
Timer1.Enabled = False
If (Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")) <> "00:00:00" Then 'Counter to continue loop until 0
Time = DateAdd("s", -1, Time)
Label1.Visible = False
Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
Label1.Visible = True
Timer1.Enabled = True
Else
'Turn off timer, set off alarm, and enable reset.
Timer1.Enabled = False
Beep
Beep
Command3.Enabled = True
End If
End Sub

---

Stop Loops?
Is there a command or a way to stop a For next loop before it get's to its specified amount to end on? Something like:
For i = 1 to Max
If something.thing = true then
stoploop
Next i

Maybe?

---

If, Then, Stop, Else, Loop
Ok, I'm having a problem with this, what I want to do is, If it is true, then I wanna do the following (changing the caption, visibility, and disable), but after doing that I want to end everything, so that means not looping anymore either, the problem is, after it does the "If, then, end if, it loops back to the For loop"



Code:
Private Sub cmdKeyboard_Click(Index As Integer)

Dim g As Integer
Dim f As Integer
Dim intNumber As Integer



For g = 1 To 7

If cmdKeyboard(Index).Caption = lblLetter(g) Then
lblLetter(g).Caption = cmdKeyboard(Index).Caption
lblLetter(g).Visible = True
cmdKeyboard(Index).Enabled = False
(I want to skip the else, next g, and go to end sub)
Else
cmdKeyboard(Index).Enabled = False
image1.Visible = True
End If
Next g

End Sub
Thanks, btw im a very inexperienced beginner programmer so, thx for helping!

---

Stop Events
any one now how can i free DoEvent Stack (clear empty ..stop )
i tray lackwindowsUpdate and me.visible=false its working but not 4 me



let say im runing a loop for 1 day lol

now i click on a button on the Form whan the loop is finsh
it's run

it's going to do the event mouse down ? that i did before

or any events that i did ? how can i stop it from doing Events ?

my project dont have any DoEvents()

thanks

---

Stop Wav Playing
I'm using the below API and code to play a wav sound but I want to be able to stop the wav as it goes for about 5 mins...

How can I stop a wav from playing?



Code:
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal _
lpszSoundName As String, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1

Private Sub Form_Load()
Dim MySound As Long

MySound = sndPlaySound("" & CDDrive & "SPA3Xmas 2004.wav", SND_ASYNC)
End Sub

---

Stop A Progress Bar
Hi All,

I have a spreadsheet that uses a progress bar to tell the user how the macro is going.

I wanted to add a button onto the Userform I am using so that the user could cancel/stop the macro ie. if they hit the button by mistake/changed their mind.

When the macro is running it won't let me click cancel button (I have tried userform1.commandbutton1.setfocus as I thought that might work).

Is it possible? And if so what do I need to do?

Thanks in advance!

---

Stop A Procedure
Hi there,

I have a little question about how can go out when I am a sub

for example I have:

Code:
Private Sub GoYanquis()
If txtYanquis.Text = "Win" Then
' Stay in the procedure
Else
' Go out
End IF
txtYanquis.text = "loose"
End Sub
What I want is when Yanquis another Value distinct to Win, I want to go out from the procedure GoYanquis, and don't run the statement txtYanquis.Text= "loose".

any suggestions I'll appreciated it

---

How To Stop That Sound??
i got an interface with several buttons: audio, video, and picture.
if i click the audio button, it plays on the interface itself. but when i click another button, let's say the video button, another screen will appear, and the sound is still playing.

how do i make the sound stop whenever i perform an event. for example, when the sound button is clicked, it'll play the sound and when i click any of the other buttons (video or picture button), the sound will stop.

---

Stop Music
Is there any other code that can stop the music? I seems to have problem with this one. the program said "varible not defined"....

retval& = sndPlaySound(vbNullString, 0)

---