daaman.blogg.se

TextBox14.Text = 0.06 * ((unitpriceone * qtyone) + (unitpricetwo * qtytwo) + (unitpricethree * qtythree)) TextBox13.Text = (unitpriceone * qtyone) + (unitpricetwo * qtytwo) + (unitpricethree * qtythree) TextBox12.Text = unitpricethree * qtythree ' setting the price / each one to be in those textboxes ' setting the price/ 1 item to be in those textboxes ' setting the items to be in those textboxes ' setting the quantity to be in those textboxes ' Declaring the item that you are going to buy

Thanks.Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click I can't very well individually copy the Strings from one array to Variants in another array, because, well, 0 to -1 and all.ĭoes anyone know how to make such an array, Variant() with LBound 0 and UBound -1, without using SCRRUN.DLL? Preferably also using only built-in VB6 stuff, but if you can do it if you're allowed to use some external thing (other than SCRRUN.DLL), I'm all ears. Poking around on the web a bit, I found the following trick: Dim K() As StringĪnd that actually does give an array with LBound 0 and UBound -1! Unforunately, it's a String array, whereas I need a Variant array.

I also tried just redimming to 0 and -1, strange as that may seem: Dim K() As Variantīut that also gives "subscript out of range". So does erasing an uninitialized array: Dim K() as VariantĪs does erasing an initialized array: Dim K() As Variant I've tried just using an uninitialized variant array: Dim K() as Variantīut of course that throws "Subscript out of range", as I would expect. So, how can I create a Variant array that has LBound 0 and UBound -1? I was expecting "subscript out of range", or something similar, but instead I was informed that the LBound is 0 and the UBound is -1. I did a little experimentation to see what happens if there are no keys in the dictionary: Dim D As Dictionary The Dictionary class has a Keys function that is supposed to return an array of the keys in the dictionary. One of the things it's currently being used for is its Dictionary class. I'm trying to get rid of dependencies on SCRRUN.DLL in a VB6 application.