home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tbsrc / file4.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-09  |  1.2 KB  |  36 lines
  1. Option Explicit
  2. Declare Function GetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal Param As Integer) As Integer
  3. Declare Function SetWindowWord Lib "User" (ByVal hWnd As Integer, ByVal Param As Integer, ByVal word As Integer) As Integer
  4.  
  5. Sub SetChild (ByVal ChildhWnd As Integer, ByVal ParenthWnd As Integer, Flag As Integer)
  6. Dim rc As Integer
  7. Static Cnt As Integer
  8. Static hWndList() As Integer
  9. Static ParentList() As Integer
  10.     If Flag Then
  11.         rc = GetWindowWord(ChildhWnd, -8)
  12.         If rc Then
  13.             If Cnt Then
  14.                 ReDim Preserve hWndList(Cnt)
  15.                 ReDim Preserve ParentList(Cnt)
  16.             Else
  17.                 ReDim hWndList(Cnt)
  18.                 ReDim ParentList(Cnt)
  19.             End If
  20.             hWndList(Cnt) = ChildhWnd
  21.             ParentList(Cnt) = rc
  22.             rc = SetWindowWord(ChildhWnd, -8, ParenthWnd)
  23.             Cnt = Cnt + 1
  24.         End If
  25.     Else
  26.         For rc = 0 To Cnt - 1
  27.             If hWndList(rc) = ChildhWnd Then
  28.                 hWndList(rc) = 0
  29.                 rc = SetWindowWord(ChildhWnd, -8, ParentList(rc))
  30.                 Exit For
  31.             End If
  32.         Next rc
  33.     End If
  34. End Sub
  35.  
  36.