auto ok for msgbox

[Ace Master]

Hi.

 

I have a loop code for waiting a condition to be true. In that loop I have a msgbox.

 

For every msgbox, I need to have automatically �press ok� because after true condition is valid to exit the loop without user to press ok.

 

This is the code

 

         oCP.Write(Encoding.ASCII.GetBytes("D" & Chr(13)))

           Do Until verifica_mesaj()
               MsgBox("Loading in progress...", MsgBoxStyle.Information)
           Loop

           oCP.Write(Encoding.ASCII.GetBytes("F" & Chr(13)))

 

 

thanks

 

ps. later edit

 

I can have something like this :

 

do nothing until condition true

code

loop

Edited February 23, 2004 by Ace Master

[DR00ME]

DialogResult.Ok to somewhere I guess...

[Ace Master]

isn't working...

 

this code work only in a "if ... then" statment..

 

I think....

[TechnoTone]

I don't think you can do that. When you display a message box your code will wait until that message box is closed by the user.

 

For you requirements you will have to write your own form to display the message that you can then close yourself when the loop has finished.

[DR00ME]

you program the mouse cursor to move on the button and auto click it lol joking...

[Iceplug]

You can create your own form to do this. You can add a timer to your form, and make it look like a MsgBox... and then you can have the timer close the form. :)

[Ace Master]

I see....

 

But why in my loop only the msgbox is working? What if I want nothing to happen in my loop ? like below..

 

 

Do Until verifica_mesaj()

 

Loop

 

 

or what code to write to wait until the condition is true and then to go further with code..

[Iceplug]

Hmm... usually if you want a tight loop like that, you will want to add Application.DoEvents into it so that other things can occur. :)

[Ace Master]

iceplug > what do you mean by that ?

[bri189a]

Application.DoEvents() allows other things to happen while your in a loop basically.

 

Do Until verifica_mesaj=true

 

Loop

 

would result in your program being in an infinite loop without the Application.DoEvents() being in it. The Application.DoEvents() will allow other messages (events) to process in the mean-time you could say, where without it, no other messages (events) can be processed until control is released from the loop, and without any code to do that... infinite loop.

[Ace Master]

thanks for the answer, but...

 

this code

 

Do Until verifica_mesaj() = True

Application.DoEvents()

Loop

 

 

...has no effect . Is like I don't have it.

[Iceplug]

What do you mean? Are you saying that it doesn't stay inside of the loop?

What does verifica_mesaj() do?

[Ace Master]

Yes. The loop is not working.

 

this is the code now

 

 oCP.Write(Encoding.ASCII.GetBytes("D" & Chr(13)))


           Do Until verifica_mesaj() = True
               Application.DoEvents()
                ' msgbox("please wait...")
           Loop


           oCP.Write(Encoding.ASCII.GetBytes("F" & Chr(13)))

 

"verifica_mesaj" check if my receiving RS232 string has the last char = ">"

 

       If output.EndsWith(">") Then
           Return True
       Else
           Return False
       End If

 

 

The weird stuff here is that if I use the msgbox the loop is working and the msgbox stays until the verifica_mesaj = true. After that if you press the ok from the msgbox the next command is send to the serial.

 

Maybe you need to know more about my code.

 

I have other function, which receive char by char from the serial. In this function, I call verifica_mesaj until the last char is out from the serial , because I need to know what output has. If output has the last char ">" is ok and the trimite_mesaj is true and then exit loop and send the other command to the serial.

[bri189a]

On each round of your loop you calling a procedure. Loops are usually done using a test...not a procedure, plus if the procedure doesn't return anything it will be, as you said, as if nothing was there.

 

From what it looks like what you are trying to do your just trying to display a message to the user to wait while the program does something in which case you don't want to be using a loop, you just want a custom form, as they said above, that will close itself when it is done doing the procedure... that's really simple to do... make your form all pretty and how you like it... make it a dialog box style and remove set the control box property to false along with any other items you don't want seen, such as show in task bar.

 

Then in your code:

 

'Tell user to wait while I do this

Dim myForm as New myCustomForm()

 

myForm.TopMost = True

myForm.Show()

Me.Enabled = False 'Keeps user from doing anything on this form

 

'Do my stuff

'

'

'

'

'End my stuff

 

Me.Enabled = true 'Allow user to use this form again

myForm.Close() 'Close the message

 

Forgive my lack of VB syntax, I work C#...

[Ace Master]

bri189a >> I don't know if that will going to work.

 

I need a loop to keep checking the verifica_mesaj if true or not, until the string is over from the serial

 

If I put the code you suggested, the first calling will not have verifica_mesaj true because is not waiting for later checking...and will not work.

 

I think..

 

 

Anyway ...if anybody has other code idea for this I will appreciate verry much .

 

do this : line code 1

 

wait until verifica_mesaj = true

 

do this : line code 2

[techmanbd]

Don't use a timer. Just have it check in your loop

 

oCP.Write(Encoding.ASCII.GetBytes("D" & Chr(13)))

 

Do Until verifica_mesaj() = True

sstrString = readinput here ' However you are reading your input

if sstrString = ">" then

verifica_mesaj() = true

end if

Application.DoEvents()

' msgbox("please wait...")

Loop

[Ace Master]

thanks to all for the help you give me.

 

After I make a small analisys of the answers I made this code which works fine.

 

oCP.Write(Encoding.ASCII.GetBytes("D" & Chr(13)))
           Dim stai As New wait


           Do Until verifica_mesaj() = True

               stai.TopMost = True
               stai.Show()

               If output.EndsWith("F") Then
                   Exit Do
               End If
               Application.DoEvents()
               'MsgBox("please wait...")
           Loop


           oCP.Write(Encoding.ASCII.GetBytes("F" & Chr(13)))

           stai.Close()

[PlausiblyDamp]

Would the following not work?

'No need to display the form every time through loop
Dim stai As New wait
stai.TopMost = True
stai.Show()

oCP.Write(Encoding.ASCII.GetBytes("D" & Chr(13)))

Do Until verifica_mesaj() = True
   If output.EndsWith("F") Then
       Exit Do
   End If
   Application.DoEvents()
Loop

oCP.Write(Encoding.ASCII.GetBytes("F" & Chr(13)))

stai.Close()

[Ace Master]

True..... don't need to show the form for each loop. :)

 

thanks.

[Eng]

This thread was excatly what I needed to do in my application. However, when I try typing it in, it gives me an error during my decalration of...

 

Dim stai AS New wait

 

It says the type 'wait' is not declared. Am I missing something? :confused:

[PlausiblyDamp]

wait is the name of a form in his application - you will need to create a form of your own and use it in place of wait.

[Ace Master]

wait is the name of a form in his application - you will need to create a form of your own and use it in place of wait.

 

Hi.

 

I used afte all a form which is shown in a do until code. After the condition is true..the form is closed....

[decrypt]

why not just do:

 

 

Private sub timer1_tick(blah)Handles timer1.tick
msgBox("Waiting")
Sendkeys.sendwait("{enter}")
End sub

 

if you want it to automatically press ok, i think that would work...

[PlausiblyDamp]

One you are using the old VB6 msgbox rather than the .Net MessageBox.show and 2 it wouldn't execute the SendKeys until the messagebox has been closed manually anyway.

[decrypt]

Then do sendkeys.send("{enter}")???

 

That won't wait...