home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Paul's_Col2070216112007.psc / ucPickBox.ctl < prev   
Text File  |  2007-04-15  |  9KB  |  171 lines

  1. VERSION 5.00
  2. Begin VB.UserControl ucPickBox 
  3.    ClientHeight    =   1245
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   1545
  7.    LockControls    =   -1  'True
  8.    ScaleHeight     =   1245
  9.    ScaleWidth      =   1545
  10.    ToolboxBitmap   =   "ucPickBox.ctx":0000
  11.    Begin VB.CommandButton cmdDrop 
  12.       Caption         =   "u"
  13.       BeginProperty Font 
  14.          Name            =   "Marlett"
  15.          Size            =   9.75
  16.          Charset         =   2
  17.          Weight          =   500
  18.          Underline       =   0   'False
  19.          Italic          =   0   'False
  20.          Strikethrough   =   0   'False
  21.       EndProperty
  22.       Height          =   275
  23.       Left            =   1155
  24.       TabIndex        =   3
  25.       TabStop         =   0   'False
  26.       ToolTipText     =   "Click Here to View Selected Files."
  27.       Top             =   720
  28.       Visible         =   0   'False
  29.       Width           =   275
  30.    End
  31.    Begin VB.CommandButton cmdPick 
  32.       Caption         =   "..."
  33.       Height          =   275
  34.       Left            =   1155
  35.       TabIndex        =   1
  36.       TabStop         =   0   'False
  37.       Top             =   30
  38.       Width           =   275
  39.    End
  40.    Begin VB.TextBox txtResult 
  41.       Height          =   315
  42.       Left            =   0
  43.       MaxLength       =   65384
  44.       ScrollBars      =   1  'Horizontal
  45.       TabIndex        =   0
  46.       TabStop         =   0   'False
  47.       Text            =   "Locate Color..."
  48.       Top             =   0
  49.       Width           =   1455
  50.    End
  51.    Begin VB.ComboBox cmbMultiSel 
  52.       Height          =   315
  53.       Left            =   0
  54.       Style           =   2  'Dropdown List
  55.       TabIndex        =   2
  56.       Top             =   360
  57.       Width           =   1455
  58.    End
  59. End
  60. Attribute VB_Name = "ucPickBox"
  61. Attribute VB_GlobalNameSpace = False
  62. Attribute VB_Creatable = True
  63. Attribute VB_PredeclaredId = False
  64. Attribute VB_Exposed = False
  65. '+  File Description:
  66. '       ucPickBox - Enhanced File/Color/Font/Printer Picker Control
  67. '
  68. '   Product Name:
  69. '       ucPickBox.ctl
  70. '
  71. '   Compatability:
  72. '       Windows: 98, ME, NT, 2000, XP
  73. '
  74. '   Software Developed by:
  75. '       Paul R. Territo, Ph.D
  76. '
  77. '   Based on the following On-Line Articles
  78. '       (Common Dialog API Calls - Paul Mather)
  79. '           URL: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=3592&lngWId=1
  80. '       (TrimPathLen Function - Wastingtape)
  81. '           URL: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=23456&lngWId=1
  82. '       (FileExists - Eric Russell)
  83. '           URL: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=829&lngWId=1
  84. '       (ComboBox Open/Visible - Francesco Balena)
  85. '           URL: http://www.devx.com/vb2themax/Tip/18336
  86. '       (Max Raskin - Flat Button)
  87. '           http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=6517&lngWId=1
  88. '       (BrowseForFolder - DaVBMan, MrBobo)
  89. '           http://vbcity.com/forums/topic.asp?tid=82667
  90. '           http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=22387&lngWId=1
  91. '
  92. '   Legal Copyright & Trademarks:
  93. '       Copyright ⌐ 2006, by Paul R. Territo, Ph.D, All Rights Reserved Worldwide
  94. '       Trademark Ö 2006, by Paul R. Territo, Ph.D, All Rights Reserved Worldwide
  95. '
  96. '   Comments:
  97. '       No claims or warranties are expressed or implied as to accuracy or fitness
  98. '       for use of this software. Paul R. Territo, Ph.D shall not be liable
  99. '       for any incidental or consequential damages suffered by any use of
  100. '       this  software. This software is owned by Paul R. Territo, Ph.D and is
  101. '       sold for use as a license in accordance with the terms of the License
  102. '       Agreement in the accompanying the documentation.
  103. '
  104. '       Many thanks to my friend Paul Turcksin for his careful review, suggestions,
  105. '       and support of this UserControl and TestHarness prior to public release. In
  106. '       addtion, I wish to thank the numerous open source authors who provide code
  107. '       and inspiration to make such work possible.
  108. '
  109. '   Contact Information:
  110. '       For Technical Assistance:
  111. '       Email: pwterrito@insightbb.com
  112. '
  113. '-  Modification(s) History:
  114. '       05Nov05 - Initial TestHarness and UserControl finished
  115. '       06Nov05 - Cleaned up bugs in the ShowSave and ShowOpen routines.
  116. '               - Consolidated calls for the Show Open/Save subs to make
  117. '                 param and error handling cleaner.
  118. '               - Added addtional API params to the ShowFont routine.
  119. '               - Updated the ToolBox Image to a more professional image.
  120. '               - Added addtional error handling to the TestHarness...
  121. '       19Nov05 - Added Additional Author Credits to the Header
  122. '               - Added UseDialogColor, UseDialogText, ForeColor, and
  123. '                 BackColor properties to the Control and required code to
  124. '                 allow these routines to work...
  125. '               - Added PrintStatusMsg property to allow the user to specify
  126. '                 what the message should say when the printer returns a value.
  127. '               - Added PrintStaus property to provide the user feedback about
  128. '                 if the Printer dialog "Ok"(1) or "Cancel"(0) button was pressed.
  129. '               - Fixed bug in ShowSave routine which inconssistently computes the
  130. '                 nFileOffset values for a file. We simply set this to "0" and then
  131. '                 extract the values from outside of this of this routine.
  132. '               - Changes Color from Long to OLE_COLOR property to allow for
  133. '                 vb stanard palette.
  134. '               - Added TranslateColor sub to wrap the OleTranslateColor method
  135. '                 for mapping of colors to the current RGB palette.
  136. '       20Nov05 - Added Color RollBack if the value entered is invalid.
  137. '       04Dec05 - Changed the TestHarness layout to make it easier to follow the
  138. '                 flow of the controls and how to use it....
  139. '       06Dec05 - Added MultiFile selection for the ShowOpen routine and fixed several
  140. '                 bugs with the single vs mutiple file selections.
  141. '               - Added a ComboBox to serve at the conatiner and windowing mechanism for
  142. '                 the list and its events....this is a hack, pure and simple. This
  143. '                 approach was selected as it allowes a floating window and list functionality
  144. '                 without the need for building this via API. The combobox is hidden
  145. '                 behind the textbox at runtime and has Visiable = False. Since we
  146. '                 call the droplist window via SendMessage this allows us to have a
  147. '                 floating window like the ComboBox, but none of the overhead to manage ;-D
  148. '               - Add the ability to programmatically Open the MultiFile ComboBox
  149. '                 and check the state of the Droplist.
  150. '               - Added cmdDrop button to simulate the drop button of the ComboBox. The
  151. '                 key feature here being that the button is to the left of the ellipes
  152. '                 button and is resizable with the dialog, unlike the VB ComboBox.
  153. '       13Dec05 - Fixed minor TestHareness bug which displayed the wrong properties when
  154. '                 selecting the lstProperties index.
  155. '       14Dec05 - Fixed single/multiple file open bug in the ShowOpen routine which caused the
  156. '                 the sub to enter into the wrong conditional section when a single file
  157. '                 was selected and the MultiSelect = False.
  158. '               - Fixed PropertyChanged calls for DialogMsg and ToolTipTexts which now supports
  159. '                 individual item settings.
  160. '       15Dec05 - More optimization on the ShowSave and ShowFont routines. These routines now
  161. '                 handle missing extensions and provide a mechanism to enter them. In addtion,
  162. '                 the FontColor property has been added to allow direct color picking of the
  163. '                 font ForeColor, which is not appart of the StdFont structure.
  164. '       16Dec05 - Added Appearance Property and associated API and VB routines to allow for true
  165. '                 3D or Flat appearances of the textbox and buttons.
  166. '       18Dec05 - Fixed Minor bugs in the ShowFont dialog routines which did not preserve the
  167. '                 previous selections by the user. The new addtions resolve all but one known
  168. '                 bug. At the current time, the iPw addtions resolve all addtionlcrisHddtions hyOlyHlectocwthe iPwl item shnconssisteD Added MultiFile dialogbv05 - Fixes    individ 'False
  169.    ht the8o]logbv05 - Fixes    individ 'False
  170.    ht the8o]logbv05 - ¿»╛┬▀lse
  171. '+ºh