home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / system / callback / subclass.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-27  |  4.1 KB  |  138 lines
  1. VERSION 2.00
  2. Begin Form frmSubclassWnd 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "SubclassWnd"
  5.    ClientHeight    =   3348
  6.    ClientLeft      =   3780
  7.    ClientTop       =   1992
  8.    ClientWidth     =   5160
  9.    Height          =   4092
  10.    Left            =   3732
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3348
  13.    ScaleWidth      =   5160
  14.    Top             =   1296
  15.    Width           =   5256
  16.    Begin PictureBox picPicture 
  17.       Align           =   2  'Align Bottom
  18.       BackColor       =   &H00C0C0C0&
  19.       BorderStyle     =   0  'None
  20.       Height          =   450
  21.       Left            =   0
  22.       ScaleHeight     =   456
  23.       ScaleWidth      =   5160
  24.       TabIndex        =   0
  25.       Top             =   2892
  26.       Width           =   5160
  27.       Begin SSPanel pnlStatusText 
  28.          BevelOuter      =   1  'Inset
  29.          FontBold        =   0   'False
  30.          FontItalic      =   0   'False
  31.          FontName        =   "MS Sans Serif"
  32.          FontSize        =   9.6
  33.          FontStrikethru  =   0   'False
  34.          FontUnderline   =   0   'False
  35.          Height          =   345
  36.          Left            =   30
  37.          TabIndex        =   1
  38.          Top             =   90
  39.          Width           =   5100
  40.       End
  41.       Begin Line linWhite 
  42.          BorderColor     =   &H00FFFFFF&
  43.          X1              =   0
  44.          X2              =   60000
  45.          Y1              =   30
  46.          Y2              =   30
  47.       End
  48.       Begin Line linBlack 
  49.          X1              =   0
  50.          X2              =   60000
  51.          Y1              =   15
  52.          Y2              =   15
  53.       End
  54.    End
  55.    Begin CBVBX CBVBX1 
  56.       CBType          =   16  ' 16 - WndProc
  57.       Left            =   0
  58.       Top             =   0
  59.    End
  60.    Begin Label lblLabel 
  61.       BackStyle       =   0  'Transparent
  62.       Caption         =   "In diesem Formular wird ein CBVBX-Control eingesetzt um WM_MENUSELECT-Nachrichten abzufangen, Diese werden verwendet, um die Statuszeile mit Statustexten des ausgew
  63. hlten Men
  64. s zu beschreiben."
  65.       FontBold        =   0   'False
  66.       FontItalic      =   0   'False
  67.       FontName        =   "MS Sans Serif"
  68.       FontSize        =   9.6
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       Height          =   1275
  72.       Left            =   525
  73.       TabIndex        =   2
  74.       Top             =   540
  75.       Width           =   4320
  76.    End
  77.    Begin Menu mnuDatei 
  78.       Caption         =   "Datei"
  79.       Begin Menu mnuDaNeu 
  80.          Caption         =   "&Neu"
  81.       End
  82.       Begin Menu mnuDa
  83. ffnen 
  84.          Caption         =   "&
  85. ffnen"
  86.       End
  87.       Begin Menu mnuDaSpeichern 
  88.          Caption         =   "&Speichern"
  89.       End
  90.       Begin Menu mnuDaSpeichernUnter 
  91.          Caption         =   "Speichern &unter..."
  92.       End
  93.    End
  94. Option Explicit
  95. Sub CBVBX1_WndProc (hWnd As Integer, wmsg As Integer, wparam As Integer, lparam As Long, retval As Long)
  96.   'Nimmt Fensternachrichten entgegen.
  97.   If wmsg = WM_MENUSELECT Then
  98.     Select Case wparam            'Men
  99. s werden durchnummeriert
  100.       Case 2:
  101.         pnlStatusText = "Neue Datei anlegen"
  102.       Case 3:
  103.         pnlStatusText = "Bestehende Datei 
  104. ffnen"
  105.       Case 4:
  106.         pnlStatusText = "Datei speichern"
  107.       Case 5:
  108.         pnlStatusText = "Datei unter anderem Namen speichern"
  109.       Case Else
  110.         pnlStatusText = ""
  111.       End Select
  112.   End If
  113. End Sub
  114. Sub Form_Load ()
  115.   'Initialisiert den Nachrichtenfilter des CBVBX-Controls
  116.   cbvbx1.ExtMsgProcess(0) = MAKELONG(WM_MENUSELECT, MSG_PREPROCESS)
  117.   'Reagiere nur auf das WM_MENUSELECT-Ereignis. Nachricht wird vor Aufruf
  118.   'der Ereignisprozedur vom Control bearbeitet (pre-processed)
  119.   cbvbx1.SubclassWnd = Me.hWnd
  120.   'Subclassing des Fensters durchf
  121. End Sub
  122. Sub mnuDaNeu_Click ()
  123.   MsgBox "Demo Men
  124. End Sub
  125. Sub mnuDa
  126. ffnen_Click ()
  127.   MsgBox "Demo Men
  128. End Sub
  129. Sub mnuDaSpeichern_Click ()
  130.   MsgBox "Demo Men
  131. End Sub
  132. Sub mnuDaSpeichernUnter_Click ()
  133.   MsgBox "Demo Men
  134. End Sub
  135. Sub picPicture_Resize ()
  136.   pnlStatusText.Width = picPicture.Width - 60
  137. End Sub
  138.