回覆列表
  • 1 # 18015919686

    用程式碼進行說一下: Private Sub Command1_Click() Dim xx As ListItem If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" Then Set xx = ListView1.ListItems.Add(, , Text1.Text) xx.SubItems(1) = Text2.Text xx.SubItems(2) = Text3.Text Set xx = Nothing Text1.Text = "" Text2.Text = "" Text3.Text = "" End If End Sub Private Sub Form_Load() ListView1.View = lvwReport ListView1.ColumnHeaders.Add , , "第1列", 1000 ListView1.ColumnHeaders.Add , , "第2列", 1000 ListView1.ColumnHeaders.Add , , "第3列", 1000 End Sub

  • 中秋節和大豐收的關聯?
  • 新房子門前可以放石獅子嗎?