Rayharwood: Created page with "Pass in a TreeNode, and it's text is made Bold. Sub BoldNode(ByVal NN As TreeNode) Dim NodeFont As Drawing.Font Try NodeFont = NN.NodeFont ..."

2013-02-07T17:28:07Z

Created page with "Pass in a TreeNode, and it's text is made Bold. Sub BoldNode(ByVal NN As TreeNode) Dim NodeFont As Drawing.Font Try NodeFont = NN.NodeFont ..."

New page

Pass in a TreeNode, and it's text is made Bold.

Sub BoldNode(ByVal NN As TreeNode)
Dim NodeFont As Drawing.Font
Try
NodeFont = NN.NodeFont
Catch ex As Exception
NodeFont = tvMainData.Font
End Try
Dim NXS As Drawing.FontStyle = FontStyle.Bold
Dim nx As New Drawing.Font(tvMainData.Font, NXS)
NN.NodeFont = nx
End Sub

Changing Font on a TreeNode - Revision history

Rayharwood: Created page with "Pass in a TreeNode, and it's text is made Bold. Sub BoldNode(ByVal NN As TreeNode) Dim NodeFont As Drawing.Font Try NodeFont = NN.NodeFont ..."