home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / OPTIMIZE / GLOBAL.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-01-23  |  4.4 KB  |  157 lines
  1. Attribute VB_Name = "Global"
  2. Option Explicit
  3. Public Const VBVer = "5.0"
  4. Public Const LastAppUpdate = "9/4/96"
  5.  
  6. Public Const WM_SYSCOMMAND = &H112
  7. Public Const SC_RESTORE = &HF120
  8. Public Const SWP_NOMOVE = 2
  9. Public Const SWP_NOSIZE = 1
  10. Public Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
  11. Public Const HWND_TOPMOST = -1
  12. Public Const HWND_NOTOPMOST = -2
  13.  
  14. Public Const WM_SETREDRAW = &HB
  15.  
  16. ' ┤┤╜¿╟░╢╦┤░┐┌╡─ Windows API ╡≈╙├
  17. Declare Function SetWindowPos Lib "User32" (ByVal h&, ByVal hb&, ByVal x&, ByVal y&, ByVal cx&, ByVal cy&, ByVal f&) As Long
  18. Declare Function FindWindow Lib "User32" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
  19. Declare Function SendMessage Lib "User32" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  20.  
  21. Declare Function SetParent Lib "User32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  22.  
  23. Type BookAuthor
  24.     ID As Integer
  25.     Name As String * 25
  26. End Type
  27.  
  28. Dim arDemos(20) As String
  29.  
  30. Public Function SetRedraw(hWnd As Long, lState As Long) As Long
  31.   
  32.   Dim lRetVal As Long
  33.   
  34.   On Error GoTo SetRedraw_Error
  35.   ' Set iState = 0 ╜√╓╣╫╘╢»╕ⁿ╨┬
  36.   ' Set iState = 1 ╘╩╨φ╫╘╢»╕ⁿ╨┬
  37.   lRetVal = SendMessage(hWnd, WM_SETREDRAW, lState, 0)
  38.   If lRetVal <> False Then GoTo SetRedraw_Error
  39.   
  40.   SetRedraw = True
  41.   Exit Function
  42.   
  43. SetRedraw_Error:
  44.   SetRedraw = lRetVal
  45.   Exit Function
  46.   
  47. End Function
  48.  
  49. Public Function SetTopWindow(hWnd As Long, bState As Boolean) As Boolean
  50.       
  51.   If bState = True Then '┤░╠σ╓├╙┌╟░╢╦
  52.     SetTopWindow = SetWindowPos(hWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  53.   ElseIf bState = False Then ' ╣╪▒╒ TopMost ▒Ω╓╛
  54.     SetTopWindow = SetWindowPos(hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
  55.   Else
  56.     Debug.Print "bState ╬┤╓¬íú"
  57.     SetTopWindow = False
  58.   End If
  59.   
  60. End Function
  61.  
  62. ' ╜½┤½╡▌╡─┤░╠σ╢╘╧≤╓├╙┌╓╨╨─
  63. Sub CenterMe(frmForm As Form)
  64.   frmForm.Left = (Screen.Width - frmForm.Width) / 2
  65.   frmForm.Top = (Screen.Height - frmForm.Height) / 2
  66. End Sub
  67.  
  68. Sub Main()
  69.   Dim iCount As Integer
  70.   Dim iLimit As Integer
  71.   Dim tvwSample As TreeView
  72.   Dim nodRoot As Node
  73.   Dim nodX As Node
  74.   Dim sLastParent As String
  75.   Dim ilImages As ListImages
  76.   Dim iNextParentImage As Integer
  77.   
  78.   Set tvwSample = frmExplore.tvExample
  79.   Set ilImages = frmExplore.ilExplore.ListImages
  80.   
  81.   frmExplore.Show
  82.   
  83.   ' ╧╘╩╛╦┘╢╚└α▒≡
  84.   arDemos(0) = "╦π╖¿"
  85.   arDemos(1) = "╧╘╩╛╦┘╢╚"
  86.   arDemos(2) = "╗µ╓╞═╝╞¼"
  87.   arDemos(3) = "╧╘╩╛╦┘╢╚"
  88.   arDemos(4) = "═╝╨╬"
  89.   arDemos(5) = "╧╘╩╛╦┘╢╚"
  90.   
  91.   ' ╒µ╩╡╦┘╢╚└α▒≡
  92.   arDemos(6) = "╫╓╖√┤«┤ª└φ"
  93.   arDemos(7) = "╒µ╩╡╦┘╢╚"
  94.   arDemos(8) = "┤·┬δ╙┼╗»"
  95.   arDemos(9) = "╒µ╩╡╦┘╢╚"
  96.   arDemos(10) = "╩²╓╡└α╨═"
  97.   arDemos(11) = "╒µ╩╡╦┘╢╚"
  98.   
  99.   ' ╫╩╘┤╙├╖¿└α▒≡
  100.   arDemos(12) = "Picture ╢╘ Image"
  101.   arDemos(13) = "╫╩╘┤╙├╖¿"
  102.   arDemos(14) = "│╖╧√┤░╠σ╢╘╧≤"
  103.   arDemos(15) = "╫╩╘┤╙├╖¿"
  104.   
  105.   ' ╩╙╛⌡╦┘╢╚└α▒≡
  106.   arDemos(16) = "╔┴╧╓╞┴─╗"
  107.   arDemos(17) = "╩╙╛⌡╦┘╢╚"
  108.     
  109.   ' ╝»║╧└α▒≡
  110.   arDemos(18) = "╝»║╧"
  111.   arDemos(19) = "╝»║╧"
  112.   
  113.   Set nodRoot = tvwSample.Nodes.Add(, , "Root", "╙┼╗»╩╛└²")
  114.   nodRoot.Image = 1
  115.   iNextParentImage = 2
  116.   '╜¿┴ó╡┌╥╗╕÷ Demo └α╨═
  117.   '┤╙ Root ┤┤╜¿╥╗╕÷ Demo └α╨═ú¼▓ó╩╣╞Σ│╔╬¬ Root ╡─╫╙╜┌╡πíú
  118.   iCount = 0
  119.   sLastParent = arDemos(iCount + 1)
  120.   Set nodX = tvwSample.Nodes.Add("Root", tvwChild, sLastParent, arDemos(iCount + 1))
  121.   nodX.Image = iNextParentImage  '╧╘╩╛╦┘╢╚
  122.   iNextParentImage = iNextParentImage + 1
  123.   '╩╣╕├╜┌╡π│╔╬¬╔╧╥╗╕÷ Demo └α╨═╡─╫╙╜┌╡π
  124.   Set nodX = tvwSample.Nodes.Add(sLastParent, tvwChild, , arDemos(iCount))
  125.   nodX.Image = 7
  126.   iLimit = UBound(arDemos)
  127.   For iCount = 2 To iLimit - 1 Step 2
  128.     If arDemos(iCount + 1) <> arDemos(iCount - 1) Then
  129.       nodX.EnsureVisible  ' ╚╖▒ú╫ε║≤╫Θ╓╨╡─╦∙╙╨╫╙┤░╠σ┐╔╝√
  130.       '┤╙ Root ┤┤╜¿╥╗╕÷ Demo └α╨═ú¼▓ó╩╣╞Σ│╔╬¬ Root ╡─╫╙╜┌╡πíú
  131.       sLastParent = arDemos(iCount + 1)
  132.       Set nodX = tvwSample.Nodes.Add("Root", tvwChild, sLastParent, arDemos(iCount + 1))
  133.       nodX.Image = iNextParentImage
  134.       iNextParentImage = iNextParentImage + 1
  135.     End If
  136.     '╩╣╕├╜┌╡π│╔╬¬╔╧╥╗╕÷ Demo └α╨═╡─╫╙╜┌╡π
  137.     Set nodX = tvwSample.Nodes.Add(sLastParent, tvwChild, , arDemos(iCount))
  138.     nodX.Image = 7
  139.   Next iCount
  140.     
  141.   nodX.EnsureVisible
  142.   
  143.   ' │╖╧√╦∙╙╨╥╤╛¡┤┤╜¿╡─╢╘╧≤
  144.   Set nodX = Nothing
  145.   Set nodRoot = Nothing
  146.   Set ilImages = Nothing
  147.   Set tvwSample = Nothing
  148.  
  149. End Sub
  150.  
  151. Sub PosForm(frmForm As Form)
  152.   frmForm.Left = frmExplore.Left + frmExplore.Width
  153.   frmForm.Top = frmExplore.Top
  154. End Sub
  155.  
  156.  
  157.