Удалить / Изменить TabControl Padding для TabPages - PullRequest
Новая
       6

Удалить / Изменить TabControl Padding для TabPages

3 голосов
/ 15 июля 2011

Я использовал System.Windows.Forms.TabControl для отображения пользовательских страниц, но кажется, что для всех сторон Tabcontrol имеется жестко закодированный отступ в 3 пикселя.

Как я могу это убрать.Здесь я не хочу удалять вкладки сверху

http://social.msdn.microsoft.com/Forums/en-US/winforms/thread/a8c5bc93-8f76-42e7-b501-b12f8b5bd1eb/

Я нашел выше ссылку MSDN, которая удаляет поля со всех сторон, включая TabItems сверху, которые я не хочу.

Заранее спасибо!

1 Ответ

3 голосов
/ 16 июля 2011

Это единственный способ изменить это заполнение. 

Imports System.Runtime.InteropServices

Public Class NativeTabControl
    Inherits NativeWindow
    Private Const TCM_FIRST As Int32 = &H1300
    Private Const TCM_ADJUSTRECT As UInt32 = (TCM_FIRST + 40)
Private baseCtrl As TabControl

Public Sub New(ByVal ctrl As TabControl)
    Me.baseCtrl = ctrl
    AddHandler ctrl.HandleDestroyed, AddressOf OnHandleDestroyed
    Me.AssignHandle(ctrl.Handle)
End Sub

Private Sub OnHandleDestroyed(ByVal sender As Object, ByVal e As EventArgs)
    ' Window was destroyed, release hook.
    RemoveHandler baseCtrl.HandleDestroyed, AddressOf OnHandleDestroyed
    Me.ReleaseHandle()
End Sub

Protected Overrides Sub WndProc(ByRef m As Message)
    If (m.Msg = TCM_ADJUSTRECT) Then
        Dim rc As RECT = DirectCast(m.GetLParam(GetType(RECT)), RECT)
        'Adjust these values to suit, dependant upon Appearance
        rc.Left -= 3
        rc.Right += 1
        rc.Top -= 1
        rc.Bottom += 1
        Marshal.StructureToPtr(rc, m.LParam, True)
    End If
    MyBase.WndProc(m)
End Sub

Private Structure RECT
    Public Left, Top, Right, Bottom As Int32
End Structure
End Class
...