2017-12-30 49 views
-1

ListView項目またはListViewの特定の列を太字に設定しようとしています。ここで私のコードですが、動作しないように、私はそれを動作させるために助けを求めています。ListView列のフォントを変更します。

Do While dr.Read = True 
    x = New ListViewItem(dr("ID").ToString) 
    x.UseItemStyleForSubItems = False 
    x.SubItems.Add(dr("full_name")) 
    x.SubItems(1).Font = New Font(New FontFamily("Arial"), 16, FontStyle.Bold)    
    x.SubItems.Add(dr("address")) 
    x.SubItems.Add(dr("city")) 

    ListView1.Items.Add(x) 

Loop 
+1

新しい「Font」オブジェクトを毎回作成する必要はありません。ループの前に作成し、毎回使用します。 – jmcilhinney

答えて

0

私はこのコードをテストし、それが私の仕事:

Public Class Form1 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     For i = 1 To 10 
      Dim item As New ListViewItem(i.ToString()) 

      item.UseItemStyleForSubItems = False 

      Dim subitem = item.SubItems.Add(i.ToString()) 

      subitem.Font = New Font(New FontFamily("Arial"), 16, FontStyle.Bold) 

      item.SubItems.Add(i.ToString()) 

      ListView1.Items.Add(item) 
     Next 
    End Sub 
End Class 

あなたのコードで最大何か他のものがあります。

関連する問題