home *** CD-ROM | disk | FTP | other *** search
/ ActiveX Programming Unleashed CD / AXU.iso / componen / vsflex / demo / fphone.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-08-30  |  4.5 KB  |  144 lines
  1. VERSION 2.00
  2. Begin Form fPhone 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "VideoSoft Global Replacement"
  6.    ClientHeight    =   3615
  7.    ClientLeft      =   1245
  8.    ClientTop       =   1710
  9.    ClientWidth     =   6045
  10.    Height          =   4020
  11.    Left            =   1185
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3615
  14.    ScaleWidth      =   6045
  15.    Top             =   1365
  16.    Width           =   6165
  17.    Begin TextBox txtTo 
  18.       FontBold        =   0   'False
  19.       FontItalic      =   0   'False
  20.       FontName        =   "MS Sans Serif"
  21.       FontSize        =   8.25
  22.       FontStrikethru  =   0   'False
  23.       FontUnderline   =   0   'False
  24.       Height          =   285
  25.       Left            =   4305
  26.       TabIndex        =   3
  27.       Text            =   "(510)"
  28.       Top             =   945
  29.       Width           =   1410
  30.    End
  31.    Begin TextBox txtFrom 
  32.       FontBold        =   0   'False
  33.       FontItalic      =   0   'False
  34.       FontName        =   "MS Sans Serif"
  35.       FontSize        =   8.25
  36.       FontStrikethru  =   0   'False
  37.       FontUnderline   =   0   'False
  38.       Height          =   285
  39.       Left            =   4305
  40.       TabIndex        =   2
  41.       Text            =   "(415)"
  42.       Top             =   570
  43.       Width           =   1410
  44.    End
  45.    Begin CommandButton Command1 
  46.       BackColor       =   &H00C0C0C0&
  47.       Caption         =   "Change Area Code"
  48.       FontBold        =   0   'False
  49.       FontItalic      =   0   'False
  50.       FontName        =   "MS Sans Serif"
  51.       FontSize        =   8.25
  52.       FontStrikethru  =   0   'False
  53.       FontUnderline   =   0   'False
  54.       Height          =   435
  55.       Left            =   3990
  56.       TabIndex        =   1
  57.       Top             =   1350
  58.       Width           =   1725
  59.    End
  60.    Begin vsFlexArray fa 
  61.       BackColorFixed  =   &H00000080&
  62.       Cols            =   2
  63.       FixedCols       =   0
  64.       FocusRect       =   0  'None
  65.       FontBold        =   0   'False
  66.       FontItalic      =   0   'False
  67.       FontName        =   "Arial"
  68.       FontSize        =   9.75
  69.       FontStrikethru  =   0   'False
  70.       FontUnderline   =   0   'False
  71.       ForeColorFixed  =   &H00FFFFFF&
  72.       FormatString    =   "Name         |Phone                      "
  73.       Height          =   2730
  74.       HighLight       =   0  'Never
  75.       Left            =   225
  76.       Rows            =   1
  77.       TabIndex        =   0
  78.       TabStop         =   0   'False
  79.       Top             =   225
  80.       Width           =   3150
  81.    End
  82.    Begin vsFlexString FlexString 
  83.       Left            =   300
  84.       Pattern         =   "[^ ,    ]*"
  85.       Text            =   "VideoSoft FlexString"
  86.       Top             =   3135
  87.    End
  88.    Begin Label Label1 
  89.       BackColor       =   &H00C0C0C0&
  90.       Caption         =   "To:"
  91.       FontBold        =   0   'False
  92.       FontItalic      =   0   'False
  93.       FontName        =   "MS Sans Serif"
  94.       FontSize        =   8.25
  95.       FontStrikethru  =   0   'False
  96.       FontUnderline   =   0   'False
  97.       ForeColor       =   &H00000000&
  98.       Height          =   240
  99.       Index           =   1
  100.       Left            =   3720
  101.       TabIndex        =   5
  102.       Top             =   975
  103.       Width           =   495
  104.    End
  105.    Begin Label Label1 
  106.       BackColor       =   &H00C0C0C0&
  107.       Caption         =   "From:"
  108.       FontBold        =   0   'False
  109.       FontItalic      =   0   'False
  110.       FontName        =   "MS Sans Serif"
  111.       FontSize        =   8.25
  112.       FontStrikethru  =   0   'False
  113.       FontUnderline   =   0   'False
  114.       ForeColor       =   &H00000000&
  115.       Height          =   240
  116.       Index           =   0
  117.       Left            =   3705
  118.       TabIndex        =   4
  119.       Top             =   645
  120.       Width           =   495
  121.    End
  122. Option Explicit
  123. Sub Command1_Click ()
  124.    ' Select Column 1
  125.    fa.Col = 1
  126.    fa.Row = 1
  127.    fa.RowSel = fa.Rows - 1
  128.    ' find and replace string
  129.    FlexString.Text = fa.Clip
  130.    FlexString.Pattern = txtFrom
  131.    FlexString.Replace = txtTo
  132.    ' update FlexArray
  133.    fa.Clip = FlexString.Text
  134. End Sub
  135. Sub Form_Load ()
  136.    Dim t$
  137.    t = Chr$(9)
  138.    fa.AddItem "Joe" & t & "(415) 555-1212"
  139.    fa.AddItem "Mary" & t & "(701) 555-1212"
  140.    fa.AddItem "Sam" & t & "(310) 555-1212"
  141.    fa.AddItem "Peter" & t & "(415) 555-1212"
  142.    fa.AddItem "Don" & t & "(415) 555-1212"
  143. End Sub
  144.