如何从列表框中一起添加数字 [英] How Do I Add Numbers Together From A Listbox

问题描述

到目前为止我的代码：

 选项 严格 开 
 
 公开 类 fmResurface 
 公共  Const  dblWoodFlooring  As   Double  = 5D 
  Public   Const  dblCarpetFlooring  As   Double  = 3D ' 这个类变量没有变化，可以通过app' 
  Dim  dbldefaultWoodcost  As   Double  
  Dim  dbldef aultcarpetcost 作为  Double  
 私人  Sub  Label1_Click（发件人作为 对象，e  As  EventArgs）句柄 lblOutput.Click 
 
 结束  Sub  
 
 私有  Sub  Label1_Click_1（发件人作为 对象，e  As  EventArgs）句柄 lblOutputNumberRooms.Click 
 
  End   Sub  
 
 私有  Sub  GroupBox1_Enter（sen der 作为 对象，e  As  EventArgs） 句柄 GBFloorType.Enter 
 
 结束  Sub  
 
 私有  Sub  Form1_Load（发件人作为 对象，e  As  EventArgs）句柄  MyBase  .Load 
 dbldefaultcarpetcost = dblCarpetFlooring 
 dbldefaultWoodcost = dblWoodFlooring 
 
 结束  Sub  
 
 私有  Sub  Label1_Click_2（发件人作为 对象，e  As  EventArgs）句柄 Label1.Click 
 
 结束  Sub  
 
 私人  Sub  btnEnter_Click（发件人作为 对象，e  As  EventArgs）句柄 btnEnter.Click 
  Dim  strFirstName  As   String  
  Dim  strLastName 作为 字符串 
  Dim  strRoomName 作为 字符串 
  Dim  dblRoomWidth 作为  Double  = 0D 
  Dim  dblRoomLength  As   Double  = 0D 
  Dim  dbltotalcost  As   Double  = 0D 
  Dim  dblRoomsize  As   Double  = 0D 
 
 strFirstName = txtFirstName.Text 
 strLastName = txtLastName.Text 
 strRoomName = txtRoomName.Text 
 lblOutput.Text =  您好， + txtFirstName.Text +  ， + txtLastName.Text + < span class =code-string>  home estimate： 
 lblOutputNumberRooms.Text =  房间总数： + lbRoomName.Items.Count.ToString（）
 对于 x =  0    lbRoomName.Items .Count  -   1  
 dblRoomsize = dblRoomsize +（Val（lbRoomWidth.Items（x））* Val（lbRoomLength.Items（x）））
 下一步 
 如果 RBCarpet.Checked =  False    RBWoodFloor.Checked =  False  然后 MessageBox.Show（ 首先点击地毯或木地板！）
 < span class =code-keyword>如果 不 strFirstName<>   和 strLastName<>   和 dblRoomLength.ToString< >   和 strRoomName<>   和 dblRoomWidth.ToString< >   然后 
 MessageBox .Show（ 在框中输入数据！）
 
 如果 dbldefaultcarpetcost = dblCarpetFlooring 那么 
 lbRoomName.Items.Add（txtRoomName.Text）
 lbRoomLength。 Items.Add（txtRoomLength.Text）
 lbRoomWidth.Items.Add（txtRoomWidth.Text）
 lbTotalCost.Items.Add（dblRoomsize * dbldefaultcarpetcost）
 dbltotalcost = dblRoomsize * dbldefaultcarpetcost 
 
 结束 如果 
 其他 
 如果 dbldefaultWoodcost = dblWoodFlooring 那么 
 lbRoomName.Items.Add（txtRoomName.Text）
 lbRoomLength.Items.Add（txtRoomLength.Text）
 lbRoomWidth.Items.Add（txtRoomWidth.Text）
 lbTotalCost.Items.Add（dblRoomsize * dbldefaultWoodcost）
 dbltotalcost = dblRoomsize * dbldefaultWoodcost 
 结束 如果 
 < span class =code-keyword>结束 如果 
 
 
 
 lblOutputSquareFootage.Text = < span class =code-string> 总面积： + dblRoomsize.ToString（  0.0）
 lblOutputCostResurface.Text =  重新生成的总成本： + dbltotalcost.ToString（  C） 
 结束  Sub  
 
 私有  Sub  lbTotalCost_SelectedIndexChanged（sender 作为 对象， e  As  EventArgs）句柄 lbTotalCost.SelectedIndexChanged 
 
 结束  Sub  
 
 私有  Sub  RBWoodFloor_CheckedChanged（发件人作为 对象，e  As  EventArgs）句柄 RBWoodFloor.CheckedChanged 
 如果 RBWoodFloor.Checked 然后 pccarpet.Image = My.Resources.floor 
 
 结束  Sub  
 
 私有  Sub  RBCarpet_CheckedChanged（发件人作为 对象，e  As  EventArgs）句柄 RBCarpet.CheckedChanged 
 如果 RBCarpet.Checked 然后 pccarpet.Image = My.Resources.nice 
 
 
 结束  Sub  
 
 私有  Sub  pccarpet_Click（发件人作为 对象，e  As  EventArgs）句柄 pccarpet.Click 
 
 
 
 结束  Sub  
 
 私有  Sub  lbRoomName_SelectedIndexChanged（ sender  As   Object ，e  As  EventArgs） 句柄 lbRoomName.SelectedIndexChanged 
 
 结束  Sub  
 
 私有  Sub  txtFirstName_TextChanged（sender 作为 对象，e  As  EventArgs）句柄 txtFirstName.TextChanged 
 
 结束  Sub  
 结束 类 

解决方案

尝试如下

  Dim  SumOfTotalCosts  As   Double  = lbTotalCost.Items.Cast（   Double ）（）。总和（）

朋友.....我想你用新动词（Hello，the，to，.. .etc）。它与视觉工作室没有任何身份..如果你想添加这些词......你要创建一个新的collom并写一个新的代码.. LYK ..

lbloutput .tet =txthello.text + + txtfirstname.text + + txtlast.text;

heres my code so far:

Option Strict On

Public Class fmResurface
    Public Const dblWoodFlooring As Double = 5D
    Public Const dblCarpetFlooring As Double = 3D ' This class variable doesnt change and is available througout app'
    Dim dbldefaultWoodcost As Double
    Dim dbldefaultcarpetcost As Double
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles lblOutput.Click

    End Sub

    Private Sub Label1_Click_1(sender As Object, e As EventArgs) Handles lblOutputNumberRooms.Click

    End Sub

    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GBFloorType.Enter

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dbldefaultcarpetcost = dblCarpetFlooring
        dbldefaultWoodcost = dblWoodFlooring

    End Sub

    Private Sub Label1_Click_2(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub btnEnter_Click(sender As Object, e As EventArgs) Handles btnEnter.Click
        Dim strFirstName As String
        Dim strLastName As String
        Dim strRoomName As String
        Dim dblRoomWidth As Double = 0D
        Dim dblRoomLength As Double = 0D
        Dim dbltotalcost As Double = 0D
        Dim dblRoomsize As Double = 0D

        strFirstName = txtFirstName.Text
        strLastName = txtLastName.Text
        strRoomName = txtRoomName.Text
        lblOutput.Text = "Hello, " + txtFirstName.Text + ",the" + txtLastName.Text + " home estimate:"
        lblOutputNumberRooms.Text = "Total Number of Rooms:" + lbRoomName.Items.Count.ToString()
        For x = 0 To lbRoomName.Items.Count - 1
            dblRoomsize = dblRoomsize + (Val(lbRoomWidth.Items(x)) * Val(lbRoomLength.Items(x)))
        Next
        If RBCarpet.Checked = False And RBWoodFloor.Checked = False Then MessageBox.Show("Click Carpet or Wood Floors First!")
        If Not strFirstName <> "" And strLastName <> "" And dblRoomLength.ToString <> "" And strRoomName <> "" And dblRoomWidth.ToString <> "" Then
            MessageBox.Show("Enter data into boxes!")

            If dbldefaultcarpetcost = dblCarpetFlooring Then
                lbRoomName.Items.Add(txtRoomName.Text)
                lbRoomLength.Items.Add(txtRoomLength.Text)
                lbRoomWidth.Items.Add(txtRoomWidth.Text)
                lbTotalCost.Items.Add(dblRoomsize * dbldefaultcarpetcost)
                dbltotalcost = dblRoomsize * dbldefaultcarpetcost

            End If
        Else
            If dbldefaultWoodcost = dblWoodFlooring Then
                lbRoomName.Items.Add(txtRoomName.Text)
                lbRoomLength.Items.Add(txtRoomLength.Text)
                lbRoomWidth.Items.Add(txtRoomWidth.Text)
                lbTotalCost.Items.Add(dblRoomsize * dbldefaultWoodcost)
                dbltotalcost = dblRoomsize * dbldefaultWoodcost
            End If
        End If



        lblOutputSquareFootage.Text = " Total square footage: " + dblRoomsize.ToString("0.0")
        lblOutputCostResurface.Text = "Total cost to resurface: " + dbltotalcost.ToString("C")
    End Sub

    Private Sub lbTotalCost_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbTotalCost.SelectedIndexChanged

    End Sub

    Private Sub RBWoodFloor_CheckedChanged(sender As Object, e As EventArgs) Handles RBWoodFloor.CheckedChanged
        If RBWoodFloor.Checked Then pccarpet.Image = My.Resources.floor

    End Sub

    Private Sub RBCarpet_CheckedChanged(sender As Object, e As EventArgs) Handles RBCarpet.CheckedChanged
        If RBCarpet.Checked Then pccarpet.Image = My.Resources.nice


    End Sub

    Private Sub pccarpet_Click(sender As Object, e As EventArgs) Handles pccarpet.Click



    End Sub

    Private Sub lbRoomName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbRoomName.SelectedIndexChanged

    End Sub

    Private Sub txtFirstName_TextChanged(sender As Object, e As EventArgs) Handles txtFirstName.TextChanged

    End Sub
End Class

解决方案

try like below

Dim SumOfTotalCosts As Double  = lbTotalCost.Items.Cast(Of Double)().Sum() 

Friend.....i think you use new verbs (Hello,the, to ,...etc).which have no identity into the visual studio..so if you want to add these words..you hv to create a new collom nd write a new code .. LYK..
lbloutput.tet="txthello.text+ +txtfirstname.text+ +txtlast.text";

这篇关于如何从列表框中一起添加数字的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！