
1、在工程新建完成后,系统会自动新建一个窗体。
2、还可以在name属性设置窗体名称。
3、还可以设置Text属性,这是窗体的标题。
4、还可以在这里设置是否最大最小按钮。
5、设置窗体启动的的第一次状态,是最大化还是最小化还是自然现状。
6、在这里设置外观属性。
'一个文本框(内容以空格分开:数目 名称 价格),一个button,一个listview。
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim item As String() = TextBox1.Text.Split(" ")
If item Is Nothing OrElse item.Count = 0 Then Return
If ListView1.Columns.Count = 0 Then
ListView1.View = View.Details
ListView1.GridLines = True
ListView1.Columns.Add("数目", 60) '0 列名 列宽
ListView1.Columns.Add("名称", 60) '1
ListView1.Columns.Add("价格", 60) '2
End If
If ListView1.Items.Count > 0 Then
ListView1.Items.RemoveAt(ListView1.Items.Count - 1)
End If
ListView1.Items.Add(New ListViewItem(item))
Dim subject As Integer
For Each i As ListViewItem In ListView1.Items
subject += Val(i.SubItems(2).Text) * Val(i.SubItems(0).Text) '价格*数目
Next
ListView1.Items.Add(New ListViewItem({"合计", "", subject}))
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.ImeMode = Windows.Forms.ImeMode.On
End Sub
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)