Programming Tool Box/SIMS_2.iso/demo/mnuvbx/mnudemo.frm

Text File | 1994-01-04 | 11KB | 383 lines

VERSION 2.00
Begin Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Demo zum Menⁿ - Control"
   ClientHeight    =   3240
   ClientLeft      =   1848
   ClientTop       =   2208
   ClientWidth     =   6324
   Height          =   3936
   Icon            =   MNUDEMO.FRX:0000
   Left            =   1824
   LinkTopic       =   "Form1"
   ScaleHeight     =   3240
   ScaleWidth      =   6324
   Top             =   1536
   Width           =   6372
   Begin SSPanel paStatus
      Align           =   2  'Align Bottom
      Alignment       =   1  'Left Justify - MIDDLE
      BackColor       =   &H00C0C0C0&
      BevelOuter      =   1  'Inset
      BevelWidth      =   2
      Caption         =   "paStatus"
      FloodShowPct    =   0   'False
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   7.8
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00000000&
      Height          =   336
      Left            =   0
      TabIndex        =   14
      Top             =   2904
      Width           =   6324
   End
   Begin MNUWATCH MNUWATCH1
      Left            =   1056
      Top             =   144
   End
   Begin SSFrame Frame3D1
      Caption         =   " Menⁿ Informationen"
      ForeColor       =   &H00800000&
      Height          =   2220
      Left            =   3360
      TabIndex        =   15
      Top             =   144
      Width           =   2700
      Begin Label txtStatus
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Menⁿstatus"
         Height          =   192
         Left            =   1452
         TabIndex        =   0
         Top             =   336
         Width           =   1668
      End
      Begin Label Label1
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Menⁿstatus"
         Height          =   192
         Left            =   192
         TabIndex        =   1
         Top             =   336
         Width           =   948
      End
      Begin Label Label2
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "MenⁿID"
         Height          =   192
         Left            =   192
         TabIndex        =   2
         Top             =   576
         Width           =   636
      End
      Begin Label txtMenID
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "MenID"
         Height          =   204
         Left            =   1452
         TabIndex        =   3
         Top             =   576
         Width           =   540
      End
      Begin Label Label3
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Selektiert"
         Height          =   192
         Left            =   192
         TabIndex        =   4
         Top             =   816
         Width           =   804
      End
      Begin Label txtSelMode
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Maus"
         Height          =   192
         Left            =   1452
         TabIndex        =   5
         Top             =   816
         Width           =   456
      End
      Begin Label Label4
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Menⁿ Type"
         Height          =   192
         Left            =   192
         TabIndex        =   6
         Top             =   1056
         Width           =   936
      End
      Begin Label txtMenMode
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Selektiert"
         Height          =   192
         Left            =   1452
         TabIndex        =   7
         Top             =   1056
         Width           =   804
      End
      Begin Label txtCheckMode
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Checked"
         Height          =   192
         Left            =   1452
         TabIndex        =   8
         Top             =   1296
         Width           =   744
      End
      Begin Label Label5
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Checked"
         Height          =   192
         Left            =   192
         TabIndex        =   9
         Top             =   1296
         Width           =   744
      End
      Begin Label Label6
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Enabled"
         Height          =   192
         Left            =   192
         TabIndex        =   10
         Top             =   1536
         Width           =   708
      End
      Begin Label txtEnabledMode
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Enabled"
         Height          =   192
         Left            =   1440
         TabIndex        =   11
         Top             =   1536
         Width           =   708
      End
      Begin Label Label7
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "System Menⁿ"
         Height          =   192
         Left            =   192
         TabIndex        =   12
         Top             =   1776
         Width           =   1116
      End
      Begin Label txtSysMenu
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "SysMenⁿ"
         Height          =   192
         Left            =   1452
         TabIndex        =   13
         Top             =   1776
         Width           =   768
      End
   End
   Begin Menu mnFile
      Caption         =   "&File"
      Index           =   1
      Begin Menu mnOpen
         Caption         =   "&Open"
      End
      Begin Menu mnExit
         Caption         =   "&Exit"
      End
      Begin Menu mnCheck
         Caption         =   "Check"
         Checked         =   -1  'True
      End
   End
   Begin Menu mnEdit
      Caption         =   "&Edit"
      Begin Menu mnCopy
         Caption         =   "&Copy"
      End
   End
   Begin Menu mnHelp
      Caption         =   "&Help"
      Begin Menu mnAbout
         Caption         =   "&About"
      End
      Begin Menu mnsep
         Caption         =   "-"
      End
      Begin Menu mnHelpHelp
         Caption         =   "Hilfe"
      End
   End
End
Option Explicit

' Menⁿkonstanten
Const MF_MOUSESELECT = &H8000
Const MF_POPUP = &H10
Const MF_CHECKED = &H8
Const MF_ENABLED = &H0
Const MF_DISABLED = &H2
Const MF_SYSMENU = &H2000
Const MF_SEPARATOR = &H800

' System Komandos (Systemmenⁿ ID┤s)
Const SC_CLOSE = &HF060
Const SC_MAXIMIZE = &HF030
Const SC_MINIMIZE = &HF020
Const SC_MOVE = &HF010
Const SC_RESTORE = &HF120
Const SC_TASKLIST = &HF130
Const SC_SIZE = &HF000

Const MaxMenItem = 10 ' Anzahl der MenⁿeintrΣge

Dim MenHelp(1 To MaxMenItem) As String ' Feld fⁿr die Hilfetexte

'
' Menⁿpunkt nicht implementiert !
'
Sub FNI ()
  MsgBox "Dies ist nur eine Demo zum MEN▄- VBX", 64, "Nicht Implementiert !"
End Sub

Sub Form_Load ()
  ' init der Menⁿstatusanzeige
  txtStatus = "geschlossen"
  txtSelMode = ""
  txtMenID = ""
  txtMenMode = ""
  txtCheckMode = ""
  txtEnabledMode = ""
  txtSysMenu = ""
  ' Init des Hilfetextfeldes
  MenHelp(1) = "Datei Menu"
  MenHelp(2) = "Datei ÷ffnen"
  MenHelp(3) = "Programm beenden"
  MenHelp(4) = "Dies ist nur ein Testeintrag"
  MenHelp(5) = "Edit Menu"
  MenHelp(6) = "markierten Bereich kopieren"
  MenHelp(7) = "Hilfe Menu"
  MenHelp(8) = "Informationen ⁿber MNUDEMO"
  MenHelp(9) = "Separator"
  MenHelp(10) = "Hilfe zu MNUDEMO"
  paStatus = " OPTARGET Gmbh, 59065 Hamm"
End Sub

'
' Anzeigen des Menⁿhilfetextes in der Statuszeile
'
Sub MenStatus (ID As Integer)
  If ID = 0 Then
    paStatus = " Separator"
  Else
    paStatus = " " & MenHelp(ID)
  End If
End Sub

'
' About Dialog anzeigen
'
Sub mnAbout_Click ()
    frmAbout.Show 1
End Sub

Sub mnCheck_Click ()
    Call FNI
End Sub

Sub mnCopy_Click ()
  Call FNI
End Sub

Sub mnExit_Click ()
  End
End Sub

Sub mnHelpHelp_Click ()
  Call FNI
End Sub

Sub mnOpen_Click ()
  Call FNI
End Sub

'
' Wird aufgerufen, wenn ein Menⁿ geschlossen wird.
'
Sub MNUWATCH1_Close ()
  txtStatus = "geschlossen"   ' Status
  txtSelMode = ""
  txtMenID = ""
  txtMenMode = ""
  txtCheckMode = ""
  txtEnabledMode = ""
  txtSysMenu = ""
  paStatus.ForeColor = QBColor(0)  ' Statuszeilentext in schwarz.
  paStatus = " OPTARGET Gmbh, 59065 Hamm"
End Sub

'
' Wird aufgerufen, wenn ein Menⁿ aktiviert wird.
'
Sub MNUWATCH1_Open ()
    txtStatus = "ge÷ffnet"          ' Status anzeigen
    paStatus.ForeColor = QBColor(4) ' Hilfetexte in rot.
End Sub

'
' Wird aufgerufen, wenn ein Menⁿeintrag selektiert wird.
'   Update der einzelnen Menⁿstatusanzeigen.
'
Sub MNUWATCH1_Select (MNUID As Integer, Flags As Integer)
    txtMenID = IIf(((Flags And MF_SEPARATOR)), "Separator", Str$(MNUID))
    txtSelMode = IIf(((Flags And MF_MOUSESELECT)), "Maus", "Tastatur")
    txtMenMode = IIf(((Flags And MF_POPUP)), "PopUp Menu", "Menu")
    txtCheckMode = IIf(((Flags And MF_CHECKED)), "Ja", "Nein")
    txtEnabledMode = IIf(((Flags And MF_DISABLED)), "Nein", "Ja")
    txtSysMenu = IIf(((Flags And MF_SYSMENU)), "Ja", "Nein")
    If txtSysMenu = "Ja" Then
      Call SystemMenStatus(MNUID) ' Hilfetext zum Systemmenⁿ anzeigen
    Else
      Call MenStatus(MNUID)       ' Hilfetext zum angewΣhltwn Menⁿpunkt anzeigen.
    End If
End Sub

'
' Anzeigen der Hilfetexte zum Systemmenⁿ
'
Sub SystemMenStatus (ID As Integer)
  Select Case ID
     Case SC_CLOSE
       paStatus = " Programm beenden"
     Case SC_MAXIMIZE
       paStatus = " Fenster maximieren"
     Case SC_MINIMIZE
       paStatus = " Fenster als Icon darstellen"
     Case SC_MOVE
       paStatus = " Fenster verschieben"
     Case SC_RESTORE
       paStatus = " Fenster wiederherstellen"
     Case SC_TASKLIST
       paStatus = " Taskliste anzeigen"
     Case SC_SIZE
       paStatus = " Fenstergr÷▀e Σndern"
     Case 0
       paStatus = " Separator"
     Case Else
       paStatus = " System Menⁿ"
  End Select
End Sub