home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch06 / palcolor / palcolor.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  5.9 KB  |  190 lines
  1. VERSION 5.00
  2. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Palette Demo"
  5.    ClientHeight    =   5055
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    Palette         =   "PalColor.frx":0000
  11.    PaletteMode     =   2  'Custom
  12.    ScaleHeight     =   5055
  13.    ScaleWidth      =   4680
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton Command1 
  16.       Caption         =   "Load New Palette"
  17.       BeginProperty Font 
  18.          Name            =   "MS Sans Serif"
  19.          Size            =   9.75
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   555
  27.       Left            =   2340
  28.       TabIndex        =   1
  29.       Top             =   4290
  30.       Width           =   2235
  31.    End
  32.    Begin VB.PictureBox Picture1 
  33.       AutoRedraw      =   -1  'True
  34.       Height          =   3645
  35.       Left            =   150
  36.       ScaleHeight     =   239
  37.       ScaleMode       =   3  'Pixel
  38.       ScaleWidth      =   288
  39.       TabIndex        =   0
  40.       Top             =   150
  41.       Width           =   4380
  42.    End
  43.    Begin MSComDlg.CommonDialog CommonDialog1 
  44.       Left            =   -225
  45.       Top             =   2310
  46.       _ExtentX        =   847
  47.       _ExtentY        =   847
  48.       FontSize        =   2.54052e-29
  49.    End
  50.    Begin VB.Label Label6 
  51.       Caption         =   "Blue"
  52.       BeginProperty Font 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   9.75
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   225
  62.       Left            =   105
  63.       TabIndex        =   7
  64.       Top             =   4665
  65.       Width           =   675
  66.    End
  67.    Begin VB.Label Label5 
  68.       Caption         =   "Green"
  69.       BeginProperty Font 
  70.          Name            =   "MS Sans Serif"
  71.          Size            =   9.75
  72.          Charset         =   0
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   225
  79.       Left            =   105
  80.       TabIndex        =   6
  81.       Top             =   4350
  82.       Width           =   705
  83.    End
  84.    Begin VB.Label Label1 
  85.       Caption         =   "Red"
  86.       BeginProperty Font 
  87.          Name            =   "MS Sans Serif"
  88.          Size            =   9.75
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   240
  96.       Left            =   105
  97.       TabIndex        =   5
  98.       Top             =   3990
  99.       Width           =   525
  100.    End
  101.    Begin VB.Label Label4 
  102.       BeginProperty Font 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   9.75
  105.          Charset         =   0
  106.          Weight          =   400
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   255
  112.       Left            =   1080
  113.       TabIndex        =   4
  114.       Top             =   4605
  115.       Width           =   750
  116.    End
  117.    Begin VB.Label Label3 
  118.       BeginProperty Font 
  119.          Name            =   "MS Sans Serif"
  120.          Size            =   9.75
  121.          Charset         =   0
  122.          Weight          =   400
  123.          Underline       =   0   'False
  124.          Italic          =   0   'False
  125.          Strikethrough   =   0   'False
  126.       EndProperty
  127.       Height          =   270
  128.       Left            =   1080
  129.       TabIndex        =   3
  130.       Top             =   4245
  131.       Width           =   750
  132.    End
  133.    Begin VB.Label Label2 
  134.       BeginProperty Font 
  135.          Name            =   "MS Sans Serif"
  136.          Size            =   9.75
  137.          Charset         =   0
  138.          Weight          =   400
  139.          Underline       =   0   'False
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.       Height          =   195
  144.       Left            =   1080
  145.       TabIndex        =   2
  146.       Top             =   3960
  147.       Width           =   750
  148.    End
  149. Attribute VB_Name = "Form1"
  150. Attribute VB_GlobalNameSpace = False
  151. Attribute VB_Creatable = False
  152. Attribute VB_PredeclaredId = True
  153. Attribute VB_Exposed = False
  154. Option Explicit
  155. Private Sub Command1_Click()
  156. Dim BWidth, BHeight, BSpace As Integer
  157. Dim ih, iv As Integer
  158. Dim bxStart, byStart, CIndex As Integer
  159. Dim clr As Long
  160. CommonDialog1.Filter = "DIB palettes|*.dib"
  161. CommonDialog1.ShowOpen
  162. Form1.Caption = CommonDialog1.FileTitle
  163. Form1.Palette = LoadPicture("")
  164. Form1.Palette = LoadPicture(CommonDialog1.filename)
  165. Form1.Refresh
  166. BSpace = 2
  167. BWidth = Int((Picture1.ScaleWidth - 32) / 16)
  168. BHeight = Int((Picture1.ScaleHeight - 32) / 16)
  169. For ih = 0 To 15
  170.     For iv = 0 To 15
  171.         CIndex = ih * 16 + iv
  172.         bxStart = ih * (BWidth + BSpace)
  173.         byStart = iv * (BHeight + BSpace)
  174.         clr = &H1000000 + CIndex
  175.         Picture1.Line (bxStart, byStart)-Step(BWidth, BHeight), clr, BF
  176.     Next
  177. Exit Sub
  178. End Sub
  179. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  180. Dim pixel As Long
  181. Dim Red, Green, Blue As Integer
  182.     pixel = Picture1.Point(X, Y)
  183.     Red = pixel Mod 256
  184.     Green = ((pixel And &HFF00) / 256&) Mod 256&
  185.     Blue = (pixel And &HFF0000) / 65536
  186.     Label2.Caption = Red
  187.     Label3.Caption = Green
  188.     Label4.Caption = Blue
  189. End Sub
  190.