home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / grafik / show3d / form1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-02-27  |  3.7 KB  |  124 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "3D-ohne THREED.VBX (nur VB-Code)"
  5.    ClientHeight    =   2430
  6.    ClientLeft      =   4440
  7.    ClientTop       =   3585
  8.    ClientWidth     =   4830
  9.    Height          =   2835
  10.    Left            =   4380
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   2430
  13.    ScaleWidth      =   4830
  14.    Top             =   3240
  15.    Width           =   4950
  16.    Begin CommandButton Command2 
  17.       Caption         =   "Abbruch"
  18.       FontBold        =   0   'False
  19.       FontItalic      =   0   'False
  20.       FontName        =   "MS Sans Serif"
  21.       FontSize        =   9.75
  22.       FontStrikethru  =   0   'False
  23.       FontUnderline   =   0   'False
  24.       Height          =   375
  25.       Left            =   1560
  26.       TabIndex        =   5
  27.       Top             =   1800
  28.       Width           =   1095
  29.    End
  30.    Begin CommandButton Command1 
  31.       Caption         =   "OK"
  32.       FontBold        =   0   'False
  33.       FontItalic      =   0   'False
  34.       FontName        =   "MS Sans Serif"
  35.       FontSize        =   9.75
  36.       FontStrikethru  =   0   'False
  37.       FontUnderline   =   0   'False
  38.       Height          =   375
  39.       Left            =   240
  40.       TabIndex        =   4
  41.       Top             =   1800
  42.       Width           =   1215
  43.    End
  44.    Begin ComboBox cmbAuswahl 
  45.       FontBold        =   0   'False
  46.       FontItalic      =   0   'False
  47.       FontName        =   "MS Sans Serif"
  48.       FontSize        =   9.75
  49.       FontStrikethru  =   0   'False
  50.       FontUnderline   =   0   'False
  51.       Height          =   360
  52.       Left            =   1440
  53.       Style           =   2  'Dropdown List
  54.       TabIndex        =   2
  55.       Top             =   960
  56.       Width           =   3135
  57.    End
  58.    Begin TextBox txtAnzeige 
  59.       FontBold        =   0   'False
  60.       FontItalic      =   0   'False
  61.       FontName        =   "MS Sans Serif"
  62.       FontSize        =   9.75
  63.       FontStrikethru  =   0   'False
  64.       FontUnderline   =   0   'False
  65.       Height          =   360
  66.       Left            =   1440
  67.       TabIndex        =   0
  68.       Top             =   480
  69.       Width           =   3135
  70.    End
  71.    Begin Shape Shape2 
  72.       Height          =   375
  73.       Left            =   4140
  74.       Top             =   1920
  75.       Width           =   435
  76.    End
  77.    Begin Shape Shape1 
  78.       Height          =   375
  79.       Left            =   4020
  80.       Top             =   1800
  81.       Width           =   435
  82.    End
  83.    Begin Line Line1 
  84.       X1              =   240
  85.       X2              =   4560
  86.       Y1              =   1560
  87.       Y2              =   1560
  88.    End
  89.    Begin Label Label2 
  90.       Caption         =   "Auswahl:"
  91.       FontBold        =   0   'False
  92.       FontItalic      =   0   'False
  93.       FontName        =   "MS Sans Serif"
  94.       FontSize        =   9.75
  95.       FontStrikethru  =   0   'False
  96.       FontUnderline   =   0   'False
  97.       Height          =   255
  98.       Left            =   240
  99.       TabIndex        =   3
  100.       Top             =   1020
  101.       Width           =   975
  102.    End
  103.    Begin Label Label1 
  104.       Caption         =   "Anzeige:"
  105.       FontBold        =   0   'False
  106.       FontItalic      =   0   'False
  107.       FontName        =   "MS Sans Serif"
  108.       FontSize        =   9.75
  109.       FontStrikethru  =   0   'False
  110.       FontUnderline   =   0   'False
  111.       Height          =   255
  112.       Left            =   240
  113.       TabIndex        =   1
  114.       Top             =   480
  115.       Width           =   975
  116.    End
  117. Sub Form_Load ()
  118. show3D Me
  119. P_ResizeFormCenter Me
  120. cmbAuswahl.AddItem "Auswahl 1"
  121. cmbAuswahl.AddItem "Auswahl 2"
  122. cmbAuswahl.AddItem "Auswahl 3"
  123. End Sub
  124.