Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder einen alternativen Browser verwenden.
der befehle msgbox wird von protool nicht unterstützt.
probiers mal so
Code:
Dim ausgabe,abfrage
Set ausgabe = CreateObject("WScript.Shell")
abfrage=ausgabe.Popup ("Sind sie sicher?",,"Bit setzen",4)
If abfrage=6 Then
abfrage=ausgabe.Popup ("Call PtFct.Bit_setzen(PtVar.var)",,"Bit setzen",0)
End If
If abfrage=7 Then
abfrage=ausgabe.Popup ("Call PtFct.Bit_setzen(PtVar.var)",,"Bit rücksetzen",0)
End If
habe festgestellt, daß die Vorgehensweise nur beim PC-Runtime funktioniert!
Sollte aber auf einem TP270 mit WinCE laufen, welches leider die
"WScript.Shell" nicht beinhaltet!