home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / system / callback / enumprop.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-27  |  3.8 KB  |  115 lines
  1. VERSION 2.00
  2. Begin Form frmEnumProps 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "EnumProps"
  5.    ClientHeight    =   4275
  6.    ClientLeft      =   2430
  7.    ClientTop       =   990
  8.    ClientWidth     =   4755
  9.    Height          =   4680
  10.    Left            =   2370
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4275
  13.    ScaleWidth      =   4755
  14.    Top             =   645
  15.    Width           =   4875
  16.    Begin CommandButton cmdBack 
  17.       BackColor       =   &H00C0C0C0&
  18.       Caption         =   "Zur
  19.       Height          =   315
  20.       Left            =   3420
  21.       TabIndex        =   0
  22.       Top             =   3900
  23.       Width           =   1275
  24.    End
  25.    Begin Frame fraComment 
  26.       BackColor       =   &H00C0C0C0&
  27.       Height          =   1875
  28.       Left            =   60
  29.       TabIndex        =   4
  30.       Top             =   1920
  31.       Width           =   4635
  32.       Begin Label lblCommentText 
  33.          BackColor       =   &H00C0C0C0&
  34.          BackStyle       =   0  'Transparent
  35.          Caption         =   "In der Listbox werden alle Properties eines Fensters angezeigt. Diese Properties sind jedoch nicht mit den Eigenschaften eines VB-Controls oder VB-Forms zu verwechseln, sondern werden durch die API-Funktion SetProp() an ein Fenster gehangen."
  36.          FontBold        =   0   'False
  37.          FontItalic      =   0   'False
  38.          FontName        =   "MS Sans Serif"
  39.          FontSize        =   9.75
  40.          FontStrikethru  =   0   'False
  41.          FontUnderline   =   0   'False
  42.          Height          =   1515
  43.          Left            =   60
  44.          TabIndex        =   6
  45.          Top             =   300
  46.          Width           =   4515
  47.       End
  48.       Begin Label lblComment 
  49.          Alignment       =   2  'Center
  50.          BackColor       =   &H00404040&
  51.          Caption         =   "Kommentar:"
  52.          ForeColor       =   &H00FFFFFF&
  53.          Height          =   255
  54.          Left            =   0
  55.          TabIndex        =   5
  56.          Top             =   60
  57.          Width           =   4635
  58.       End
  59.    End
  60.    Begin Frame fraEnumProps 
  61.       BackColor       =   &H00C0C0C0&
  62.       Height          =   1815
  63.       Left            =   60
  64.       TabIndex        =   1
  65.       Top             =   60
  66.       Width           =   4635
  67.       Begin ListBox lstEnumProps 
  68.          Height          =   1395
  69.          Left            =   60
  70.          TabIndex        =   2
  71.          Top             =   360
  72.          Width           =   4515
  73.       End
  74.       Begin Label lblEnumProps 
  75.          Alignment       =   2  'Center
  76.          BackColor       =   &H00404040&
  77.          Caption         =   "Property Liste:"
  78.          ForeColor       =   &H00FFFFFF&
  79.          Height          =   255
  80.          Left            =   0
  81.          TabIndex        =   3
  82.          Top             =   60
  83.          Width           =   4635
  84.       End
  85.    End
  86.    Begin CBVBX ctlEnumProps 
  87.       CBType          =   5  ' 5  - EnumPropsProc
  88.       Left            =   0
  89.       Top             =   0
  90.    End
  91. Option Explicit
  92. Sub bEnumProps_Click ()
  93. End Sub
  94. Sub cmdBack_Click ()
  95.   Unload Me
  96. End Sub
  97. Sub ctlEnumProps_EnumPropsProc (hWnd As Integer, sz As Long, hData As Integer, retval As Integer)
  98.     Dim s$, v%
  99.     Dim an As String * 20
  100.     'If GlobalGetAtomName(IntegerAtAdress(sz), ByVal an, 20) > 0 Then
  101.     '    s$ = "Atom" & " " & an
  102.     '    v% = GetProp(hWnd, ByVal sz) 'identisch zu hData
  103.     'Else
  104.         s$ = StringAtAdress(sz)
  105.         v% = GetProp(hWnd, ByVal sz) 'identisch zu hData
  106.     'End If
  107.     lstEnumProps.AddItem s$ & " [Value: " & CStr(v) & "]"
  108.     retval = True
  109. End Sub
  110. Sub Form_Load ()
  111.   Dim dummy
  112.   lstEnumProps.Clear
  113.   dummy = enumprops(ByVal CInt(frmEnumWindows.txtHwnd), ctlenumprops.CBAdress)
  114. End Sub
  115.