Quote:
Originally Posted by klaus
Ja den kann man ausschalten:
Code:
<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
