Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: MDIFORM
Autor: Braindead
Datum: 15.02.02 11:43
Ok ich schick dir den kompletten Quellcode ( einfach in TXT - Files Kopierern ) Da haste auch gleich die Einstellungen mit ------- frmMDI.frm ----- VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.MDIForm frmMDI BackColor = &H8000000C& Caption = "Test" ClientHeight = 7005 ClientLeft = 60 ClientTop = 630 ClientWidth = 10785 LinkTopic = "MDIForm1" LockControls = -1 'True StartUpPosition = 2 'Bildschirmmitte Begin MSComctlLib.StatusBar StatusBar1 Align = 2 'Unten ausrichten Height = 255 Left = 0 TabIndex = 0 Top = 6750 Width = 10785 _ExtentX = 19024 _ExtentY = 450 _Version = 393216 BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} NumPanels = 1 BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} Object.Width = 19024 MinWidth = 19024 EndProperty EndProperty End Begin MSComctlLib.ImageList ImageList1 Left = 1680 Top = 720 _ExtentX = 1005 _ExtentY = 1005 BackColor = -2147483643 MaskColor = 12632256 _Version = 393216 End Begin VB.Menu mnuDatei Caption = "&Datei" End End Attribute VB_Name = "frmMDI" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub mnuDatei_Click() Dim fChild As New mdiEdit fChild.Show End Sub -------- ende ------- -------- mdiEdit.frm ------- VERSION 5.00 Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form mdiEdit BackColor = &H8000000A& ClientHeight = 3240 ClientLeft = 60 ClientTop = 345 ClientWidth = 4680 LinkTopic = "Form1" LockControls = -1 'True MDIChild = -1 'True ScaleHeight = 3240 ScaleWidth = 4680 Begin MSComctlLib.TreeView Tree Height = 3255 Left = 0 TabIndex = 0 Top = 0 Width = 4695 _ExtentX = 8281 _ExtentY = 5741 _Version = 393217 LabelEdit = 1 LineStyle = 1 Style = 7 HotTracking = -1 'True Appearance = 1 End End Attribute VB_Name = "mdiEdit" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Form_Resize() Tree.Width = mdiEdit.ScaleWidth Tree.Height = mdiEdit.ScaleHeight End Sub --------- Ende ------- So das wars. Danke im vorraus.

MDIFORM	99	Braindead	15.02.02 08:09
Re: MDIFORM	330	Dieter	15.02.02 09:11
Re: MDIFORM	64	Braindead	15.02.02 09:49
Re: MDIFORM	51	Braindead	15.02.02 09:53
Re: MDIFORM	319	Dieter	15.02.02 11:15
Re: MDIFORM	70	Braindead	15.02.02 11:43
Re: MDIFORM	313	Dieter	15.02.02 13:02
Re: MDIFORM	64	Braindead	15.02.02 13:08

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen