Dim f As New Font( _
Me.TreeView1.Font, _
Me.TreeView1.Font.Style Or FontStyle.Strikeout _
)
For i As Integer = 1 To 10
Dim tn As New TreeNode()
tn.Text = "Item " & i
If i Mod 2 = 0 Then
tn.NodeFont = f
End If
Me.TreeView1.Nodes.Add(tn)
Next i
///
Dim f As Font = New Font(Me.treeView1.Font.FontFamily, 12,
FontStyle.Strikeout)
treeView1.Nodes(1).NodeFont = f
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.