everbas.blogg.se

1. Vb.net set button text bold how to#
2. Vb.net set button text bold code#
3. Vb.net set button text bold windows#

Range(Cells(2, i), Cells(2, i)).Font.Bold = True 'checks if the Yes property has been selected Private Sub worksheet_change( ByVal target As Range) 'Executes when the user selects a new values from the drop down lists The event handler executes when the user selects a value from the drop down lists: The program uses a worksheet_change event handler.

The cell under the drop down list turns bold: The user can select “Yes” and “No” from the drop down lists: The “Yes”, “No” values for the drop down lists are in sheet 2: If the user selects “No” the bold font style from the cell below the drop down list will be removed. If the user selects “Yes” the text in the cell under the drop down list will become bold. For more information about creating drop down lists in Excel please see Excel VBA Drop Down Lists. Each drop down list has the values “Yes” and “No”. The header Text of all the other TabPage headers is drawn using a non-Bold, Black, Center Aligned font.įinally in line 26 the Brush is disposed of – which is standard good coding practice.In this example there are a set of drop down lists in row 1. Next, lines 18 to 23 test each TabPage in turn and when it finds the currently selected one, lines 19 and 20 create a Bold, Black, Center Aligned font and apply it to the header Text of that TabPage. Similarly, lines 13 to 15 are used to reset the alignment of the Text within the header rectangle. The reason of course is that you’ve taken over responsibility for all aspects of the Text in the header by selecting OwnerDrawFixed. You may wonder why you need to create a Black Brush when the default color of Text is always Black. Thirdly, line 10 creates a new SolidBrush whose color is set to Black. The GetTabRect method of the TabControl exists solely for this purpose. Then line 7 uses that information to get the size of the tab header of the selected TabPage. So Line 4 identifies which TabPage is currently selected and notes the index number. The TabControl maintains a collection of its TabPages. ' Paint the Text using the appropriate Bold setting If Convert.ToBoolean(e.State And DrawItemState.Selected) Then Dim BoldFont As New Font(,, FontStyle.Bold)Į.Graphics.DrawString(SelectedTab.Text, BoldFont, TextBrush, HeaderRect, sf)Į.Graphics.DrawString(SelectedTab.Text, e.Font, TextBrush, HeaderRect, sf) Sf.LineAlignment = StringAlignment.Center ' Set the Alignment of the Text Dim sf As New StringFormat() ' Create a Brush to paint the Text Dim TextBrush As New SolidBrush(Color.Black) ' Get the area of the header of this TabPage Dim HeaderRect As Rectangle = TabControl1.GetTabRect(e.Index) ' Identify which TabPage is currently selected Dim SelectedTab As TabPage = TabControl1.TabPages(e.Index) Private Sub TabControl_DrawItem(sender As Object, e As ) Handles TabControl1.DrawItem

To make it easier to understand the steps involved, here’s the skeleton of that event handler: This DrawItem event fires whenever TabControl Page headers are redrawn for instance when the user clicks on a different TabPage header.

Vb.net set button text bold code#

The place to put the code that does this is in the DrawItem event handler of the TabControl. So at this stage you are responsible for drawing whatever appears in the TabPage headers – their Text properties. Just to clarify – the Text property of the TabPage is what appears in the header of that page. Once you’ve made this property change, the TabPage headers will no longer display any content, even if you have added a value to the Text property of the TabPage. Bizarrely, the way you select the TabControl is to click on one of the Headers for any page. Then in the Properties pane for the TabControl find the DrawMode property and change it to OwnerDrawFixed:Ĭan’t find that property in the list? Then you’ve probably selected one of the Tab Pages, not the TabControl itself.

Vb.net set button text bold windows#

Start by dragging a TabControl onto the Windows Form. But there’s usually a fix for most problems and in this case it’s the use of Owner Draw.

It turns out that there’s no in-built way of bolding just the header (although you can bold all text on the whole TabPage – not something you’d usually want).

Vb.net set button text bold how to#

Someone recently asked me how to give the text of a selected Tab Page a Bold font.