home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD94408302000.psc / ButtonEx_PSC / Form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-08-30  |  19.2 KB  |  539 lines

  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   8295
  5.    ClientLeft      =   4590
  6.    ClientTop       =   1650
  7.    ClientWidth     =   5895
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   8295
  10.    ScaleWidth      =   5895
  11.    Begin VB.Frame Frame2 
  12.       Caption         =   "ButtonEx Control:"
  13.       Height          =   5055
  14.       Left            =   120
  15.       TabIndex        =   8
  16.       Top             =   3120
  17.       Width           =   5655
  18.       Begin Project1.ButtonEx ButtonEx1 
  19.          Height          =   375
  20.          Left            =   240
  21.          TabIndex        =   15
  22.          Top             =   360
  23.          Width           =   1215
  24.          _ExtentX        =   2143
  25.          _ExtentY        =   661
  26.          Caption         =   "&ButtonEx1"
  27.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  28.             Name            =   "MS Sans Serif"
  29.             Size            =   8.25
  30.             Charset         =   0
  31.             Weight          =   400
  32.             Underline       =   0   'False
  33.             Italic          =   0   'False
  34.             Strikethrough   =   0   'False
  35.          EndProperty
  36.       End
  37.       Begin Project1.ButtonEx ButtonEx2 
  38.          Cancel          =   -1  'True
  39.          Height          =   375
  40.          Left            =   1560
  41.          TabIndex        =   16
  42.          Top             =   360
  43.          Width           =   1215
  44.          _ExtentX        =   2143
  45.          _ExtentY        =   661
  46.          Enabled         =   0   'False
  47.          Caption         =   "This is very long text."
  48.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  49.             Name            =   "MS Sans Serif"
  50.             Size            =   8.25
  51.             Charset         =   0
  52.             Weight          =   400
  53.             Underline       =   0   'False
  54.             Italic          =   0   'False
  55.             Strikethrough   =   0   'False
  56.          EndProperty
  57.       End
  58.       Begin Project1.ButtonEx ButtonEx3 
  59.          Height          =   375
  60.          Left            =   2880
  61.          TabIndex        =   17
  62.          Top             =   360
  63.          Width           =   1215
  64.          _ExtentX        =   2143
  65.          _ExtentY        =   661
  66.          BackColor       =   12648384
  67.          Caption         =   "ButtonEx3"
  68.          ForeColor       =   16711935
  69.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.             Name            =   "MS Sans Serif"
  71.             Size            =   8.25
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          HighlightColor  =   16711935
  79.       End
  80.       Begin Project1.ButtonEx ButtonEx4 
  81.          Height          =   375
  82.          Left            =   4200
  83.          TabIndex        =   18
  84.          Top             =   360
  85.          Width           =   1215
  86.          _ExtentX        =   2143
  87.          _ExtentY        =   661
  88.          BackColor       =   16761024
  89.          Caption         =   "ButtonEx4"
  90.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  91.             Name            =   "MS Sans Serif"
  92.             Size            =   9.75
  93.             Charset         =   0
  94.             Weight          =   700
  95.             Underline       =   0   'False
  96.             Italic          =   -1  'True
  97.             Strikethrough   =   0   'False
  98.          EndProperty
  99.       End
  100.       Begin Project1.ButtonEx ButtonEx5 
  101.          Height          =   375
  102.          Left            =   240
  103.          TabIndex        =   19
  104.          Top             =   840
  105.          Width           =   1215
  106.          _ExtentX        =   2143
  107.          _ExtentY        =   661
  108.          Caption         =   "ButtonEx5"
  109.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  110.             Name            =   "MS Sans Serif"
  111.             Size            =   8.25
  112.             Charset         =   0
  113.             Weight          =   400
  114.             Underline       =   0   'False
  115.             Italic          =   0   'False
  116.             Strikethrough   =   0   'False
  117.          EndProperty
  118.          HighlightColor  =   65280
  119.          HighlightPicture=   -1  'True
  120.          Picture         =   "Form1.frx":0000
  121.       End
  122.       Begin Project1.ButtonEx ButtonEx6 
  123.          Height          =   375
  124.          Left            =   1560
  125.          TabIndex        =   20
  126.          Top             =   840
  127.          Width           =   1215
  128.          _ExtentX        =   2143
  129.          _ExtentY        =   661
  130.          Caption         =   "ButtonEx6"
  131.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  132.             Name            =   "MS Sans Serif"
  133.             Size            =   8.25
  134.             Charset         =   0
  135.             Weight          =   400
  136.             Underline       =   0   'False
  137.             Italic          =   0   'False
  138.             Strikethrough   =   0   'False
  139.          EndProperty
  140.          HighlightColor  =   255
  141.          Picture         =   "Form1.frx":0365
  142.       End
  143.       Begin Project1.ButtonEx ButtonEx7 
  144.          Height          =   735
  145.          Left            =   2880
  146.          TabIndex        =   21
  147.          Top             =   840
  148.          Width           =   1215
  149.          _ExtentX        =   2143
  150.          _ExtentY        =   1296
  151.          Caption         =   "Btn7"
  152.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  153.             Name            =   "MS Sans Serif"
  154.             Size            =   8.25
  155.             Charset         =   0
  156.             Weight          =   400
  157.             Underline       =   0   'False
  158.             Italic          =   0   'False
  159.             Strikethrough   =   0   'False
  160.          EndProperty
  161.          Picture         =   "Form1.frx":06D0
  162.       End
  163.       Begin Project1.ButtonEx ButtonEx8 
  164.          Height          =   735
  165.          Left            =   4200
  166.          TabIndex        =   22
  167.          Top             =   840
  168.          Width           =   1215
  169.          _ExtentX        =   2143
  170.          _ExtentY        =   1296
  171.          Caption         =   "Btn8"
  172.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  173.             Name            =   "MS Sans Serif"
  174.             Size            =   8.25
  175.             Charset         =   0
  176.             Weight          =   400
  177.             Underline       =   0   'False
  178.             Italic          =   0   'False
  179.             Strikethrough   =   0   'False
  180.          EndProperty
  181.          Picture         =   "Form1.frx":0FAA
  182.       End
  183.       Begin Project1.ButtonEx ButtonEx9 
  184.          Height          =   375
  185.          Left            =   2880
  186.          TabIndex        =   29
  187.          Top             =   1800
  188.          Width           =   1215
  189.          _ExtentX        =   2143
  190.          _ExtentY        =   661
  191.          Appearance      =   0
  192.          BackColor       =   12648384
  193.          Caption         =   "ButtonEx11"
  194.          ForeColor       =   16711935
  195.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  196.             Name            =   "MS Sans Serif"
  197.             Size            =   8.25
  198.             Charset         =   0
  199.             Weight          =   400
  200.             Underline       =   0   'False
  201.             Italic          =   0   'False
  202.             Strikethrough   =   0   'False
  203.          EndProperty
  204.       End
  205.       Begin Project1.ButtonEx ButtonEx10 
  206.          Height          =   375
  207.          Left            =   240
  208.          TabIndex        =   30
  209.          Top             =   1800
  210.          Width           =   1215
  211.          _ExtentX        =   2143
  212.          _ExtentY        =   661
  213.          Appearance      =   0
  214.          Caption         =   "ButtonEx9"
  215.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  216.             Name            =   "MS Sans Serif"
  217.             Size            =   8.25
  218.             Charset         =   0
  219.             Weight          =   400
  220.             Underline       =   0   'False
  221.             Italic          =   0   'False
  222.             Strikethrough   =   0   'False
  223.          EndProperty
  224.          Picture         =   "Form1.frx":1884
  225.       End
  226.       Begin Project1.ButtonEx ButtonEx11 
  227.          Height          =   735
  228.          Left            =   4200
  229.          TabIndex        =   31
  230.          Top             =   1800
  231.          Width           =   1215
  232.          _ExtentX        =   2143
  233.          _ExtentY        =   1296
  234.          Appearance      =   0
  235.          Caption         =   "Btn12"
  236.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  237.             Name            =   "MS Sans Serif"
  238.             Size            =   8.25
  239.             Charset         =   0
  240.             Weight          =   400
  241.             Underline       =   0   'False
  242.             Italic          =   0   'False
  243.             Strikethrough   =   0   'False
  244.          EndProperty
  245.          HighlightColor  =   16711680
  246.          HighlightPicture=   -1  'True
  247.          Picture         =   "Form1.frx":1BE9
  248.       End
  249.       Begin Project1.ButtonEx ButtonEx12 
  250.          Default         =   -1  'True
  251.          Height          =   375
  252.          Left            =   1560
  253.          TabIndex        =   32
  254.          Top             =   1800
  255.          Width           =   1215
  256.          _ExtentX        =   2143
  257.          _ExtentY        =   661
  258.          Appearance      =   0
  259.          Enabled         =   0   'False
  260.          Caption         =   "&ButtonEx10"
  261.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  262.             Name            =   "MS Sans Serif"
  263.             Size            =   8.25
  264.             Charset         =   0
  265.             Weight          =   400
  266.             Underline       =   0   'False
  267.             Italic          =   0   'False
  268.             Strikethrough   =   0   'False
  269.          EndProperty
  270.       End
  271.       Begin VB.Label Label1 
  272.          AutoSize        =   -1  'True
  273.          BackStyle       =   0  'Transparent
  274.          Caption         =   "3.  Suggestions...?"
  275.          Height          =   195
  276.          Index           =   14
  277.          Left            =   240
  278.          TabIndex        =   36
  279.          Top             =   4800
  280.          Width           =   1320
  281.       End
  282.       Begin VB.Label Label1 
  283.          AutoSize        =   -1  'True
  284.          BackStyle       =   0  'Transparent
  285.          Caption         =   "2.  MouseEnter and MouseExit events."
  286.          Height          =   195
  287.          Index           =   13
  288.          Left            =   240
  289.          TabIndex        =   35
  290.          Top             =   4560
  291.          Width           =   2745
  292.       End
  293.       Begin VB.Label Label1 
  294.          AutoSize        =   -1  'True
  295.          BackStyle       =   0  'Transparent
  296.          Caption         =   "1.  Allow skinning of buttons (separate bitmaps for each button state)."
  297.          Height          =   195
  298.          Index           =   12
  299.          Left            =   240
  300.          TabIndex        =   34
  301.          Top             =   4320
  302.          Width           =   4875
  303.       End
  304.       Begin VB.Label Label1 
  305.          AutoSize        =   -1  'True
  306.          BackStyle       =   0  'Transparent
  307.          Caption         =   "To Do:"
  308.          Height          =   195
  309.          Index           =   11
  310.          Left            =   240
  311.          TabIndex        =   33
  312.          Top             =   4080
  313.          Width           =   495
  314.       End
  315.       Begin VB.Label Label1 
  316.          AutoSize        =   -1  'True
  317.          BackStyle       =   0  'Transparent
  318.          Caption         =   "3.  Default and focus graphical highlights."
  319.          Height          =   195
  320.          Index           =   10
  321.          Left            =   240
  322.          TabIndex        =   28
  323.          Top             =   3720
  324.          Width           =   2925
  325.       End
  326.       Begin VB.Label Label1 
  327.          AutoSize        =   -1  'True
  328.          BackStyle       =   0  'Transparent
  329.          Caption         =   "2.  Default and Cancel properties."
  330.          Height          =   195
  331.          Index           =   9
  332.          Left            =   240
  333.          TabIndex        =   27
  334.          Top             =   3480
  335.          Width           =   2370
  336.       End
  337.       Begin VB.Label Label1 
  338.          AutoSize        =   -1  'True
  339.          BackStyle       =   0  'Transparent
  340.          Caption         =   "1.  Shortcut keys allowed (and work)."
  341.          Height          =   195
  342.          Index           =   8
  343.          Left            =   240
  344.          TabIndex        =   26
  345.          Top             =   3240
  346.          Width           =   2625
  347.       End
  348.       Begin VB.Label Label1 
  349.          AutoSize        =   -1  'True
  350.          BackStyle       =   0  'Transparent
  351.          Caption         =   "Enhancements over other ""Button"" controls"":"
  352.          Height          =   195
  353.          Index           =   7
  354.          Left            =   240
  355.          TabIndex        =   25
  356.          Top             =   3000
  357.          Width           =   3210
  358.       End
  359.       Begin VB.Label Label1 
  360.          AutoSize        =   -1  'True
  361.          BackStyle       =   0  'Transparent
  362.          Caption         =   "1.  Long captions don't become multi-line."
  363.          Height          =   195
  364.          Index           =   6
  365.          Left            =   240
  366.          TabIndex        =   24
  367.          Top             =   2640
  368.          Width           =   2925
  369.       End
  370.       Begin VB.Label Label1 
  371.          AutoSize        =   -1  'True
  372.          BackStyle       =   0  'Transparent
  373.          Caption         =   "Problems with ButtonEx:"
  374.          Height          =   195
  375.          Index           =   5
  376.          Left            =   240
  377.          TabIndex        =   23
  378.          Top             =   2400
  379.          Width           =   1710
  380.       End
  381.    End
  382.    Begin VB.Frame Frame1 
  383.       Caption         =   "Microsoft CommandButton Control:"
  384.       Height          =   2895
  385.       Left            =   120
  386.       TabIndex        =   0
  387.       Top             =   120
  388.       Width           =   5655
  389.       Begin VB.CommandButton Command1 
  390.          Caption         =   "&Command1"
  391.          Height          =   375
  392.          Left            =   240
  393.          TabIndex        =   14
  394.          Top             =   360
  395.          Width           =   1215
  396.       End
  397.       Begin VB.CommandButton Command8 
  398.          Caption         =   "Command8"
  399.          Height          =   855
  400.          Left            =   4200
  401.          Picture         =   "Form1.frx":24C3
  402.          Style           =   1  'Graphical
  403.          TabIndex        =   7
  404.          Top             =   840
  405.          Width           =   1215
  406.       End
  407.       Begin VB.CommandButton Command7 
  408.          Caption         =   "Command7"
  409.          Height          =   855
  410.          Left            =   2880
  411.          Picture         =   "Form1.frx":2D8D
  412.          Style           =   1  'Graphical
  413.          TabIndex        =   6
  414.          Top             =   840
  415.          Width           =   1215
  416.       End
  417.       Begin VB.CommandButton Command6 
  418.          Caption         =   "Command6"
  419.          Height          =   615
  420.          Left            =   1560
  421.          MaskColor       =   &H00FF0000&
  422.          Picture         =   "Form1.frx":3657
  423.          Style           =   1  'Graphical
  424.          TabIndex        =   5
  425.          Top             =   840
  426.          UseMaskColor    =   -1  'True
  427.          Width           =   1215
  428.       End
  429.       Begin VB.CommandButton Command5 
  430.          Caption         =   "Command5"
  431.          Height          =   615
  432.          Left            =   240
  433.          Picture         =   "Form1.frx":39B2
  434.          Style           =   1  'Graphical
  435.          TabIndex        =   4
  436.          Top             =   840
  437.          Width           =   1215
  438.       End
  439.       Begin VB.CommandButton Command4 
  440.          BackColor       =   &H0080C0FF&
  441.          Caption         =   "Command4"
  442.          BeginProperty Font 
  443.             Name            =   "MS Sans Serif"
  444.             Size            =   9.75
  445.             Charset         =   0
  446.             Weight          =   700
  447.             Underline       =   0   'False
  448.             Italic          =   -1  'True
  449.             Strikethrough   =   0   'False
  450.          EndProperty
  451.          Height          =   375
  452.          Left            =   4200
  453.          Style           =   1  'Graphical
  454.          TabIndex        =   3
  455.          Top             =   360
  456.          Width           =   1215
  457.       End
  458.       Begin VB.CommandButton Command3 
  459.          BackColor       =   &H00C0C0FF&
  460.          Caption         =   "Command3"
  461.          Height          =   375
  462.          Left            =   2880
  463.          Style           =   1  'Graphical
  464.          TabIndex        =   2
  465.          Top             =   360
  466.          Width           =   1215
  467.       End
  468.       Begin VB.CommandButton Command2 
  469.          Caption         =   "This is very long text."
  470.          Enabled         =   0   'False
  471.          Height          =   375
  472.          Left            =   1560
  473.          TabIndex        =   1
  474.          Top             =   360
  475.          Width           =   1215
  476.       End
  477.       Begin VB.Label Label1 
  478.          AutoSize        =   -1  'True
  479.          BackStyle       =   0  'Transparent
  480.          Caption         =   "4.  No mouse over settings."
  481.          Height          =   195
  482.          Index           =   3
  483.          Left            =   240
  484.          TabIndex        =   13
  485.          Top             =   2640
  486.          Width           =   1935
  487.       End
  488.       Begin VB.Label Label1 
  489.          AutoSize        =   -1  'True
  490.          BackStyle       =   0  'Transparent
  491.          Caption         =   "3.  Can't easily set picture to left side of text."
  492.          Height          =   195
  493.          Index           =   4
  494.          Left            =   240
  495.          TabIndex        =   12
  496.          Top             =   2400
  497.          Width           =   3090
  498.       End
  499.       Begin VB.Label Label1 
  500.          AutoSize        =   -1  'True
  501.          BackStyle       =   0  'Transparent
  502.          Caption         =   "Problems with CommandButton:"
  503.          Height          =   195
  504.          Index           =   2
  505.          Left            =   240
  506.          TabIndex        =   11
  507.          Top             =   1680
  508.          Width           =   2235
  509.       End
  510.       Begin VB.Label Label1 
  511.          AutoSize        =   -1  'True
  512.          BackStyle       =   0  'Transparent
  513.          Caption         =   "2.  Can't easily change ForeColor."
  514.          Height          =   195
  515.          Index           =   1
  516.          Left            =   240
  517.          TabIndex        =   10
  518.          Top             =   2160
  519.          Width           =   2370
  520.       End
  521.       Begin VB.Label Label1 
  522.          AutoSize        =   -1  'True
  523.          BackStyle       =   0  'Transparent
  524.          Caption         =   "1.  Can't easily do flat buttons."
  525.          Height          =   195
  526.          Index           =   0
  527.          Left            =   240
  528.          TabIndex        =   9
  529.          Top             =   1920
  530.          Width           =   2115
  531.       End
  532.    End
  533. Attribute VB_Name = "Form1"
  534. Attribute VB_GlobalNameSpace = False
  535. Attribute VB_Creatable = False
  536. Attribute VB_PredeclaredId = True
  537. Attribute VB_Exposed = False
  538. Option Explicit
  539.