 Der_schorsch
		
			Der_schorsch
		
		
		
		
		
		
		
		
	
			03-13-2008 04:32 AM
 Twigeater
		
			Twigeater
		
		
		
		
		
		
		
		
	
			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
 Twigeater
		
			Twigeater
		
		
		
		
		
		
		
		
	
			03-13-2008 08:53 AM
| Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? | 
03-13-2008 08:56 AM
 Twigeater
		
			Twigeater
		
		
		
		
		
		
		
		
	
			03-13-2008 09:00 AM
| Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? | 
03-13-2008 09:39 AM
 Twigeater
		
			Twigeater
		
		
		
		
		
		
		
		
	
			03-13-2008 10:12 AM
| Matthias Alleweldt Project Engineer / Projektingenieur | Twigeater? | 
 ChaosYeti
		
			ChaosYeti
		
		
		
		
		
		
		
		
	
			03-13-2008 12:32 PM
 ThomAC
		
			ThomAC
		
		
		
		
		
		
		
		
	
			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