03-13-2008 04:32 AM
03-13-2008 08:40 AM
Option Explicit
' ...
Call InteractionOn
' User Interaction
If MsgBox("Daten OK?",vbQuestion + vbYesNo) = vbYes Then
MsgBox "Hurra! Daten sind IO!!!"
End If
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
03-13-2008 08:47 AM
03-13-2008 08:53 AM
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
03-13-2008 08:56 AM
03-13-2008 09:00 AM
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
03-13-2008 09:39 AM
03-13-2008 10:12 AM
Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? |
03-13-2008 12:32 PM
03-13-2008 05:35 PM
Hi Yeti,
vielleicht habe ich einen Workaround. Man kann DIAdem in einen Vollbildmodus versetzen, bei dem die Modulleiste, die Menüs und die Befehlsleiste mit den Icons verschwindet.
Hier die entsprechenden Scriptbefehle (interaktiv geht es mit dem Shortcut "Strg+U"):
Call WndShow("VIEW","FullSize") 'Switch DIAdem to fullsize display
Call InteractionOn
Call WndShow("VIEW","Maximize") ''Switch DIAdem back to maximized window size
Danach kannst Du Deinen Dialog aufrufen.
Der Haken an dieser Lösung ist, dass die Endanwender wissen müssen, dass sie den Interaktionsmodus über das Kontextmenü (rechte Maustaste) ausschalten müssen, damit das Script weiterläuft. Und natürlich kann ein findiger Anwender mit dem Shortcut "Strg+U" den Vollbildmodus auch wieder deaktivieren, während das InteraktionOn aktiv ist.
Aber vielleicht ist es ja trotzdem ein gangbarer Weg, so lange es noch keine andere Möglichkeit gibt.
ThomAC