Ответы пользователя по тегу Visual Basic
  • Управляемые вкладки как в Microsoft Excel?

    @KriBetko
    На форме: TabControl - TabControl1, ContextMenuStrip - ContextMenuStrip1 с пунктом Delete

    Private Sub TabControl1_Selected(sender As Object, e As TabControlEventArgs) Handles TabControl1.Selected 'событие Selected при выборе вкладки
            If (e.TabPage.Text = "+") Then 'если вкладка имеет текст +
                e.TabPage.Text = "TabPage" + TabControl1.TabPages.Count.ToString() 'переименовываем текущую вкладку
                TabControl1.TabPages.Add("+") 'добавляем новую вкладку
            End If
        End Sub
    
        Private Sub TabControl1_MouseUp(sender As Object, e As MouseEventArgs) Handles TabControl1.MouseUp 'событие MouseUp при клике на TabControl1
            If (e.Button = MouseButtons.Right) Then 'Если нажатие ПКМ
                ContextMenuStrip1.Show(MousePosition, ToolStripDropDownDirection.Right) 'выводим по координатам клика ContextMenuStrip1 
            End If
        End Sub
    
        Private Sub DeleteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DeleteToolStripMenuItem.Click 'событие Click при нажатии на кнопку Delete в ContextMenuStrip1
            TabControl1.TabPages.Remove(TabControl1.SelectedTab) 'Удаляем ОТКРЫТУЮ вкладку
        End Sub


    Тостер не знает о существовании VB и подсветка кода немного неправильная
    Ответ написан
    Комментировать