Gustav Brock
Gustav at cactus.dk
Sat Dec 4 08:34:49 CST 2004
Hi A.D. I'm no API expert, but you can modify the code like this to maximize ..: <code> Public Function ShowImage( _ ByVal strFile As String, _ Optional ByVal booMaximized As Boolean) _ As Long ' strFile must be either a directory or a file; wildcards are not accepted. Const cstrCommand As String = "rundll32.exe shimgvw.dll, ImageView_Fullscreen" Dim lngResult As Long Dim intWindowStyle As Long If booMaximized = True Then intWindowStyle = vbMaximizedFocus Else intWindowStyle = vbNormalFocus End If lngResult = Shell(cstrCommand & " " & strFile & "", intWindowStyle) ShowImage = lngResult End Function </code> However, it only works one way. If you have opened a picture maximized, all subsequent calls of the function will open a maximized view. You have to manually restore the view before closing it. This behaviour is probably saved in the registry. You could reset that setting before calling the function. /gustav >>> adtp at touchtelindia.net 04-12-2004 05:14:57 >>> Hello Gustav, Thanks for the cross-check. Another question - could you possibly suggest any API call that could force the currently active display into full screen mode, irrespective of the parent application involved? This can be useful in view of the fact that the combination of key strokes required to do it in different applications, is not always the same. A.D.Tejpal --------------