사전을 반복 할 수있는 방법

Question

각 명령문에 대해 작성한 사전 목록의 모든 값을 반복 할 때 a를 사용하려고합니다. 나는 모든 모든 가치를 인쇄 할 수 있기를 원합니다. 개인적인 가치를 부르는 것.

Dim dblExpenses = New Dictionary(Of String, Double) 
    dblExpenses.Add("Travel_Days", CDbl(txtTravelDays.Text)) 
    dblExpenses.Add("Private_Vehicle_Miles", CDbl(txtPrivateVehicleMiles.Text)) 
    dblExpenses.Add("Airfare", CDbl(txtAirfare.Text)) 
    dblExpenses.Add("Car_Rental_Fees", CDbl(txtCarRentalFees.Text)) 
    dblExpenses.Add("Parking_Fees", CDbl(txtParkingFees.Text)) 
    dblExpenses.Add("Taxi_Charges", CDbl(txtTaxiCharges.Text)) 
    dblExpenses.Add("Registration_Fees", CDbl(txtRegistationFees.Text)) 
    dblExpenses.Add("Lodging_Per_Night", CDbl(txtLodgingPerNight.Text)) 
    dblExpenses.Add("Meals", CDbl(txtMeals.Text)) 

    For Each item As Double In dblExpenses 

    Next 

미리 감사드립니다. 내가 검색을했는데 사전을 반복 할 때마다 각각을 사용하는 것을 찾을 수 없었다.

Answer 1

당신은

For Each item As KeyValuePair(Of String, Double) In dblExpenses 
    'item.Key for key 
    'item.Value for value 
Next 

를 사용한다 또는 당신은 단지 값을 시도 할 수 있습니다.

For Each item As Double In dblExpenses.Values 
    'item 
Next