Programming Forums > Application Development > Visual Basic

Rory · May 16th, 2005, 8:17 AM

To modify an item in a list you do:

List1.list(n) = "Contents"

where n is the index base 0. This may not work for VB5: if so you'll have to remove the item and then add it at the previous index to achieve this.

thomzor · May 16th, 2005, 9:05 AM

Quote:

Originally Posted by killcity44

Im still egtting the same problem

'calculate first ticket
Dim i_TEMP As Integer
If not (txtConcert1.Text = "" Or txtTicket1.Text = "" Or txtQTY1.Text = "0") Then
i_TEMP = txtTicket.Text
txtTotal1.Text = i_TEMP * txtQTY1.Text

End If

'calculate second ticket

If not(txtConcert2.Text = "" Or txtTicket2.Text = "" Or txtQTY2.Text = "0" Then
i_TEMP = txtTicket2.Text
txtTotal2.Text = i_TEMP * txtQTY2.Text

End If

'calculate second ticket

If not(txtConcert3.Text = "" Or txtTicket3.Text = "" Or txtQTY3.Text = "0") Then
i_TEMP = txtTicket2.Text
txtTotal3.Text = i_TEMP * txtQTY3.Text

End If

'calculates sub total

lblSubTotalDisplay.Caption = CInt(txtTotal1.Text + txtTotal2.Text + txtTotal3.Text)

'calculates charges

dude
the

if (blab) then
'do nothing
else

this is totally gay, use NOT instead - for real...

also this stuff is not foolproof
if you put 'asd' in the textboxes the app will crash(presumably)
try to work around this by checking the ascii codes

txtAsd_Change(?)
if asc(mid(txtAsd.text,len(txtAsd.text)-1,1)) < 48 OR > 57 Then txtAsd.text=""
end sub

i haven't programmed in vb that much lately but this should get u started and perhaps help you out a bit

if you need anything more just post here

Rory · May 16th, 2005, 5:50 PM

IsNumeric() would also work!

killcity44 · May 23rd, 2005, 4:58 AM

works fine now thanks, except for the list box modification part. I have a text box and a list box with a few entries. I want to change the list boxes selection to what's i the text vox,

hope that explains that clearly

Rory · May 23rd, 2005, 12:09 PM

I believe

(Toggle Plain Text)

lstMain.List(lstMain.ListIndex) = txtMain.Text

will work under VB6.

May 16th, 2005, 8:17 AM	#11
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	To modify an item in a list you do: (Toggle Plain Text) List1.list(n) = "Contents" List1.list(n) = "Contents" where n is the index base 0. This may not work for VB5: if so you'll have to remove the item and then add it at the previous index to achieve this.

May 23rd, 2005, 12:09 PM	#15
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	I believe (Toggle Plain Text) lstMain.List(lstMain.ListIndex) = txtMain.Text lstMain.List(lstMain.ListIndex) = txtMain.Text will work under VB6.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 16th, 2005, 5:50 PM	#13
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	IsNumeric() would also work!

May 23rd, 2005, 4:58 AM	#14
killcity44 Newbie Join Date: Feb 2005 Posts: 18 Rep Power: 0	works fine now thanks, except for the list box modification part. I have a text box and a list box with a few entries. I want to change the list boxes selection to what's i the text vox, hope that explains that clearly

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Programming Forums > Application Development > Visual Basic

caclulations in visual basic 6