Aktualisiert: 18.05.2007
Newest
  Tipps & Tricks
1.) Anpassung Controls an ein Formular (VB6)
2.) Kopier-Wiederaufnahme (VB6)
3.) Uhrzeit - alle Kürzel (VB6)
4.) Eigene IP-Addresse auslesen (VB6)
5.) Felder - Arrays (allgemeines, deklarieren) (VB.NET)
  Tutorials
1.) Prüfziffernverfahren österreichischer Sozialversic (VB6)
2.) Kommunikation zwischen Formularen bzw. Modulen (VB.NET)
3.) Musikdatein mittels API abspielen (VB6)
4.) Inputbox mit zusätzlichem Button (VB6)
5.) Access & MySQL | Teil 2/2 (VB6)
  Neueste Kommentare
  (letzten 50)
Thomas(21.02.2007 - 14:03)
Dag Johans..(16.11.2006 - 03:44)
Sebi2020(20.10.2006 - 21:43)
Suchen


Grundlagen  (20) | Grafik  (9) | Dateisystem  (9) | Multimedia  (3) | Datenbank  (5)
Drucker  (7) | System  (12) | Internet  (2) | Controls  (16) | Sonstiges  (12)
 95 Tipps & Tricks in der Datenbank 
 Controls > Anpassung Controls an ein Formular     Kommentar schreiben/ansehen  |  von MiB 
Anpassung Controls an ein Formular


Vielen Dank an unseren Member Claus , der uns diesen Tipp zur Verfügung gestellt hat!


Fügen Sie folgenden Code ein.
Dann plazieren Sie darauf diverse Controls, um die Veränderungen deutlich zu machen.

Private Sub Form_Load()

Me.ScaleMode = vbUser
Me.ScaleHeight = 100000
Me.ScaleWidth = 100000

Dim ctr As Control
Dim T(1 To 5) As String

For Each ctr In Me.Controls
T(1) = CStr(ctr.Left)
T(2) = CStr(ctr.Top)
T(3) = CStr(ctr.Width)
T(4) = CStr(ctr.Height)
T(5) = CStr(Me.Width / ctr.FontSize)
ctr.Tag = Join(T, ";")
Next
End Sub

Private Sub Form_Resize()
Dim T As Variant
Dim ctr As Control

If Me.Height < 600 Then
Me.Height = 600
End If

Me.ScaleHeight = 100000
Me.ScaleWidth = 100000

On Error Resume Next

For Each ctr In Me.Controls
T = Split(ctr.Tag, ";")
With ctr
.Left = Val(T(0))
.Top = Val(T(1))
.Width = Val(T(2))
.Height = Val(T(3))
'mit der nachfolgenden Zeile kann auch die Schrift angepasst werden:
'.FontSize = Me.Width / Val(T(4))
End With
Next
End Sub


dazugefügt am: 07.10.2005 | bereits betrachtet: 26263 mal   


 3 Kommentare      TOP  
Name:  
Email:  
Kommentar:  
   
 3.)  Sebi  schrieb am 16.08.2006
Schön und gut, aber ich möchte den Code auch verstehen, und wo hast du CStr definiert?
 2.)  Benny  schrieb am 04.04.2006
Ist bei Standartsachen wirklich eine schöne angelegenheit. Sobald ich aber Frame´s oder Tabs oder ähnliches habe, sieht es auch wieder düster aus! :-(
 1.)  Dieter  schrieb am 11.01.2006
einfach und genial
Empfehlen Sie diese Seite | zu Favoriten hinzufügen  Copyright 2004 by visualbasic.at