AW: [AccessD] How to find out wether a form has been minimized

Thank you - just what I was looking for :-)

Michael
  -----Ursprüngliche Nachricht-----
  Von: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]Im Auftrag von Brett Barabash
  Gesendet: Dienstag, 24. Juni 2003 16:10
  An: 'accessd at databaseadvisors.com'
  Betreff: RE: [AccessD] How to find out wether a form has been minimized


  Michael,
  Include this code in your form's module:

  Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As
Long

  Private Sub Form_Resize()

      If IsIconic(Me.hwnd) <> 0 Then
          MsgBox "Minimized"
      Else
          MsgBox "Not minimized"
      End If

  End Sub


    -----Original Message-----
    From: Michael Brösdorf [mailto:michael.broesdorf at web.de]
    Sent: Tuesday, June 24, 2003 8:56 AM
    To: accessd at databaseadvisors.com
    Subject: [AccessD] How to find out wether a form has been minimized


    Dear group,

    is it possible to find out wether a form has been minimized in the
OnResize-Event of that form(something like Me.WindowState=acMinimized)?

    TIA,

    Michael


  --------------------------------------------------------------------------
------------------------------------------
  This email and any files transmitted with it are confidential and
  intended solely for the use of the individual or entity to whom
  they are addressed.
  If you have received this email in error please notify the
  originator of the message. This footer also confirms that this
  email message has been scanned for the presence of computer viruses.

  Any views expressed in this message are those of the individual
  sender, except where the sender specifies and with authority,
  states them to be the views of Tappe Construction Co.

  Scanning of this message and addition of this footer is performed
  by SurfControl E-mail Filter software in conjunction with
  virus detection software.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030624/6dda8305/attachment-0001.html>