home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / VBLayers2_1719603132004.psc / frmTest.frm < prev    next >
Text File  |  2004-03-13  |  12KB  |  401 lines
  1. VERSION 5.00
  2. Object = "*\AVBLayers.vbp"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
  4. Begin VB.Form frmTest 
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Layer Properties"
  7.    ClientHeight    =   3495
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   7905
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3495
  16.    ScaleWidth      =   7905
  17.    StartUpPosition =   3  'Windows Default
  18.    Begin MSComDlg.CommonDialog cdgOpen 
  19.       Left            =   7350
  20.       Top             =   2895
  21.       _ExtentX        =   847
  22.       _ExtentY        =   847
  23.       _Version        =   393216
  24.    End
  25.    Begin VB.ListBox lstEvents 
  26.       Height          =   2985
  27.       Left            =   3555
  28.       TabIndex        =   10
  29.       Top             =   45
  30.       Width           =   4320
  31.    End
  32.    Begin VBLayers.VBLayerWindow VBLayerWindow1 
  33.       Height          =   1995
  34.       Left            =   45
  35.       TabIndex        =   9
  36.       Top             =   990
  37.       Width           =   3420
  38.       _ExtentX        =   6033
  39.       _ExtentY        =   3519
  40.       ThumbnailHeight =   20
  41.       ThumbnailWidth  =   20
  42.    End
  43.    Begin VB.CommandButton cmdRemoveSelected 
  44.       Caption         =   "Remove"
  45.       Height          =   435
  46.       Left            =   1770
  47.       TabIndex        =   8
  48.       Top             =   3045
  49.       Width           =   1710
  50.    End
  51.    Begin VB.CheckBox chkGeneric 
  52.       Caption         =   "Preserve Transparency"
  53.       BeginProperty Font 
  54.          Name            =   "MS Serif"
  55.          Size            =   6.75
  56.          Charset         =   0
  57.          Weight          =   400
  58.          Underline       =   0   'False
  59.          Italic          =   0   'False
  60.          Strikethrough   =   0   'False
  61.       EndProperty
  62.       Height          =   195
  63.       Left            =   75
  64.       TabIndex        =   7
  65.       Top             =   750
  66.       Width           =   3360
  67.    End
  68.    Begin VB.ComboBox cboGeneric2 
  69.       BeginProperty Font 
  70.          Name            =   "MS Serif"
  71.          Size            =   6.75
  72.          Charset         =   0
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   285
  79.       Left            =   2430
  80.       TabIndex        =   5
  81.       Text            =   "100%"
  82.       Top             =   315
  83.       Width           =   765
  84.    End
  85.    Begin VB.ComboBox cboGeneric1 
  86.       BeginProperty Font 
  87.          Name            =   "MS Serif"
  88.          Size            =   6.75
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   285
  96.       Left            =   75
  97.       TabIndex        =   4
  98.       Text            =   "Normal"
  99.       Top             =   315
  100.       Width           =   1500
  101.    End
  102.    Begin VB.CommandButton cmdDummyDrop 
  103.       Appearance      =   0  'Flat
  104.       Caption         =   "u"
  105.       BeginProperty Font 
  106.          Name            =   "Wingdings 3"
  107.          Size            =   8.25
  108.          Charset         =   2
  109.          Weight          =   400
  110.          Underline       =   0   'False
  111.          Italic          =   0   'False
  112.          Strikethrough   =   0   'False
  113.       EndProperty
  114.       Height          =   240
  115.       Left            =   3255
  116.       Style           =   1  'Graphical
  117.       TabIndex        =   1
  118.       TabStop         =   0   'False
  119.       Top             =   0
  120.       Width           =   225
  121.    End
  122.    Begin VB.CommandButton cmdAddTest 
  123.       Caption         =   "Add"
  124.       Height          =   435
  125.       Left            =   15
  126.       TabIndex        =   0
  127.       Top             =   3045
  128.       Width           =   1710
  129.    End
  130.    Begin VB.CheckBox chkLarge 
  131.       Caption         =   "Use Large Layer Items"
  132.       Height          =   285
  133.       Left            =   3570
  134.       TabIndex        =   11
  135.       Top             =   3135
  136.       Width           =   4260
  137.    End
  138.    Begin VB.Line linBreak4 
  139.       BorderColor     =   &H80000014&
  140.       X1              =   3495
  141.       X2              =   3495
  142.       Y1              =   0
  143.       Y2              =   3495
  144.    End
  145.    Begin VB.Line linBreak3 
  146.       BorderColor     =   &H80000010&
  147.       X1              =   3480
  148.       X2              =   3480
  149.       Y1              =   0
  150.       Y2              =   3495
  151.    End
  152.    Begin VB.Line linGenericShadow 
  153.       BorderColor     =   &H80000010&
  154.       X1              =   15
  155.       X2              =   3450
  156.       Y1              =   645
  157.       Y2              =   645
  158.    End
  159.    Begin VB.Line linGenericHighlight 
  160.       BorderColor     =   &H80000014&
  161.       X1              =   15
  162.       X2              =   3450
  163.       Y1              =   660
  164.       Y2              =   660
  165.    End
  166.    Begin VB.Label lblGenOpacity 
  167.       Caption         =   "Opacity:"
  168.       BeginProperty Font 
  169.          Name            =   "MS Serif"
  170.          Size            =   6.75
  171.          Charset         =   0
  172.          Weight          =   400
  173.          Underline       =   0   'False
  174.          Italic          =   0   'False
  175.          Strikethrough   =   0   'False
  176.       EndProperty
  177.       Height          =   210
  178.       Left            =   1785
  179.       TabIndex        =   6
  180.       Top             =   360
  181.       Width           =   870
  182.    End
  183.    Begin VB.Label Label1 
  184.       BackStyle       =   0  'Transparent
  185.       Caption         =   "Paths"
  186.       Height          =   180
  187.       Left            =   1350
  188.       TabIndex        =   3
  189.       Top             =   30
  190.       Width           =   1080
  191.    End
  192.    Begin VB.Label lblLayers 
  193.       BackStyle       =   0  'Transparent
  194.       Caption         =   "Layers"
  195.       Height          =   195
  196.       Left            =   165
  197.       TabIndex        =   2
  198.       Top             =   30
  199.       Width           =   1080
  200.    End
  201.    Begin VB.Shape shpPaths 
  202.       BackColor       =   &H8000000F&
  203.       BackStyle       =   1  'Opaque
  204.       Height          =   240
  205.       Left            =   1245
  206.       Top             =   15
  207.       Width           =   1185
  208.    End
  209.    Begin VB.Shape shpLayersTab 
  210.       BackStyle       =   1  'Opaque
  211.       Height          =   240
  212.       Left            =   75
  213.       Top             =   15
  214.       Width           =   1185
  215.    End
  216.    Begin VB.Line linBreak2 
  217.       X1              =   3240
  218.       X2              =   3240
  219.       Y1              =   0
  220.       Y2              =   240
  221.    End
  222.    Begin VB.Line linBreak1 
  223.       X1              =   3480
  224.       X2              =   0
  225.       Y1              =   240
  226.       Y2              =   240
  227.    End
  228. End
  229. Attribute VB_Name = "frmTest"
  230. Attribute VB_GlobalNameSpace = False
  231. Attribute VB_Creatable = False
  232. Attribute VB_PredeclaredId = True
  233. Attribute VB_Exposed = False
  234. '**********************************************************************************************************************'
  235. '*'
  236. '*' Module    : frmTest
  237. '*'
  238. '*'
  239. '*' Author    : Joseph M. Ferris <jferris@desertdocs.com>
  240. '*'
  241. '*' Date      : 03.09.2004
  242. '*'
  243. '*' Depends   : VBLayerWindow ActiveX Control
  244. '*'
  245. '*' Purpose   : Provides a test environment for the VBLayerWindow control.
  246. '*'
  247. '*' Notes     :
  248. '*'
  249. '**********************************************************************************************************************'
  250. Option Explicit
  251.  
  252. '**********************************************************************************************************************'
  253. '*'
  254. '*' Procedure : chkLarge_Click
  255. '*'
  256. '*'
  257. '*' Date      : 03.09.2004
  258. '*'
  259. '*' Purpose   : Change the size of the thumbnail and item height.
  260. '*'
  261. '*' Input     : None.
  262. '*'
  263. '*' Output    : None.
  264. '*'
  265. '**********************************************************************************************************************'
  266. Private Sub chkLarge_Click()
  267.  
  268. '*' Fail through on local error.
  269. '*'
  270. On Error Resume Next
  271.  
  272.     '*' Toggle between 40x32x32 and 26x16x16
  273.     '*'
  274.     If chkLarge.Value = Checked Then
  275.         VBLayerWindow1.ThumbnailHeight = 32
  276.         VBLayerWindow1.Thumbnailwidth = 32
  277.         VBLayerWindow1.LayerItemHeight = 40
  278.     Else
  279.         VBLayerWindow1.ThumbnailHeight = 16
  280.         VBLayerWindow1.Thumbnailwidth = 16
  281.         VBLayerWindow1.LayerItemHeight = 26
  282.     End If
  283.     
  284. End Sub
  285.  
  286. '**********************************************************************************************************************'
  287. '*'
  288. '*' Procedure : cmdAddTest_Click
  289. '*'
  290. '*'
  291. '*' Date      : 03.09.2004
  292. '*'
  293. '*' Purpose   : Add an individual layer item that will consist of a prompted name and picture.
  294. '*'
  295. '*' Input     : None.
  296. '*'
  297. '*' Output    : None.
  298. '*'
  299. '**********************************************************************************************************************'
  300. Private Sub cmdAddTest_Click()
  301.  
  302. '*' Fail through on local error.
  303. '*'
  304. On Error Resume Next
  305.  
  306. Static s_lngCounter                     As Long
  307.  
  308. Dim strNewLayerName                     As String
  309.  
  310.     '*' Select a picture for the thumbnail.
  311.     '*'
  312.     cdgOpen.Filter = "Pictures (*.bmp;*.jpg)|*.bmp;*.jpg"
  313.     cdgOpen.ShowOpen
  314.    
  315.     '*' Get a name for the new layer (dupes ok, goes off of id).
  316.     '*'
  317.     strNewLayerName = InputBox("Name for new layer:", "New Layer")
  318.     
  319.     '*' Add the item to the control.
  320.     '*'
  321.     VBLayerWindow1.LayerItems.Add strNewLayerName, "Item" & s_lngCounter, LoadPicture(cdgOpen.FileName)
  322.         
  323.     '*' Increment the local counter, which is used to populate the unique item key.
  324.     '*'
  325.     s_lngCounter = s_lngCounter + 1
  326.     
  327. End Sub
  328.  
  329. '**********************************************************************************************************************'
  330. '*'
  331. '*' Procedure : cmdRemoveSelected_Click
  332. '*'
  333. '*'
  334. '*' Date      : 03.09.2004
  335. '*'
  336. '*' Purpose   : Remove the selected item from the control, if one is selected.
  337. '*'
  338. '*' Input     : None.
  339. '*'
  340. '*' Output    : None.
  341. '*'
  342. '**********************************************************************************************************************'
  343. Private Sub cmdRemoveSelected_Click()
  344.  
  345. Dim layLocalItem As clsLayerItem
  346.  
  347.     '*' Iterate through the layers in the control.
  348.     '*'
  349.     For Each layLocalItem In VBLayerWindow1.LayerItems
  350.  
  351.         '*' Check to see if it is selected and remove it if it is.
  352.         '*'
  353.         If layLocalItem.Selected = True Then
  354.             VBLayerWindow1.LayerItems.Remove (layLocalItem.Key)
  355.             Exit For
  356.         End If
  357.     Next
  358.     
  359. End Sub
  360.  
  361. '**********************************************************************************************************************'
  362. '*'
  363. '*' Event Tests
  364. '*'
  365. '**********************************************************************************************************************'
  366.  
  367. Private Sub VBLayerWindow1_CaptionChange(Index As Integer, Value As String)
  368.     lstEvents.AddItem "Event:  CaptionChange(" & Index & ")"
  369.     lstEvents.Selected(lstEvents.ListCount - 1) = True
  370. End Sub
  371.  
  372. Private Sub VBLayerWindow1_Click()
  373.     lstEvents.AddItem "Event:  Click()"
  374.     lstEvents.Selected(lstEvents.ListCount - 1) = True
  375. End Sub
  376.  
  377. Private Sub VBLayerWindow1_EditableChange(Index As Integer, Value As Boolean)
  378.     lstEvents.AddItem "Event:  EditableChange(" & Index & ")"
  379.     lstEvents.Selected(lstEvents.ListCount - 1) = True
  380. End Sub
  381.  
  382. Private Sub VBLayerWindow1_GotFocus()
  383.     lstEvents.AddItem "Event:  GotFocus()"
  384.     lstEvents.Selected(lstEvents.ListCount - 1) = True
  385. End Sub
  386.  
  387. Private Sub VBLayerWindow1_LostFocus()
  388.     lstEvents.AddItem "Event:  LostFocus"
  389.     lstEvents.Selected(lstEvents.ListCount - 1) = True
  390. End Sub
  391.  
  392. Private Sub VBLayerWindow1_Selection(Index As Integer)
  393.     lstEvents.AddItem "Event:  Selection(" & Index & ")"
  394.     lstEvents.Selected(lstEvents.ListCount - 1) = True
  395. End Sub
  396.  
  397. Private Sub VBLayerWindow1_ViewableChange(Index As Integer, Value As Boolean)
  398.     lstEvents.AddItem "Event:  ViewableChange(" & Index & ")"
  399.     lstEvents.Selected(lstEvents.ListCount - 1) = True
  400. End Sub
  401.