Me.Label6.TabIndex = 5 ' ' Label7 ' Me.Label7.BackColor = ( CType( CType( 255, Byte), Integer), CType( CType( 192, Byte), Integer), CType( CType( 192, Byte), Integer)) Me.Label5.TabIndex = 4 ' ' Label6 ' Me.Label6.BackColor = ( CType( CType( 255, Byte), Integer), CType( CType( 224, Byte), Integer), CType( CType( 192, Byte), Integer)) Me.Label4.TabIndex = 3 ' ' Label5 ' Me.Label5.BackColor = ( CType( CType( 255, Byte), Integer), CType( CType( 255, Byte), Integer), CType( CType( 192, Byte), Integer)) Me.Label3.TabIndex = 2 ' ' Label4 ' Me.Label4.BackColor = ( CType( CType( 192, Byte), Integer), CType( CType( 255, Byte), Integer), CType( CType( 192, Byte), Integer)) Me.Label2.TabIndex = 1 ' ' Label3 ' Me.Label3.BackColor = ( CType( CType( 192, Byte), Integer), CType( CType( 255, Byte), Integer), CType( CType( 255, Byte), Integer)) Me.Label1.TabIndex = 0 Me.Label1.Text = " Label1" ' ' Label2 ' Me.Label2.BackColor = ( CType( CType( 192, Byte), Integer), CType( CType( 192, Byte), Integer), CType( CType( 255, Byte), Integer)) ' ' Label1 ' Me.Label1.BackColor = ( CType( CType( 255, Byte), Integer), CType( CType( 192, Byte), Integer), CType( CType( 255, Byte), Integer))
#USERCONTROL AUTOSCALEMODE INHERIT FONT CODE#
' Do not modify it using the code editor.
#USERCONTROL AUTOSCALEMODE INHERIT FONT WINDOWS#
' NOTE: The following procedure is required by the Windows Form Designer ' It can be modified using the Windows Form Designer. Try If disposing AndAlso components IsNot Nothing ThenĮnd Try End Sub ' Required by the Windows Form Designer Private components As Protected Overrides Sub Dispose( ByVal disposing As Boolean) ' UserControl1 overrides dispose to clean up the component list. I placed this user control on a Form and added few items in the design time of the formĪll the above items are loaded during the load event of the user Control. My User Control is fixed size and having Nine Label Controls covering the total user control. MsgBox( " Count at P = " & Me.Count.ToString) If e.PropertyName.ToString = " Count" Then Return End Sub Private Sub ItemsCollection_Propert圜hanged( ByVal sender As Object, ByVal e As 圜hangedEventArgs) Handles Me.Propert圜hanged Get Return Nothing End Get End Property Public Function MoveNext() As Boolean Implements Įnd Function Public Sub Reset() Implements Public ReadOnly Property Current() As Object Implements Implements INotifyPropert圜hanged, IEnumerable, IEnumerator Private static bool IsSameFont( a, ( Of String) If (ctrl is ITableControl & ((ITableControl)ctrl).IsTableNeeded) If (ctrl is ToolStrip || ctrl is StatusStrip)
If (!IsSameFont(container.Font, ))ĬontainerControl container = ctrl as ContainerControl Ĭontainer.AutoScaleMode = AutoScaleMode.Inherit Private static void updateFontOnControls(this Control ctrl)Ĭontainer.AutoScaleMode = AutoScaleMode.Font Public static void UpdateFont(this Form form) I use an extension method to apply the configured font to the dialog: public static class FormExtension Set the font for each ContainerControl and some special controls on the parent. Do not set the Font for the MDI Parent!! The new child will be opened using the parents font and will not resize. The Load event has a different event chain and will not recalculate reliable the layout for an MDI Child.Ģ. The solution in simple but tricky to find.ġ.
0 kommentar(er)
