OK Button

[GuenterL]

Hallo,
ich habe ein Handlingsproblem. Mein Program läuft prima auf dem PDA (iPAQ) aber es passiert mir immer öfter, das ich das Program aus Versehen ausschalte, weil ich mit dem Finger auf dem Touchscreen den "OK" bzw "X" Button getroffen habe.
Kann man den OK button ausschalten ????
guenterl

[wolfgang]

Hallo GuenterL,
CancelClose heißt das Zauberwort.

[klaus]

Ja den kann man ausschalten:

<font face="Courier New"><font size="2"><font color="#0000ff">
<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">Globals</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000">'Declare the global variables here.</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">Close=</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">0</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">
<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">App_Start</font></font>
<font size="2"><font face="Courier New">frmMain.Show</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">
<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">btnExit_Click</font></font>
<font size="2"><font face="Courier New">Close=</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">1</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">AppClose</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">End Sub</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">
<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">frmMain_Close</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> Close=</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">0 </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Then </font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">  frmMain.CancelClose</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

Beiliegend ein Beispiel.

Beste Grüsse.

[GuenterL]

Super, Danke Euch.
(Ich hoffe, die Fehlabschaltungen hören jetzt auf !!)

[Kintara]

Originally Posted by klaus

Ja den kann man ausschalten:

<font face="Courier New"><font size="2"><font color="#0000ff">
<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">Globals</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000"><font face="Courier New"><font size="2"><font color="#008000">'Declare the global variables here.</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">Close=</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">0</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">
<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">App_Start</font></font>
<font size="2"><font face="Courier New">frmMain.Show</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End Sub</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">
<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">btnExit_Click</font></font>
<font size="2"><font face="Courier New">Close=</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">1</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">AppClose</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">End Sub</font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff">
<font size="2"><font face="Courier New"><font color="#0000ff"><font size="2"><font face="Courier New"><font color="#0000ff">Sub </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">frmMain_Close</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2"> Close=</font></font></font></font><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080"><font face="Courier New"><font size="2"><font color="#800080">0 </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">Then </font></font></font>
</font></font></font></font></font></font><font face="Courier New"><font size="2"><font face="Courier New"><font size="2">  frmMain.CancelClose</font></font>
</font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">End </font></font></font></font></font></font></font></font></font><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff"><font face="Courier New"><font size="2"><font color="#0000ff">If</font></font></font>
<font size="2"><font face="Courier New"><font color="#0000ff">End Sub</font></font></font></font></font></font></font></font></font>

Beiliegend ein Beispiel.

Beste Grüsse.

I have been using something based on this and found the addition of the following to be useful:
This will reset the Close to 0 everytime the frmMain.Show command is used.

Sub frmMain_Show
Close=0
End Sub

And an alternative to shutting the App
This will allow the form to close if you are using more than one form

Sub btnExit_Click
Close=1
frmMain_Close
frmSecond.show
End Sub



Hope this helps

Kintara