Help with GoTo statements and looping

[mitch27]

If I removed them, what would I use to indicate the stopping point for the loop?

[ThEiMp]

Well then you have to work from the original type of project that you had, previously posted. Cause now I ruined it, because I had saved over it by mistake. So sorry...

[mitch27]

It was a rhetorical response...

I need something in the code that indicates a stopping point. Otherwise, it's useless.

[ThEiMp]

DoEvents

I guess, try it in the something like an event that doesn't have a Timer in it???

[mitch27]

Could you go into further detail on DoEvents? I'm pretty new to VB.

Thank you.

[ThEiMp]

Well it's very hard to describe what to use it for, seeing that it can be used for many types of purposes. Like animation and also network support, like a login script, etc...

[techgnome]

don't fib and don't sugar coat it.... DoEvents is for one purpose and one purpose only... when you use DoEvents, you're telling the system "Hey, I'm not doing anything important at the moment, if you have any waiting message in the message queue, process them." That's what it does... It comes with a price... and more often not, a lot of unintended consequences. There is a reason why this thread made it up to two pages before the suggestions came up.

-tg

[ThEiMp]

And that is, sorry I have only been working by myself today. Everyone's out of the Office...

[mitch27]

don't fib and don't sugar coat it.... DoEvents is for one purpose and one purpose only... when you use DoEvents, you're telling the system "Hey, I'm not doing anything important at the moment, if you have any waiting message in the message queue, process them." That's what it does... It comes with a price... and more often not, a lot of unintended consequences. There is a reason why this thread made it up to two pages before the suggestions came up.

-tg

Part of the reason is I'm also very new to this. Am I correct to say things aren't looking good as far as a solution to my problem?

[techgnome]

my reply wasn't aimed at you... in was in direct response to theimp's suggestion of using doEvents... it's a slippery slope to start on... sometimes it becomes necessary, in which case, it can be used as long as you have a full and complete understanding of what it could do - specifically, releases the system to take action on other messages in the queue, which could include processing OTHER EVENTS in your app, that could cause you to end up someplace you're not prepared to be at yet.
That's all.

As for you issue specifically, I don't know. To be honest, I'm having trouble following the thread... so I'm leaving it in the (hopefully) capable hands of others who seem to have a better idea of what you're doing than I.

-tg

[ThEiMp]

Well I guess that we could be able to get a Super Moderator to help us, but then that's the OP's decision, then not min to do???

[mitch27]

I would like to try another route. Is there a way I could make the script stop when it reaches row 11 on the page?

[ThEiMp]

But then that would be altering a long of source code. Also what are you going to skip from the line xyz to line 11???

[mitch27]

But then that would be altering a long of source code. Also what are you going to skip from the line xyz to line 11???

What source code? Can I not tell the script to check what line/row is it on, and if it's on line 11, have it stop? Instead of going through the .StatusBar hassle.

[ThEiMp]

Well then can't you use a GoTo I believe that you can use that in this type of instance or even a GoSub, either way???

[mitch27]

Well then can't you use a GoTo I believe that you can use that in this type of instance or even a GoSub, either way???

I don't mind using If Then. I just need the script to stop. Is there a command that will look at line 11 so I can create a stopping point??

[Doogle]

If I removed them, what would I use to indicate the stopping point for the loop?

My suggestion was something like this

Sub TestGoTo()

    On Error GoTo ErrorHandler

    Const NEVER_TIME_OUT = 0

    Dim ESC As String   ' Chr(rcESC) = Chr(27) = Control-[

    ESC = Chr(Reflection2.ControlCodes.rcESC)

    With Session

StartLoop:
    .TransmitTerminalKey rcVtUpKey
    If .StatusBar <> "" Then
        GoTo ExitLoop
    Else
        .TransmitTerminalKey rcVtSelectKey
        .TransmitTerminalKey rcVtRemoveKey
        .Transmit CR
        '.StatusBar = ""
        .Transmit "Y"
        '.StatusBar = ""
        .Transmit CR
    End If
    GoTo StartLoop

ExitLoop:
    Debug.Print .StatusBar    ' display the contents of StatusBar in the Immediate Window
    .Transmit CR
    .Transmit CR
    Exit Sub
ErrorHandler:
    Session.MsgBox Err.Description, vbExclamation + vbOKOnly
    
    End With
    
End Sub

[ThEiMp]

I guess that you could be able to make it loop over on Line 11, but then what is so special about line 11???

[mitch27]

My suggestion was something like this

Thank you for the response, I will try this in the morning and report back.

[ThEiMp]

So sorry, I keep making that kind of mistake!!

[mitch27]

Update:

I tried the script Doogle provided, it seems to ignore the commands that include .StatusBar and continue looping.

[ThEiMp]

Retro fit your source code that you had in the first place and then add in the looping source code to it. Then it will do both and then see what happens then???

[mitch27]

Retro fit your source code that you had in the first place and then add in the looping source code to it. Then it will do both and then see what happens then???

Can you explain in further detail what you're asking?

[ThEiMp]

Use the source code that you have about the looping and then add it to the source code that you had before hand that worked without it. Then you should be able to have a working demo product of your program. That worked for me on some occassions, but then I stongly suggest to backup both of the projects, at that...