Форма с навигацией как в VS

@Aleks777 · Регистрация: 13.04.2015

Студворк — интернет-сервис помощи студентам

Добрый день!
Подскажите из каких элементов и где их взять состоит форма как на скрине(окно свойств проекта VS2015).
Хочу подобную форму запилить для настроек своей проге.

@Yury Komar · 31.05.2017, 15:55

Aleks777, самому писать такую структуру... ну а кнопки и текстовые поля - думаю вы и сами знаете где взять..?

@Aleks777 · 31.05.2017, 16:13 **[ТС]**

Сообщение от Yury Komar

ну а кнопки и текстовые поля - думаю вы и сами знаете где взять..?

ага

думал может есть какие готовые.

@Yury Komar · 31.05.2017, 17:09

Aleks777, самый простейший способ, это использовать родной TabControl и просто рисовать вкладки так, как вашей душе угодно, вот вам пример:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        With TabControl1
            .Alignment = TabAlignment.Left
            .Dock = DockStyle.Fill
            .DrawMode = TabDrawMode.OwnerDrawFixed
            .Multiline = True
            .Padding = New System.Drawing.Point(0, 50)
        End With
    End Sub
 
    Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
        Dim g As Graphics = e.Graphics
        Dim _TextBrush As Brush
 
        ' Get the item from the collection.
        Dim _TabPage As TabPage = TabControl1.TabPages(e.Index)
 
        ' Get the real bounds for the tab rectangle.
        Dim _TabBounds As Rectangle = TabControl1.GetTabRect(e.Index)
 
        If (e.State = DrawItemState.Selected) Then
            ' Draw a different background color, and don't paint a focus rectangle.
            _TextBrush = New SolidBrush(Color.Blue)
            g.FillRectangle(Brushes.LightBlue, e.Bounds)
        Else
            _TextBrush = New System.Drawing.SolidBrush(e.ForeColor)
            e.DrawBackground()
        End If
 
        ' Use our own font.
        Dim _TabFont As New Font("Arial", 12.0, FontStyle.Regular, GraphicsUnit.Pixel)
 
        ' Draw string. Center the text.
        Dim _StringFlags As New StringFormat()
        _StringFlags.Alignment = StringAlignment.Near
        _StringFlags.LineAlignment = StringAlignment.Center
        g.DrawString(_TabPage.Text, _TabFont, _TextBrush, _TabBounds, New StringFormat(_StringFlags))
    End Sub
 
End Class

@Aleks777 · 31.05.2017, 17:18 **[ТС]**

Yury Komar, спасибо

@Yury Komar · 31.05.2017, 17:36

Не по теме:

Aleks777, Щас поищу, где-то был класс по типу формы настроек браузера Google Chrome

@Yury Komar · 31.05.2017, 17:46

Вот, ChromeTabControl, сделан по тому же принципу, что и первый пример, только минус - фон всегда белый, это вы конечно можете сами подправить в коде данного класса, а так, весьма просто, и по мне, так даже симпотно:

Класс контрола ChromeTabControl

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Class ChromeTabControl
    Inherits TabControl
 
    Sub New()
        SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint Or ControlStyles.DoubleBuffer, True)
        DoubleBuffered = True
        SizeMode = TabSizeMode.Fixed
        ItemSize = New Size(30, 115)
    End Sub
    Protected Overrides Sub CreateHandle()
        MyBase.CreateHandle()
        Alignment = TabAlignment.Left
    End Sub
 
    Dim C1 As Color = Color.FromArgb(78, 87, 100)
    Property SquareColor As Color
        Get
            Return C1
        End Get
        Set(ByVal value As Color)
            C1 = value
            Invalidate()
        End Set
    End Property
 
    Dim OB As Boolean = False
    Property ShowOuterBorders As Boolean
        Get
            Return OB
        End Get
        Set(ByVal value As Boolean)
            OB = value
            Invalidate()
        End Set
    End Property
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim B As New Bitmap(Width, Height)
        Dim G As Graphics = Graphics.FromImage(B)
        Try : SelectedTab.BackColor = Color.White : Catch : End Try
        G.Clear(Color.White)
        For i = 0 To TabCount - 1
            Dim x2 As Rectangle = New Rectangle(New Point(GetTabRect(i).Location.X - 2, GetTabRect(i).Location.Y - 2), New Size(GetTabRect(i).Width + 3, GetTabRect(i).Height - 1))
            Dim textrectangle As New Rectangle(x2.Location.X + 20, x2.Location.Y, x2.Width - 20, x2.Height)
            If i = SelectedIndex Then
                G.FillRectangle(New SolidBrush(C1), New Rectangle(x2.Location, New Size(9, x2.Height)))
 
 
                If ImageList IsNot Nothing Then
                    Try
                        If ImageList.Images(TabPages(i).ImageIndex) IsNot Nothing Then
                            G.DrawImage(ImageList.Images(TabPages(i).ImageIndex), New Point(textrectangle.Location.X + 8, textrectangle.Location.Y + 6))
                            G.DrawString("      " & TabPages(i).Text, Font, Brushes.Black, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near})
                        Else
                            G.DrawString(TabPages(i).Text, Font, Brushes.Black, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near})
                        End If
                    Catch ex As Exception
                        G.DrawString(TabPages(i).Text, Font, Brushes.Black, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near})
                    End Try
                Else
                    G.DrawString(TabPages(i).Text, Font, Brushes.Black, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near})
                End If
 
            Else
                If ImageList IsNot Nothing Then
                    Try
                        If ImageList.Images(TabPages(i).ImageIndex) IsNot Nothing Then
                            G.DrawImage(ImageList.Images(TabPages(i).ImageIndex), New Point(textrectangle.Location.X + 8, textrectangle.Location.Y + 6))
                            G.DrawString("      " & TabPages(i).Text, Font, Brushes.DimGray, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near})
                        Else
                            G.DrawString(TabPages(i).Text, Font, Brushes.DimGray, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near})
                        End If
                    Catch ex As Exception
                        G.DrawString(TabPages(i).Text, Font, Brushes.DimGray, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near})
                    End Try
                Else
                    G.DrawString(TabPages(i).Text, Font, Brushes.DimGray, textrectangle, New StringFormat With {.LineAlignment = StringAlignment.Center, .Alignment = StringAlignment.Near})
                End If
            End If
        Next
 
        e.Graphics.DrawImage(B.Clone, 0, 0)
        G.Dispose() : B.Dispose()
    End Sub
End Class

@Aleks777 · 31.05.2017, 17:58 **[ТС]**

Yury Komar, спасибо большое, хром и правда симпатичнее смотрится

@Yury Komar · 31.05.2017, 17:58

В довесок, скину тебе скин в стиле Хрома (кнопка, радиокнопка, чекбокс, разделительная линия, Табконтрол, контейнер)
так скачать, если решишь делать в стиле хрома, так что хоть более менее похоже было

Класс Тема GoogleChrome

Chrome.zip

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

Форма с навигацией как в VS

Решение

Решение

Решение

@Aleks777 96 / 92 / 16 Регистрация: 13.04.2015 Сообщений: 545

	Форма с навигацией как в VS 31.05.2017, 15:52. Показов 1087. Ответов 8 Метки нет (Все метки) Добрый день! Подскажите из каких элементов и где их взять состоит форма как на скрине(окно свойств проекта VS2015). Хочу подобную форму запилить для настроек своей проге. Миниатюры 0

@Yury Komar Модератор 4358 / 3428 / 512 Регистрация: 27.01.2014 Сообщений: 6,258
	31.05.2017, 15:55
	Aleks777, самому писать такую структуру... ну а кнопки и текстовые поля - думаю вы и сами знаете где взять..? 0

@Aleks777 96 / 92 / 16 Регистрация: 13.04.2015 Сообщений: 545
	31.05.2017, 17:18 [ТС]
	Yury Komar, спасибо 0

@Yury Komar
	31.05.2017, 17:36
	Не по теме: Aleks777, Щас поищу, где-то был класс по типу формы настроек браузера Google Chrome 0

@Aleks777 96 / 92 / 16 Регистрация: 13.04.2015 Сообщений: 545
	31.05.2017, 17:58 [ТС]
	Yury Komar, спасибо большое, хром и правда симпатичнее смотрится 0

@Yury Komar Модератор 4358 / 3428 / 512 Регистрация: 27.01.2014 Сообщений: 6,258
	31.05.2017, 17:58
	Сообщение было отмечено Yury Komar как решение Решение В довесок, скину тебе скин в стиле Хрома (кнопка, радиокнопка, чекбокс, разделительная линия, Табконтрол, контейнер) так скачать, если решишь делать в стиле хрома, так что хоть более менее похоже было Класс Тема GoogleChrome Chrome.zip 4