BlueOysterCult

That's fantastic!! Thank You! Do I need some sort of counter? maxCount +=1 ???? Rob

Hello I need to fill combo boxes on my form at form_load - I am not sure how to do it - I know it involves a For each loop - datase table something- combobox.add.item(dataset(dataRow) I have six tables only need to use five to fill the combos. they are make(car) interiorColor exteriorColor year soldstatus. these are all derived(Children?) of the Vehicles dataSet... excuse me for my lack of knowing which these are. Any help would be appreciated R

thanks Diver I have everything under control R

Hello all I think I am close to finishing this project but I am getting a "lare binding" error and can't seem to resolve it - HELP? Dim myCarList As Object Dim index As Integer Dim basicCarList As BasicVehicle Dim luxuryCarList As LuxuryVehicle index = cmbCarList.SelectedIndex myCarList = myCarList(index) If TypeOf (myCarList(index)) Is LuxuryVehicle Then luxuryCarList = CType(myCarList, LuxuryVehicle) txtYear.Text = CStr(luxuryCarList.Year) txtMake.Text = luxuryCarList.Make txtModel.Text = luxuryCarList.Model txtExtColor.Text = luxuryCarList.ExteriorColor txtIntColor.Text = luxuryCarList.InteriorColor 'txtSold.Text = CType(luxuryCarList.Sold, LuxuryVehicle) ElseIf (TypeOf (myCarList(index)) Is BasicVehicle) Then basicCarList = CType(myCarList, BasicVehicle) txtYear.Text = CStr(basicCarList.Year) txtMake.Text = basicCarList.Make txtModel.Text = basicCarList.Model txtExtColor.Text = basicCarList.ExteriorColor txtIntColor.Text = basicCarList.InteriorColor End If End Sub Rob

Thanks DiverDan I actually have a 1 comboBox (sorry)- I am able to display the list of cars to choose from - there are 11 in the array. Does that make a difference? R

I kind of want to do something like this:(?) Public Sub FillTextBoxes(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim index As Integer '= CarArrayList(0) Dim intCurrent As Integer intCurrent = (0) If index <> -1 Then txtPrice.Text = CarArrayList(2) txtMake.Text = CarArrayList(intCurrent) txtYear.Text = CarArrayList(intCurrent) txtIntColor.Text = CarArrayList(intCurrent) txtExtColor.Text = CarArrayList(intCurrent) End If End Sub Rob

Hello everyone I haven't a clue as to how ... to get a selected items "features" ie if someone selects a car from the list (ListBox) 2004 Chevy S-10 into the provided text boxes for those features. The features being air conditoining, color etc. So if I were to select the chevy.. the text boxes would list those features> the text box for air cond would have the value "true" > the text box would have the value "red" I am lost with this one. Can someone give me an idea? am I over explaining it? Thanks Rob

NEVERMIND.... I got it R

Hello All I am getting an error that (of course) shouldn't be there. I know this should work. the error An unhandled exception of type 'System.ComponentModel.Win32Exception' occurred in system.windows.forms.dll Additional information: Error creating window handle. the code Dim myCustForm As New frmCarList Me.lstBoxInventory.DataSource = CarArrayList myCustForm.ShowDialog() its landing on the last lline Rob

Hello All I am trying to bind my arraylist to a combo box - I guess fill it in with the data... I do know that the file is in the array (it a csv file that was read and inputted etc.) I can see it in the output window. But I can't get it to the combo box Any ideas this is what I have so far Dim myCustForm As New frmCarList myCustForm.cmbCarList.DataSource = CarArrayList myCustForm.ShowDialog() Rob

That is great information! Thank you for the effort you put into my question - I am going to work on my project today and I will let you know how it goes! R

Hey everyone I am having trouble wrapping my brain of how to code a prject with inheritance polymorphism etc. I understand the concept but not the code.... I need a VISUAL representation of how to do this... 4 classes,- 3 constructors, methods, overriding etc.. any sites that are good? Again a VISUAL diagram - something help?! I am a visual person in a non visual world right now Rob

Hello, I have finally got to the point of not having any errors - at least the ones that I can see. I cannot get the output I need though and I don't know why here is the code Module Inventory Sub Main() Dim warranty As String Dim CarPrice As Single Dim myNewCar As New Car(3456, "usedCar", "Chevy", "S-10", "1999", 98429652) CarPrice = myNewCar.price() Debug.WriteLine(CarPrice) warranty = myNewCar.carWarranty() Debug.WriteLine(warranty) End Sub Public Sub New(ByVal originalCost As Single, ByVal category As String, ByVal make As String, ByVal model As String, _ ByVal year As String, ByVal vin As Long) dealerPrice = originalCost Me.category = category Me.make = make Me.model = model Me.year = year Me.vin = vin Public Function price() As Single If category = ("usedCar") Then stickerPrice = dealerPrice * usedGouge ElseIf category = ("basicCar") Then stickerPrice = dealerPrice * basicGouge Else stickerPrice = dealerPrice * luxuryGouge End If Return stickerPrice End Function I believe that is all the code necessary here to show yuo all if not let me know9 the warranty is fine for the output - I get the price in the output but not the rest like model-Honda Thanks Rob

Hello All I am back!! I can't seem to figure the message I am getting - "Argument not specified for parameter" I think I have been looking at it too long. Anyway it concerns "vinId" Public Class Car Public ColorInterior As String Public ColorExterior As String Private BasicPrice As Decimal = 0.07 Private StickerPrice As Decimal Private DealerPrice As Decimal Private Const UsedPrice As Decimal = 0.05 Private Const LuxuryPrice As Decimal = 0.11 Public category As String Public warranty As String Public make As String Public model As String Public year As String Private vin As Long Private vinId As Long #Region "Constructor" Public Sub New(ByVal DealerPrice As Decimal, ByVal originalPrice As Decimal, ByVal category As String, ByVal make As String, ByVal model As String, ByVal year As String, ByVal vin As Long, ByVal vinId As Long) DealerPrice = originalPrice Me.category = category Me.make = make Me.model = model Me.year = year Me.vin = vin Me.vinId = vinId End Sub #End Region #Region "Method" Public Function price(ByVal amountCar As Decimal) As Decimal If category.Equals("usedCar") Then StickerPrice = Math.Round(DealerPrice * UsedPrice) ElseIf category.Equals("basicCar") Then StickerPrice = Math.Round(DealerPrice * BasicPrice) Else : category.Equals("luxuryCar") StickerPrice = Math.Round(DealerPrice * LuxuryPrice) End If Return StickerPrice End Function Public Function carWarranty(ByVal warrantyCar As Decimal) As Decimal If category.Equals("usedCar") Then warranty = "1 -year, 1,000 miles" ElseIf category.Equals("basicCar") Then warranty = "4-year, 40,000 miles" Else : category.Equals("luxuryCar") warranty = "5-year, 50,000 miles" End If Return warranty End Function #End Region End Class the Module Imports System Module Inventory Sub Main() Dim CarPrice As Decimal Dim myNewCar As New Car("Used", "honda", "Accord", "1999") CarPrice = myNewCar.price() Debug.WriteLine(CarPrice) End Sub End Module it is giving me the error in the Module at "myNewCar" Rob

IS it safe to use Add/Remove - there isn't an uninstall R