home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / vbpg32 / samples4 / ch14 / shelled1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-16  |  1.6 KB  |  52 lines
  1. VERSION 4.00
  2. Begin VB.Form frmShelled 
  3.    Caption         =   "Generic Shelled App"
  4.    ClientHeight    =   2100
  5.    ClientLeft      =   4890
  6.    ClientTop       =   1605
  7.    ClientWidth     =   3615
  8.    Height          =   2505
  9.    Left            =   4830
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2100
  12.    ScaleWidth      =   3615
  13.    Top             =   1260
  14.    Width           =   3735
  15.    Begin VB.Label lblWindow 
  16.       Caption         =   "Window Handle:"
  17.       Height          =   255
  18.       Left            =   120
  19.       TabIndex        =   2
  20.       Top             =   900
  21.       Width           =   3135
  22.    End
  23.    Begin VB.Label lblProcessId 
  24.       Caption         =   "Process Id:"
  25.       Height          =   255
  26.       Left            =   120
  27.       TabIndex        =   1
  28.       Top             =   540
  29.       Width           =   3135
  30.    End
  31.    Begin VB.Label lblThreadId 
  32.       Caption         =   "Thread Id:"
  33.       Height          =   255
  34.       Left            =   120
  35.       TabIndex        =   0
  36.       Top             =   180
  37.       Width           =   3135
  38.    End
  39. Attribute VB_Name = "frmShelled"
  40. Attribute VB_Creatable = False
  41. Attribute VB_Exposed = False
  42. Option Explicit
  43. ' Copyright 
  44.  1997 by Desaware Inc. All Rights Reserved
  45. Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
  46. Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
  47. Private Sub Form_Load()
  48.     lblThreadId.Caption = lblThreadId.Caption & "  " & GetCurrentThreadId()
  49.     lblProcessId.Caption = lblProcessId.Caption & "  " & GetCurrentProcessId()
  50.     lblWindow.Caption = lblWindow.Caption & "  " & hWnd
  51. End Sub
  52.