Visual Basic World - Programmierung und BeispieleVisual Basic World - Tipps und TutorialsVisual Basic World - Source-Code und Forum

<leer>

Tipp 035: Die SetParent API-Funktion und ihre Verwendung

Autor: Benjamin Wilger   VB-Version: Visual Basic 6.0   Download: Beispielprojekt Tipp-035

Beschreibung

Wie Sie mit der SetParent API-Funktion zum Beispiel eine eigene MDI-Umgebung umsetzen könnten demonstriert dieses Beispiel, bei dem eine Form in eine fremde TextBox "eingesperrt" wird. Damit die Form dort nicht für immer verweilen muss können Sie sie natürlich auch wieder "freilassen", ebenfalls mit Hilfe der SetParent-Funktion.

Quellcode

Form1
Form                     Form1
' VISUAL BASIC WORLD
' ===========================================
' Das große Portal zum Thema Visual Basic.
'
' Wenn Ihnen dieser Source Code gefallen hat,
' dann empfehlen Sie Visual Basic World bitte
' weiter und/oder setzen Sie einen Link auf:
'
' http://www.visualbasicworld.de/
'
' Vernetzen Sie sich mit uns:
'
' http://twitter.com/visualbasicwrld
'
' Autor: Benjamin Wilger

Option Explicit
Private Sub Form_Paint() Form2.Show Form2.Left = Form1.Left - Form2.Width Form2.Top = Form1.Top End Sub


Form2
Form                     Form2
CommandButton            Command1
CommandButton            Command2
' VISUAL BASIC WORLD
' ===========================================
' Das große Portal zum Thema Visual Basic.
'
' Wenn Ihnen dieser Source Code gefallen hat,
' dann empfehlen Sie Visual Basic World bitte
' weiter und/oder setzen Sie einen Link auf:
'
' http://www.visualbasicworld.de/
'
' Vernetzen Sie sich mit uns:
'
' http://twitter.com/visualbasicwrld
'
' Autor: Benjamin Wilger

Option Explicit Private Declare Function SetParent Lib "user32" _ (ByVal hWndChild As Long, _ ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click() Me.Move 0, 0 SetParent Form2.hWnd, Form1.Text1.hWnd Command1.Enabled = False Command2.Enabled = True End Sub
Private Sub Command2_Click() Me.Move Screen.Width / 2 - Me.Width / 2, _ Screen.Height / 2 - Me.Height / 2 SetParent Form2.hWnd, 0& Command1.Enabled = True Command2.Enabled = False End Sub
Private Sub Form_Unload(Cancel As Integer) End End Sub

ANZEIGE <leer>
<leer> Aktuelle Seite Back To Top
Druckansicht | Feedback | Favoriten
Copyright © Visual Basic World, 2000-2014 | Kontakt | Impressum

Visual Basic World @ Twitter

Folgen Sie Visual Basic World!

Visual Basic World @ Twitter
Wenn Ihnen Visual Basic World gefällt, dann folgen Sie uns doch bei Twitter (@visualbasicwrld).
Vielen Dank!



Fragen & Forum

Wenn Sie offene Fragen zur Programmierung mit Visual Basic haben und in der Tipps & Tricks Sektion oder bei den Tutorials nicht fündig wurden, dann werfen Sie doch einen Blick ins Visual Basic World Forum.


Visual Basic World Forum

Im Forum erhalten Sie schnell Hilfe und finden eine Vielzahl an bereits beantworteten Fragen und Problemen.

Viel Vergnügen bei der Benutzung!


Fotografie & Design

Fotograf in Mannheim und Heidelberg.

Unterstützen Sie VB-World!

Wenn Ihnen Visual Basic World gefällt, dann unterstützen Sie uns!



Das geht am einfachsten, indem Sie einen Link auf visualbasicworld.de setzen oder senden Sie doch folgende QR-Grafik an Ihre Freunde:

Visual Basic World

Außerdem würden wir uns sehr freuen, wenn Sie uns bei Twitter (@visualbasicwrld) folgen.
Vielen Dank!