home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Form_Creat52213212002.psc / frmOptions.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2002-02-01  |  9.7 KB  |  299 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOptions 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Toolbox"
  5.    ClientHeight    =   2115
  6.    ClientLeft      =   2565
  7.    ClientTop       =   1500
  8.    ClientWidth     =   2820
  9.    Icon            =   "frmOptions.frx":0000
  10.    KeyPreview      =   -1  'True
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2115
  15.    ScaleWidth      =   2820
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.Frame Frame1 
  19.       BackColor       =   &H00FFC0C0&
  20.       Height          =   2055
  21.       Left            =   0
  22.       TabIndex        =   6
  23.       Top             =   0
  24.       Width           =   2775
  25.       Begin VB.CommandButton c1 
  26.          Appearance      =   0  'Flat
  27.          DownPicture     =   "frmOptions.frx":000C
  28.          Height          =   350
  29.          Index           =   0
  30.          Left            =   120
  31.          Picture         =   "frmOptions.frx":0316
  32.          Style           =   1  'Graphical
  33.          TabIndex        =   21
  34.          Top             =   330
  35.          Width           =   500
  36.       End
  37.       Begin VB.CommandButton c1 
  38.          Appearance      =   0  'Flat
  39.          Height          =   350
  40.          Index           =   1
  41.          Left            =   630
  42.          Picture         =   "frmOptions.frx":0620
  43.          Style           =   1  'Graphical
  44.          TabIndex        =   20
  45.          Top             =   330
  46.          Width           =   500
  47.       End
  48.       Begin VB.CommandButton c1 
  49.          Appearance      =   0  'Flat
  50.          Height          =   350
  51.          Index           =   2
  52.          Left            =   1140
  53.          Picture         =   "frmOptions.frx":092A
  54.          Style           =   1  'Graphical
  55.          TabIndex        =   19
  56.          Top             =   330
  57.          Width           =   500
  58.       End
  59.       Begin VB.CommandButton c1 
  60.          Appearance      =   0  'Flat
  61.          Height          =   350
  62.          Index           =   3
  63.          Left            =   1650
  64.          Picture         =   "frmOptions.frx":0C34
  65.          Style           =   1  'Graphical
  66.          TabIndex        =   18
  67.          Top             =   330
  68.          Width           =   500
  69.       End
  70.       Begin VB.CommandButton c1 
  71.          Appearance      =   0  'Flat
  72.          Height          =   350
  73.          Index           =   4
  74.          Left            =   2160
  75.          Picture         =   "frmOptions.frx":0F3E
  76.          Style           =   1  'Graphical
  77.          TabIndex        =   17
  78.          Top             =   330
  79.          Width           =   500
  80.       End
  81.       Begin VB.CommandButton c1 
  82.          Appearance      =   0  'Flat
  83.          Height          =   350
  84.          Index           =   5
  85.          Left            =   120
  86.          Picture         =   "frmOptions.frx":1248
  87.          Style           =   1  'Graphical
  88.          TabIndex        =   16
  89.          Top             =   690
  90.          Width           =   500
  91.       End
  92.       Begin VB.CommandButton c1 
  93.          Appearance      =   0  'Flat
  94.          Height          =   350
  95.          Index           =   6
  96.          Left            =   630
  97.          Picture         =   "frmOptions.frx":1552
  98.          Style           =   1  'Graphical
  99.          TabIndex        =   15
  100.          Top             =   690
  101.          Width           =   500
  102.       End
  103.       Begin VB.CommandButton c1 
  104.          Appearance      =   0  'Flat
  105.          Height          =   350
  106.          Index           =   7
  107.          Left            =   1140
  108.          Picture         =   "frmOptions.frx":185C
  109.          Style           =   1  'Graphical
  110.          TabIndex        =   14
  111.          Top             =   690
  112.          Width           =   500
  113.       End
  114.       Begin VB.CommandButton c1 
  115.          Appearance      =   0  'Flat
  116.          Height          =   350
  117.          Index           =   8
  118.          Left            =   1650
  119.          Picture         =   "frmOptions.frx":1B66
  120.          Style           =   1  'Graphical
  121.          TabIndex        =   13
  122.          Top             =   690
  123.          Width           =   500
  124.       End
  125.       Begin VB.CommandButton c1 
  126.          Appearance      =   0  'Flat
  127.          Height          =   350
  128.          Index           =   9
  129.          Left            =   2160
  130.          Picture         =   "frmOptions.frx":1E70
  131.          Style           =   1  'Graphical
  132.          TabIndex        =   12
  133.          Top             =   690
  134.          Width           =   500
  135.       End
  136.       Begin VB.CommandButton c1 
  137.          Appearance      =   0  'Flat
  138.          Height          =   350
  139.          Index           =   10
  140.          Left            =   120
  141.          Picture         =   "frmOptions.frx":217A
  142.          Style           =   1  'Graphical
  143.          TabIndex        =   11
  144.          Top             =   1050
  145.          UseMaskColor    =   -1  'True
  146.          Width           =   500
  147.       End
  148.       Begin VB.CommandButton c1 
  149.          Appearance      =   0  'Flat
  150.          Height          =   350
  151.          Index           =   11
  152.          Left            =   630
  153.          Picture         =   "frmOptions.frx":2484
  154.          Style           =   1  'Graphical
  155.          TabIndex        =   10
  156.          Top             =   1050
  157.          Width           =   500
  158.       End
  159.       Begin VB.CommandButton c2 
  160.          Appearance      =   0  'Flat
  161.          Height          =   350
  162.          Index           =   0
  163.          Left            =   150
  164.          Picture         =   "frmOptions.frx":278E
  165.          Style           =   1  'Graphical
  166.          TabIndex        =   9
  167.          Top             =   1560
  168.          Width           =   500
  169.       End
  170.       Begin VB.CommandButton c2 
  171.          Appearance      =   0  'Flat
  172.          Height          =   350
  173.          Index           =   1
  174.          Left            =   660
  175.          Picture         =   "frmOptions.frx":2A98
  176.          Style           =   1  'Graphical
  177.          TabIndex        =   8
  178.          Top             =   1560
  179.          Width           =   500
  180.       End
  181.       Begin VB.CommandButton c2 
  182.          BackColor       =   &H000000FF&
  183.          Height          =   345
  184.          Index           =   2
  185.          Left            =   1200
  186.          MaskColor       =   &H8000000A&
  187.          Picture         =   "frmOptions.frx":2DA2
  188.          Style           =   1  'Graphical
  189.          TabIndex        =   7
  190.          Top             =   1560
  191.          UseMaskColor    =   -1  'True
  192.          Width           =   500
  193.       End
  194.       Begin VB.Line Line1 
  195.          X1              =   120
  196.          X2              =   2640
  197.          Y1              =   1470
  198.          Y2              =   1470
  199.       End
  200.    End
  201.    Begin VB.PictureBox picOptions 
  202.       BorderStyle     =   0  'None
  203.       Height          =   3780
  204.       Index           =   3
  205.       Left            =   -20000
  206.       ScaleHeight     =   3780
  207.       ScaleWidth      =   5685
  208.       TabIndex        =   2
  209.       TabStop         =   0   'False
  210.       Top             =   480
  211.       Width           =   5685
  212.       Begin VB.Frame fraSample4 
  213.          Caption         =   "Sample 4"
  214.          Height          =   1785
  215.          Left            =   2100
  216.          TabIndex        =   5
  217.          Top             =   840
  218.          Width           =   2055
  219.       End
  220.    End
  221.    Begin VB.PictureBox picOptions 
  222.       BorderStyle     =   0  'None
  223.       Height          =   3780
  224.       Index           =   2
  225.       Left            =   -20000
  226.       ScaleHeight     =   3780
  227.       ScaleWidth      =   5685
  228.       TabIndex        =   1
  229.       TabStop         =   0   'False
  230.       Top             =   480
  231.       Width           =   5685
  232.       Begin VB.Frame fraSample3 
  233.          Caption         =   "Sample 3"
  234.          Height          =   1785
  235.          Left            =   1545
  236.          TabIndex        =   4
  237.          Top             =   675
  238.          Width           =   2055
  239.       End
  240.    End
  241.    Begin VB.PictureBox picOptions 
  242.       BorderStyle     =   0  'None
  243.       Height          =   3780
  244.       Index           =   1
  245.       Left            =   -20000
  246.       ScaleHeight     =   3780
  247.       ScaleWidth      =   5685
  248.       TabIndex        =   0
  249.       TabStop         =   0   'False
  250.       Top             =   480
  251.       Width           =   5685
  252.       Begin VB.Frame fraSample2 
  253.          Caption         =   "Sample 2"
  254.          Height          =   1785
  255.          Left            =   645
  256.          TabIndex        =   3
  257.          Top             =   300
  258.          Width           =   2055
  259.       End
  260.    End
  261. Attribute VB_Name = "frmOptions"
  262. Attribute VB_GlobalNameSpace = False
  263. Attribute VB_Creatable = False
  264. Attribute VB_PredeclaredId = True
  265. Attribute VB_Exposed = False
  266. Option Explicit
  267. Private Sub c1_Click(Index As Integer)
  268.         '<EhHeader>
  269.         On Error GoTo c1_Click_Err
  270.         '</EhHeader>
  271. 100     duz_dev_ediyor = False
  272. 102     mymod = Index
  273.         '<EhFooter>
  274.         Exit Sub
  275. c1_Click_Err:
  276.         MsgBox err.Description & vbCrLf & _
  277.            "in Project1.frmOptions.c1_Click " & _
  278.            "at line " & Erl
  279.         Resume Next
  280.         '</EhFooter>
  281. End Sub
  282. Private Sub c2_Click(Index As Integer)
  283.     If Index = 0 Then MOV = True: start2 = True
  284.     If Index = 1 Then MOV = False: start2 = False
  285.     If Index = 2 Then
  286.         If myobject.Name = Form1.Name Then Exit Sub
  287.         If myobject.Index > 0 Then
  288.             If MsgBox(myobject.Name & " " & myobject.Index - 1 & " isimli nesneyi silmek istiyor musunuz?", vbYesNo, "Silme Onay
  289. ") = vbYes Then
  290.                 Unload myobject
  291.                 Set myobject = Form1
  292.             End If
  293.         End If
  294.     End If
  295. End Sub
  296. Private Sub Form_Activate()
  297.     mysel = False
  298. End Sub
  299.