home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / protview / demowinx / data.3 / text / samples / VB / TEXTDEMO / TEXTDEMO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-28  |  16.5 KB  |  490 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "pv Text-3D Visual Basic Demo"
  4.    ClientHeight    =   5865
  5.    ClientLeft      =   1170
  6.    ClientTop       =   1620
  7.    ClientWidth     =   9465
  8.    Height          =   6270
  9.    Icon            =   "TextDemo.frx":0000
  10.    Left            =   1110
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   5865
  13.    ScaleWidth      =   9465
  14.    Top             =   1275
  15.    Width           =   9585
  16.    Begin VB.CheckBox TextOnFrameCheck 
  17.       Caption         =   "Text On Frame"
  18.       Height          =   210
  19.       Left            =   5505
  20.       TabIndex        =   3
  21.       Top             =   5145
  22.       Width           =   1395
  23.    End
  24.    Begin VB.CheckBox ShadowCheck 
  25.       Caption         =   "Shadow"
  26.       Height          =   195
  27.       Left            =   4350
  28.       TabIndex        =   2
  29.       Top             =   5160
  30.       Width           =   975
  31.    End
  32.    Begin VB.ComboBox ColorCombo 
  33.       Height          =   315
  34.       ItemData        =   "TextDemo.frx":030A
  35.       Left            =   2745
  36.       List            =   "TextDemo.frx":0320
  37.       Style           =   2  'Dropdown List
  38.       TabIndex        =   1
  39.       Top             =   5100
  40.       Width           =   1410
  41.    End
  42.    Begin VB.Timer Timer1 
  43.       Interval        =   1000
  44.       Left            =   9030
  45.       Top             =   4680
  46.    End
  47.    Begin VB.CommandButton CloseButton 
  48.       Caption         =   "Close"
  49.       Height          =   345
  50.       Left            =   7995
  51.       TabIndex        =   4
  52.       Top             =   5280
  53.       Width           =   675
  54.    End
  55.    Begin PVTEXT3DLib.PVText3D StopGoText3D 
  56.       Height          =   615
  57.       Left            =   7605
  58.       TabIndex        =   14
  59.       Top             =   4545
  60.       Width           =   1395
  61.       _Version        =   65536
  62.       _ExtentX        =   2461
  63.       _ExtentY        =   1085
  64.       _StockProps     =   29
  65.       Text            =   "Stop"
  66.       BackColor       =   255
  67.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  68.          name            =   "Arial"
  69.          charset         =   0
  70.          weight          =   700
  71.          size            =   18
  72.          underline       =   0   'False
  73.          italic          =   0   'False
  74.          strikethrough   =   0   'False
  75.       EndProperty
  76.       Text            =   "Stop"
  77.       Alignment       =   1
  78.       FrameStyle      =   49
  79.       OffsetHorizontal=   -1
  80.       OffsetVertical  =   -1
  81.       BackColor       =   255
  82.    End
  83.    Begin PVTEXT3DLib.PVText3D Text3D3 
  84.       Height          =   495
  85.       Left            =   3420
  86.       TabIndex        =   13
  87.       Top             =   1695
  88.       Width           =   2760
  89.       _Version        =   65536
  90.       _ExtentX        =   4868
  91.       _ExtentY        =   873
  92.       _StockProps     =   29
  93.       Text            =   "Frame Styles:"
  94.       ForeColor       =   8421504
  95.       BackColor       =   12632256
  96.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  97.          name            =   "Courier"
  98.          charset         =   0
  99.          weight          =   700
  100.          size            =   15
  101.          underline       =   0   'False
  102.          italic          =   0   'False
  103.          strikethrough   =   0   'False
  104.       EndProperty
  105.       Text            =   "Frame Styles:"
  106.       TextStyle       =   2
  107.       FrameStyle      =   0
  108.       OffsetVertical  =   0
  109.       HighlightColor  =   65535
  110.       ShadowColor     =   0
  111.       BackColor       =   12632256
  112.       Transparent     =   -1  'True
  113.    End
  114.    Begin PVTEXT3DLib.PVText3D Text3D1 
  115.       Height          =   1215
  116.       Left            =   360
  117.       TabIndex        =   12
  118.       Top             =   240
  119.       Width           =   8805
  120.       _Version        =   65536
  121.       _ExtentX        =   15531
  122.       _ExtentY        =   2143
  123.       _StockProps     =   29
  124.       Text            =   "pv Text-3D Demo"
  125.       ForeColor       =   255
  126.       BackColor       =   16711680
  127.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  128.          name            =   "Arial"
  129.          charset         =   0
  130.          weight          =   700
  131.          size            =   36
  132.          underline       =   0   'False
  133.          italic          =   0   'False
  134.          strikethrough   =   0   'False
  135.       EndProperty
  136.       Text            =   "pv Text-3D Demo"
  137.       Alignment       =   1
  138.       TextStyle       =   2
  139.       OffsetHorizontal=   -3
  140.       OffsetVertical  =   -1
  141.       HighlightColor  =   65535
  142.       ShadowColor     =   128
  143.       BackColor       =   16711680
  144.       FrameShadow     =   -1  'True
  145.    End
  146.    Begin PVTEXT3DLib.PVText3D SharpFrame 
  147.       Height          =   705
  148.       Left            =   360
  149.       TabIndex        =   11
  150.       Top             =   3480
  151.       Width           =   1995
  152.       _Version        =   65536
  153.       _ExtentX        =   3519
  154.       _ExtentY        =   1244
  155.       _StockProps     =   29
  156.       Text            =   "Sharp0"
  157.       ForeColor       =   16777215
  158.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  159.          name            =   "MS Sans Serif"
  160.          charset         =   0
  161.          weight          =   700
  162.          size            =   9.75
  163.          underline       =   0   'False
  164.          italic          =   0   'False
  165.          strikethrough   =   0   'False
  166.       EndProperty
  167.       Text            =   "Sharp0"
  168.       FrameStyle      =   71
  169.       OffsetHorizontal=   4
  170.       OffsetVertical  =   3
  171.       HighlightColor  =   0
  172.    End
  173.    Begin PVTEXT3DLib.PVText3D FrameFrame 
  174.       Height          =   705
  175.       Left            =   7200
  176.       TabIndex        =   10
  177.       Top             =   3480
  178.       Width           =   1995
  179.       _Version        =   65536
  180.       _ExtentX        =   3519
  181.       _ExtentY        =   1244
  182.       _StockProps     =   29
  183.       Text            =   "Frame0"
  184.       ForeColor       =   16776960
  185.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  186.          name            =   "MS Sans Serif"
  187.          charset         =   0
  188.          weight          =   700
  189.          size            =   9.75
  190.          underline       =   0   'False
  191.          italic          =   0   'False
  192.          strikethrough   =   0   'False
  193.       EndProperty
  194.       Text            =   "Frame0"
  195.       TextStyle       =   2
  196.       FrameStyle      =   61
  197.       OffsetHorizontal=   -1
  198.       OffsetVertical  =   -1
  199.       ShadowColor     =   16711680
  200.    End
  201.    Begin PVTEXT3DLib.PVText3D PictureFrame 
  202.       Height          =   705
  203.       Left            =   7200
  204.       TabIndex        =   9
  205.       Top             =   2280
  206.       Width           =   1995
  207.       _Version        =   65536
  208.       _ExtentX        =   3519
  209.       _ExtentY        =   1244
  210.       _StockProps     =   29
  211.       Text            =   "Picture0"
  212.       ForeColor       =   65280
  213.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  214.          name            =   "MS Sans Serif"
  215.          charset         =   0
  216.          weight          =   700
  217.          size            =   9.75
  218.          underline       =   0   'False
  219.          italic          =   0   'False
  220.          strikethrough   =   0   'False
  221.       EndProperty
  222.       Text            =   "Picture0"
  223.       TextStyle       =   2
  224.       FrameStyle      =   51
  225.       HighlightColor  =   65535
  226.       ShadowColor     =   32768
  227.    End
  228.    Begin PVTEXT3DLib.PVText3D RaisedFrame 
  229.       Height          =   705
  230.       Left            =   4920
  231.       TabIndex        =   8
  232.       Top             =   3480
  233.       Width           =   1995
  234.       _Version        =   65536
  235.       _ExtentX        =   3519
  236.       _ExtentY        =   1244
  237.       _StockProps     =   29
  238.       Text            =   "Raised0"
  239.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  240.          name            =   "MS Sans Serif"
  241.          charset         =   0
  242.          weight          =   700
  243.          size            =   9.75
  244.          underline       =   0   'False
  245.          italic          =   0   'False
  246.          strikethrough   =   0   'False
  247.       EndProperty
  248.       Text            =   "Raised0"
  249.       FrameStyle      =   41
  250.       OffsetHorizontal=   -1
  251.       OffsetVertical  =   -1
  252.    End
  253.    Begin PVTEXT3DLib.PVText3D SunkenFrame 
  254.       Height          =   705
  255.       Left            =   4920
  256.       TabIndex        =   7
  257.       Top             =   2280
  258.       Width           =   1995
  259.       _Version        =   65536
  260.       _ExtentX        =   3519
  261.       _ExtentY        =   1244
  262.       _StockProps     =   29
  263.       Text            =   "Sunken0"
  264.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  265.          name            =   "MS Sans Serif"
  266.          charset         =   0
  267.          weight          =   700
  268.          size            =   9.75
  269.          underline       =   0   'False
  270.          italic          =   0   'False
  271.          strikethrough   =   0   'False
  272.       EndProperty
  273.       Text            =   "Sunken0"
  274.       FrameStyle      =   31
  275.       OffsetVertical  =   0
  276.    End
  277.    Begin PVTEXT3DLib.PVText3D OutdentFrame 
  278.       Height          =   705
  279.       Left            =   2640
  280.       TabIndex        =   6
  281.       Top             =   3480
  282.       Width           =   1995
  283.       _Version        =   65536
  284.       _ExtentX        =   3519
  285.       _ExtentY        =   1244
  286.       _StockProps     =   29
  287.       Text            =   "Outdent0"
  288.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  289.          name            =   "MS Sans Serif"
  290.          charset         =   0
  291.          weight          =   700
  292.          size            =   9.75
  293.          underline       =   0   'False
  294.          italic          =   0   'False
  295.          strikethrough   =   0   'False
  296.       EndProperty
  297.       Text            =   "Outdent0"
  298.       FrameStyle      =   21
  299.       OffsetHorizontal=   -1
  300.       OffsetVertical  =   -1
  301.    End
  302.    Begin PVTEXT3DLib.PVText3D IndentFrame 
  303.       Height          =   705
  304.       Left            =   2640
  305.       TabIndex        =   5
  306.       Top             =   2280
  307.       Width           =   1995
  308.       _Version        =   65536
  309.       _ExtentX        =   3519
  310.       _ExtentY        =   1244
  311.       _StockProps     =   29
  312.       Text            =   "Indent0"
  313.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  314.          name            =   "MS Sans Serif"
  315.          charset         =   0
  316.          weight          =   700
  317.          size            =   9.75
  318.          underline       =   0   'False
  319.          italic          =   0   'False
  320.          strikethrough   =   0   'False
  321.       EndProperty
  322.       Text            =   "Indent0"
  323.       FrameStyle      =   11
  324.    End
  325.    Begin PVTEXT3DLib.PVText3D PlaneFrame 
  326.       Height          =   705
  327.       Left            =   360
  328.       TabIndex        =   0
  329.       Top             =   2280
  330.       Width           =   1995
  331.       _Version        =   65536
  332.       _ExtentX        =   3519
  333.       _ExtentY        =   1244
  334.       _StockProps     =   29
  335.       Text            =   "Plane0"
  336.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  337.          name            =   "MS Sans Serif"
  338.          charset         =   0
  339.          weight          =   700
  340.          size            =   9.75
  341.          underline       =   0   'False
  342.          italic          =   0   'False
  343.          strikethrough   =   0   'False
  344.       EndProperty
  345.       Text            =   "Plane0"
  346.       FrameStyle      =   1
  347.       OffsetHorizontal=   0
  348.       OffsetVertical  =   0
  349.    End
  350.    Begin PVTEXT3DLib.PVText3D Text3D5 
  351.       Height          =   1200
  352.       Left            =   2505
  353.       TabIndex        =   16
  354.       Top             =   4455
  355.       Width           =   4620
  356.       _Version        =   65536
  357.       _ExtentX        =   8149
  358.       _ExtentY        =   2117
  359.       _StockProps     =   29
  360.       Text            =   "More Frame Settings"
  361.       ForeColor       =   -2147483633
  362.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  363.          name            =   "MS Sans Serif"
  364.          charset         =   0
  365.          weight          =   700
  366.          size            =   12
  367.          underline       =   0   'False
  368.          italic          =   0   'False
  369.          strikethrough   =   0   'False
  370.       EndProperty
  371.       Text            =   "More Frame Settings"
  372.       Alignment       =   2
  373.       TextStyle       =   2
  374.       FrameStyle      =   23
  375.       OffsetHorizontal=   -1
  376.       OffsetVertical  =   -1
  377.       ShadowColor     =   0
  378.       Transparent     =   -1  'True
  379.       TextOnFrame     =   -1  'True
  380.    End
  381.    Begin PVTEXT3DLib.PVText3D Text3D4 
  382.       Height          =   270
  383.       Left            =   2745
  384.       TabIndex        =   15
  385.       Top             =   4815
  386.       Width           =   1335
  387.       _Version        =   65536
  388.       _ExtentX        =   2355
  389.       _ExtentY        =   476
  390.       _StockProps     =   29
  391.       Text            =   "Frame Color:"
  392.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  393.          name            =   "Arial"
  394.          charset         =   0
  395.          weight          =   700
  396.          size            =   9.74
  397.          underline       =   0   'False
  398.          italic          =   0   'False
  399.          strikethrough   =   0   'False
  400.       EndProperty
  401.       Text            =   "Frame Color:"
  402.       FrameStyle      =   0
  403.       OffsetHorizontal=   0
  404.       Transparent     =   -1  'True
  405.    End
  406. Attribute VB_Name = "Form1"
  407. Attribute VB_Creatable = False
  408. Attribute VB_Exposed = False
  409. Dim intTime As Integer
  410. Private Sub CloseButton_Click()
  411.     End
  412. End Sub
  413. Private Sub ColorCombo_Click()
  414.     PlaneFrame.FrameColor = ColorCombo.ListIndex
  415.     IndentFrame.FrameColor = ColorCombo.ListIndex
  416.     OutdentFrame.FrameColor = ColorCombo.ListIndex
  417.     SunkenFrame.FrameColor = ColorCombo.ListIndex
  418.     RaisedFrame.FrameColor = ColorCombo.ListIndex
  419.     PictureFrame.FrameColor = ColorCombo.ListIndex
  420.     FrameFrame.FrameColor = ColorCombo.ListIndex
  421.     SharpFrame.FrameColor = ColorCombo.ListIndex
  422. End Sub
  423. Private Sub Form_Load()
  424.     ColorCombo.ListIndex = 0
  425. End Sub
  426. Private Sub ShadowCheck_Click()
  427.     PlaneFrame.FrameShadow = ShadowCheck
  428.     IndentFrame.FrameShadow = ShadowCheck
  429.     OutdentFrame.FrameShadow = ShadowCheck
  430.     SunkenFrame.FrameShadow = ShadowCheck
  431.     RaisedFrame.FrameShadow = ShadowCheck
  432.     PictureFrame.FrameShadow = ShadowCheck
  433.     FrameFrame.FrameShadow = ShadowCheck
  434.     SharpFrame.FrameShadow = ShadowCheck
  435. End Sub
  436. Private Sub StopGoButton_Click()
  437. End Sub
  438. Private Sub StopGoText3D_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  439.     StopGoText3D.FrameStyle = pvtSunken + 8
  440.     StopGoText3D.ForeColor = RGB(192, 192, 192)
  441.     StopGoText3D.HighlightColor = RGB(0, 0, 0)
  442. End Sub
  443. Private Sub StopGoText3D_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  444.     Dim stopTime As Boolean
  445.     stopTime = Timer1.Enabled
  446.     Timer1.Enabled = Not stopTime
  447.     StopGoText3D.FrameStyle = pvtRaised + 8
  448.     StopGoText3D.ForeColor = RGB(0, 0, 0)
  449.     StopGoText3D.HighlightColor = RGB(255, 255, 255)
  450.     If stopTime Then
  451.         StopGoText3D.Text = "Go"
  452.         StopGoText3D.BackColor = RGB(255, 0, 255)
  453.     Else
  454.         StopGoText3D.Text = "Stop"
  455.         StopGoText3D.BackColor = RGB(255, 0, 0)
  456.     End If
  457. End Sub
  458. Private Sub TextOnFrameCheck_Click()
  459.     PlaneFrame.TextOnFrame = TextOnFrameCheck
  460.     IndentFrame.TextOnFrame = TextOnFrameCheck
  461.     OutdentFrame.TextOnFrame = TextOnFrameCheck
  462.     SunkenFrame.TextOnFrame = TextOnFrameCheck
  463.     RaisedFrame.TextOnFrame = TextOnFrameCheck
  464.     PictureFrame.TextOnFrame = TextOnFrameCheck
  465.     FrameFrame.TextOnFrame = TextOnFrameCheck
  466.     SharpFrame.TextOnFrame = TextOnFrameCheck
  467. End Sub
  468. Private Sub Timer1_Timer()
  469.     intTime = intTime + 1
  470.     If intTime >= 10 Then intTime = 0
  471.     PlaneFrame.FrameStyle = pvtPlane + intTime
  472.     'Text is default property
  473.     'PlaneFrame.Text = "Plane" & intTime
  474.     PlaneFrame = "Plane" & intTime
  475.     IndentFrame.FrameStyle = pvtIndent + intTime
  476.     IndentFrame = "Indent" & intTime
  477.     OutdentFrame.FrameStyle = pvtOutdent + intTime
  478.     OutdentFrame = "Outdent" & intTime
  479.     SunkenFrame.FrameStyle = pvtSunken + intTime
  480.     SunkenFrame = "Sunken" & intTime
  481.     RaisedFrame.FrameStyle = pvtRaised + intTime
  482.     RaisedFrame = "Raised" & intTime
  483.     PictureFrame.FrameStyle = pvtPicture + intTime
  484.     PictureFrame = "Picture" & intTime
  485.     FrameFrame.FrameStyle = pvtFrame + intTime
  486.     FrameFrame = "Frame" & intTime
  487.     SharpFrame.FrameStyle = pvtSharp + intTime
  488.     SharpFrame = "Sharp" & intTime
  489. End Sub
  490.