home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD39753142000.psc / Demo / Test.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-03-14  |  7.2 KB  |  258 lines
  1. VERSION 5.00
  2. Object = "*\A..\..\..\CREATE~1\CONTRO~2\MDIActiveX.vbp"
  3. Begin VB.Form Form1 
  4.    Caption         =   "EURO Rechner 1.0"
  5.    ClientHeight    =   3135
  6.    ClientLeft      =   165
  7.    ClientTop       =   735
  8.    ClientWidth     =   4905
  9.    Icon            =   "Test.frx":0000
  10.    KeyPreview      =   -1  'True
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3135
  13.    ScaleWidth      =   4905
  14.    StartUpPosition =   3  'Windows-Standard
  15.    Begin sMDIinActiveX.MDIActiveX MDIActiveX1 
  16.       Left            =   3120
  17.       Top             =   0
  18.       _ExtentX        =   847
  19.       _ExtentY        =   794
  20.    End
  21.    Begin VB.CommandButton Command5 
  22.       Caption         =   "Verkleinern..."
  23.       Height          =   330
  24.       Left            =   2295
  25.       TabIndex        =   8
  26.       Top             =   1215
  27.       Width           =   1635
  28.    End
  29.    Begin VB.CommandButton Command4 
  30.       Caption         =   "Vergr
  31. ern..."
  32.       Height          =   330
  33.       Left            =   315
  34.       TabIndex        =   7
  35.       Top             =   1215
  36.       Width           =   1635
  37.    End
  38.    Begin VB.CommandButton Command3 
  39.       Caption         =   "EURO Rechner beenden..."
  40.       Height          =   375
  41.       Left            =   315
  42.       TabIndex        =   5
  43.       Top             =   1665
  44.       Width           =   3615
  45.    End
  46.    Begin VB.CommandButton Command2 
  47.       Caption         =   "&Caption 
  48. ndern..."
  49.       Height          =   330
  50.       Left            =   2295
  51.       TabIndex        =   4
  52.       Top             =   765
  53.       Width           =   1635
  54.    End
  55.    Begin VB.CommandButton Command1 
  56.       Caption         =   "&Icon 
  57. ndern..."
  58.       Height          =   330
  59.       Left            =   315
  60.       TabIndex        =   3
  61.       Top             =   765
  62.       Width           =   1635
  63.    End
  64.    Begin VB.PictureBox Picture1 
  65.       Height          =   330
  66.       Left            =   4005
  67.       Picture         =   "Test.frx":0442
  68.       ScaleHeight     =   270
  69.       ScaleWidth      =   270
  70.       TabIndex        =   2
  71.       Top             =   225
  72.       Visible         =   0   'False
  73.       Width           =   330
  74.    End
  75.    Begin VB.TextBox Text1 
  76.       Height          =   330
  77.       Left            =   810
  78.       TabIndex        =   0
  79.       Text            =   "100.00"
  80.       Top             =   90
  81.       Width           =   2130
  82.    End
  83.    Begin VB.Label Label2 
  84.       Caption         =   "Dieses Fenster wurde in einer ActiveX-DLL erstellt und besitzt ein eigenes Men
  85.       ForeColor       =   &H000000C0&
  86.       Height          =   465
  87.       Left            =   225
  88.       TabIndex        =   6
  89.       Top             =   2160
  90.       Width           =   4020
  91.    End
  92.    Begin VB.Label Label1 
  93.       Caption         =   "Betrag"
  94.       Height          =   240
  95.       Left            =   180
  96.       TabIndex        =   1
  97.       Top             =   135
  98.       Width           =   600
  99.    End
  100.    Begin VB.Menu Active 
  101.       Caption         =   "ActiveX-DLL"
  102.       Begin VB.Menu Laden 
  103.          Caption         =   "&Laden"
  104.          Shortcut        =   ^L
  105.       End
  106.       Begin VB.Menu l
  107. schen 
  108.          Caption         =   "L
  109. &schen"
  110.          Shortcut        =   ^S
  111.       End
  112.       Begin VB.Menu Editor 
  113.          Caption         =   "&Editor"
  114.       End
  115.       Begin VB.Menu trennung 
  116.          Caption         =   "-"
  117.       End
  118.       Begin VB.Menu Normal 
  119.          Caption         =   "Normales MDIChild"
  120.       End
  121.    End
  122.    Begin VB.Menu umrechnen 
  123.       Caption         =   "Umrechnen"
  124.       Begin VB.Menu ats 
  125.          Caption         =   "In ATS"
  126.          Shortcut        =   {F11}
  127.       End
  128.       Begin VB.Menu EURO 
  129.          Caption         =   "In EURO"
  130.          Shortcut        =   {F12}
  131.       End
  132.    End
  133.    Begin VB.Menu Fenster 
  134.       Caption         =   "Fenster"
  135.       WindowList      =   -1  'True
  136.       Begin VB.Menu Cascade 
  137.          Caption         =   "Cascade"
  138.          Shortcut        =   {F5}
  139.       End
  140.       Begin VB.Menu Tile 
  141.          Caption         =   "Tile"
  142.          Shortcut        =   {F6}
  143.       End
  144.       Begin VB.Menu dummy 
  145.          Caption         =   "-"
  146.       End
  147.       Begin VB.Menu felder 
  148.          Caption         =   "EURO Felder L
  149. schen"
  150.       End
  151.    End
  152.    Begin VB.Menu Hilfe 
  153.       Caption         =   "Hilfe"
  154.       Begin VB.Menu About 
  155.          Caption         =   "About"
  156.          Shortcut        =   {F1}
  157.       End
  158.       Begin VB.Menu copyright 
  159.          Caption         =   "Copyright"
  160.       End
  161.       Begin VB.Menu VersionOCX 
  162.          Caption         =   "Version OCX"
  163.       End
  164.       Begin VB.Menu VersionDLL 
  165.          Caption         =   "Version DLL"
  166.       End
  167.    End
  168. Attribute VB_Name = "Form1"
  169. Attribute VB_GlobalNameSpace = False
  170. Attribute VB_Creatable = False
  171. Attribute VB_PredeclaredId = True
  172. Attribute VB_Exposed = False
  173. Private Sub About_Click()
  174.   MsgBox "EURO Rechner 1.0"
  175. End Sub
  176. Private Sub ats_Click()
  177.   MsgBox "Betrag in ATS = " & Val(Me.Text1) * 13.7603
  178.   Me.Text1 = ""
  179. End Sub
  180. Private Sub Cascade_Click()
  181. 'Zugriff auf die MDIForm!
  182.   Me.MDIActiveX1.MDIForm.Arrange vbCascade
  183. End Sub
  184. Private Sub Command1_Click()
  185.   Me.Icon = Me.Picture1.Picture
  186. End Sub
  187. Private Sub Command2_Click()
  188.   Me.Caption = "EURO Rechner / " & Now
  189. End Sub
  190. Private Sub Command3_Click()
  191.   Unload Me
  192. End Sub
  193. Private Sub Command4_Click()
  194.   Me.Width = Me.Width * 1.3
  195.   Me.Height = Me.Height * 1.3
  196. End Sub
  197. Private Sub Command5_Click()
  198.   Me.Width = Me.Width * 0.8
  199.   Me.Height = Me.Height * 0.8
  200. End Sub
  201. Private Sub copyright_Click()
  202.   MsgBox Me.MDIActiveX1.copyright
  203. End Sub
  204. Private Sub Editor_Click()
  205.   Me.MDIActiveX1.MDIForm.ladeeditor
  206. End Sub
  207. Private Sub EURO_Click()
  208.   MsgBox "Betrag in EURO = " & Val(Me.Text1) / 13.7603
  209.   Me.Text1 = ""
  210. End Sub
  211. Private Sub felder_Click()
  212.   Me.MDIActiveX1.MDIForm.enumchild
  213. End Sub
  214. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  215. 'Seit Version 1.0.2 unn
  216. 'need not to do this in Version 1.0.2
  217. ''z.B. Strg+F6 verarbeiten....
  218. '   Me.MDIActiveX1.EvalKeyDown KeyCode, Shift
  219. End Sub
  220. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  221. 'Sollte im Textfeld etwas stehen, so nachfragen!
  222. 'if there is something in text1 --> ask
  223.   If Me.Text1 <> "" Then
  224.     If MsgBox("Wirklich beenden?", vbYesNo, "EURO Rechner") <> vbYes Then
  225.       Cancel = True
  226.     End If
  227.   End If
  228. End Sub
  229. Private Sub Laden_Click()
  230. 'Eine Public Sub in MDIForm1 aufrufen..
  231. 'Call a Public Sub of MDIForm1
  232.   Me.MDIActiveX1.MDIForm.LadeRechner
  233. End Sub
  234. Private Sub L
  235. schen_Click()
  236. 'Eine Public Sub in MDIForm1 aufrufen..
  237. 'Call a Public Sub of MDIForm1
  238.   Me.MDIActiveX1.MDIForm.entladen
  239. End Sub
  240. Private Sub Normal_Click()
  241. 'Eine Public Sub in MDIForm1 aufrufen..
  242. 'Call a Public Sub of MDIForm1
  243.   Me.MDIActiveX1.MDIForm.LadeNormal
  244. End Sub
  245. Private Sub Tile_Click()
  246. 'Zugriff auf die MDIForm!
  247.   Me.MDIActiveX1.MDIForm.Arrange vbTileHorizontal
  248. End Sub
  249. Private Sub VersionDLL_Click()
  250. 'Eigene Men
  251. punkte
  252. 'Menus only in this form
  253.   MsgBox "EURO Rechner Version " & App.Major & "." & App.Minor & "." & App.Revision
  254. End Sub
  255. Private Sub VersionOCX_Click()
  256.   MsgBox "MDIActiveX.ocx Version " & Me.MDIActiveX1.Version
  257. End Sub
  258.