|
It definitely sounds to me like the control should be properly installed in VB6 using the installer for the component, but as I said earlier: I guess you haven't got access to that?
|
|
|
|
|
John,
This project was created years ago by other people. I also install it in my computer, everything is fine. But when I got the source codes and try to run it from VB6, I got this error.
|
|
|
|
|
Have you tried this:
http://support.microsoft.com/kb/194751/en-us[^]
???
[EDIT: OK, sorry - I see from previous posts that you have... - sorry for mentioning it again...]
I don't think it's going to fix the problem, but it's worth a shot...
I seem to recall that there should be another tool/fix that does something similar to some other components, but I haven't located it yet...
And for those moderately interested in what controls are included in VB6, I found this link:
http://support.microsoft.com/kb/194784/EN-US/[^]
modified on Tuesday, May 11, 2010 10:29 AM
|
|
|
|
|
Yes, I already run VB6Cli.exe as Dave recommend. but still same. Maybe I need to reinstall VB6.
I saw somebody has the exactly same issue as me, he solve it. he also run VB6Cli.exe, his comments as following:
When I tried to run the program I received the same message.
I re-downloaded the file and installed it over the top of the other and all works well now.
Thank you so much for the help. Have a good Thanksgiving.
Do you think what the "installed it over the top of the other" means.
Thanks!
|
|
|
|
|
|
That's right, now I remember - SS stands for Sheridan Software Systems. In Nov 2000 they merged with ProtoView Development Corporation and became the notorious Infragistics.
I'll look into it a little more.
As for "installing on top of..." means installing an already installed product without uninstalling the previous version first...
modified on Tuesday, May 11, 2010 10:54 AM
|
|
|
|
|
Thanks. Waiting for your reply.
Anyway, I decide reinstall VB6.
|
|
|
|
|
John And Dave,
I can run the program now. I need to run a Setup.exe file for ActiveToolbars Plus to installs the runtime files.
Thank you very much for your help, very appreciate.
|
|
|
|
|
|
Hi Every One
Thanks in Advance...
Type mismatch. (Exception from HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))
i got above error when i working with outlook to add a Folder to Personal Folder which
is a Root directory in outlook
plzz help me if any body worked on outlook
its urgent.....
|
|
|
|
|
I Googled HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH) and got loads of hits, so obviously lots of others have had the same problem.
Give it a try. I'm pretty sure that if you read through them you will find a solution.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Hi, I am newbie here; I hope that I am posting correctly. If not please let me know and I will fix that after this post... So here is my dilemma. Thank you for any help in advance.
The program loads; I can pick a ticket type and the appropriate seats are listed in lstbox. I can type in how many ticket I want and clear the form. The Calculate cost button appears to do nothing at all. VB editor does not even give me an error; it just doesn't do anything. This was a homework, I have already handed it in though as is, so now I am just looking for guidance on where I went wrong. I don't want to move onto the next subject if I can't understand this one.
Purpose: This application allows the user to unput data about
' the purchase of baseball tickets. Once the data is entered,
' the program will compute the cost of the tickets purchased.
Option Strict On
<pre>Public Class frmBaseBallTicketSales
'Class Variables
Private _decSeasonBoxSeat As Decimal = 2500D
Private _decSeasonLowerSeat As Decimal = 1500D
Private _decSingleBoxSeat As Decimal = 55D
Private _decSingleLowerSeat As Decimal = 35D
Private _decUpperSeat As Decimal = 25D
Private _decStanding As Decimal = 15D
Private _strSeasonBoxSeats As String = "Box Seats $2500"
Private _strSeasonLowerDeck As String = "Lower Deck Seats $1500"
Private _strSingleBoxSeats As String = "Box Seats $55"
Private _strSingleLowerDeck As String = "Lower Deck Seats $35"
Private _strUpperDeck As String = "Upper Deck Seats $25"
Private _strSRO As String = "Standing Room Only $15" Private Sub cboTicketType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboTicketType.SelectedIndexChanged
'This event handler allows the user to enter choices on form.
'Then it calls subprocesures to place seats in list box.
Dim intTicketChoice As Integer
intTicketChoice = Me.cboTicketType.SelectedIndex
Me.lstSeats.Items.Clear()
Select Case intTicketChoice
Case 0
SeasonTickets()
Case 1
SingleGameTickets()
End Select
'Make items visible in window.
Me.lblNumberOfTickets.Visible = True
Me.txtNumberOfTickets.Visible = True
Me.lblSeatType.Visible = True
Me.lstSeats.Visible = True
Me.btnTicketCost.Visible = True
Me.btnClear.Visible = True
Me.lblCost.Visible = True
'clear labels
Me.txtNumberOfTickets.Text = ""
Me.lblSeatType.Text = ""
Me.lblCost.Text = ""
'set focus
Me.txtNumberOfTickets.Focus()
End Sub
Private Sub SeasonTickets()
'This procedure fills in the possible seat types for season tickets.
Me.lstSeats.Items.Add(_strSeasonBoxSeats)
Me.lstSeats.Items.Add(_strSeasonLowerDeck)
End Sub
Private Sub SingleGameTickets()
'This procedure fills in seat types for single game tickets
Me.lstSeats.Items.Add(_strSingleBoxSeats)
Me.lstSeats.Items.Add(_strSingleLowerDeck)
Me.lstSeats.Items.Add(_strUpperDeck)
Me.lstSeats.Items.Add(_strSRO)
End Sub
Private Sub btnTicketCost_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTicketCost.Click
'This event handler determines the cost of the tickets chosen.
'Then it displays the total cost.
Dim intNumberTix As Integer
Dim blnNumberTixIsValid As Boolean = False
Dim blnSeatTypeIsSelected As Boolean = False
Dim intSeatType As Integer
Dim strSelectedSeat As String = ""
Dim decTotalCost As Decimal
'Call a function to ensure number of tickets is valid.
blnNumberTixIsValid = ValidateNumberTix()
'Call a function to make sure ticket type selected.
intSeatType = ValidateSeatSelection(blnSeatTypeIsSelected, strSelectedSeat)
'If the number of tickets ordered is valid, calculate the cost.
If (blnNumberTixIsValid And blnSeatTypeIsSelected) Then
intSeatType = Me.cboTicketType.SelectedIndex
Select Case intSeatType
Case 0
decTotalCost = SeasonTicketsFindCost(intSeatType, _
intNumberTix)
Case 1
decTotalCost = SingleTicketsFindCost(intSeatType, _
intNumberTix)
End Select
'Display Cost.
lblCost.Text = & decTotalCost.ToString("C")
End If
End Sub
Private Function ValidateNumberTix() As Boolean
'This function validates value entered for number of tickets.
Dim intNumberOfTix As Integer
Dim blnValidityCheck As Boolean = False
Dim strTicketNumberErrorMessage As String = _
"Please enter the number of tickets you would like to buy (1-20)"
Dim strMessageBoxTitle As String = "Error"
Try
intNumberOfTix = Convert.ToInt32(Me.txtNumberOfTickets.Text)
If intNumberOfTix > 0 And intNumberOfTix < 21 Then
blnValidityCheck = True
Else
MessageBox.Show(strTicketNumberErrorMessage, _
strMessageBoxTitle)
Me.txtNumberOfTickets.Focus()
Me.txtNumberOfTickets.Clear()
End If
Catch Exception As FormatException
MessageBox.Show(strTicketNumberErrorMessage, _
strMessageBoxTitle)
Me.txtNumberOfTickets.Focus()
Me.txtNumberOfTickets.Clear()
Catch Exception As OverflowException
MessageBox.Show(strTicketNumberErrorMessage, _
strMessageBoxTitle)
Catch Exception As SystemException
MessageBox.Show(strTicketNumberErrorMessage, _
strMessageBoxTitle)
Me.txtNumberOfTickets.Focus()
Me.txtNumberOfTickets.Clear()
End Try
Return blnValidityCheck
End Function
Private Function ValidateSeatSelection(ByRef blnType As Boolean, _
ByRef strType As String) As Integer
'This function makes sure user sleects a seat type.
Dim intSeatType As Integer
Try
intSeatType = Convert.ToInt32(Me.lstSeats.SelectedIndex)
strType = Me.lstSeats.SelectedItem.ToString()
blnType = True
Catch Exception As SystemException
'Detects if seat type not selected.
MessageBox.Show("Select a seat type", "Error")
blnType = False
End Try
Return intSeatType
End Function
Private Function SeasonTicketsFindCost(ByVal intSeatType As Integer, _
ByVal intNumberTix As Integer) As Decimal
'This function will calculate cost of season tickets.
Dim decTotalCost As Decimal
Dim decSeatCost As Decimal
Dim decNumberTix As Decimal
Select Case intSeatType
Case 0
decSeatCost = _decSeasonBoxSeat
decNumberTix = intNumberTix
Case 1
decSeatCost = _decSeasonLowerSeat
decNumberTix = intNumberTix
End Select
decTotalCost = decSeatCost * decNumberTix
Return decTotalCost
End Function
Private Function SingleTicketsFindCost(ByVal intseattype As Integer, _
ByVal intNumberTix As Integer) As Decimal
'This function will calvulate the cost of single tickets.
Dim decTotalCost As Decimal
Dim DecSeatCost As Decimal
Dim decNumberTix As Decimal
Select Case intseattype
Case 0
DecSeatCost = _decSingleBoxSeat
decNumberTix = intNumberTix
Case 1
DecSeatCost = _decSingleLowerSeat
decNumberTix = intNumberTix
Case 2
DecSeatCost = _decStanding
decNumberTix = intNumberTix
Case 3
DecSeatCost = _decUpperSeat
decNumberTix = intNumberTix
End Select
decTotalCost = DecSeatCost * intNumberTix
Return decTotalCost
End Function
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
'This event handler clears the form and resets the form for reuse,
'when user clicks the clear button.
Me.cboTicketType.Text = "Select Ticket Type"
Me.txtNumberOfTickets.Clear()
Me.lstSeats.Items.Clear()
Me.lblCost.Visible = False
Me.lblTotalCost.Visible = False
End Sub
Private Sub frmBaseBallTicketSales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'This handler creates 5 seconds for the splash screen
Threading.Thread.Sleep(5000)
End Sub
End Class
Hope I did this right.
modified on Monday, May 10, 2010 3:27 PM
|
|
|
|
|
It would be nice if you would put your code in some <pre></pre> tags so it easy to read.
|
|
|
|
|
I have no idea how to use those tags. When I said newbie I meant very new. Like a baby just born.
|
|
|
|
|
Do this when you edit your message:
<pre>
**Your code here**
</pre>
|
|
|
|
|
Edit your post. Select the code segments then click on the "code block" link on the line above
Why is common sense not common?
Never argue with an idiot. They will drag you down to their level where they are an expert.
Sometimes it takes a lot of work to be lazy
Individuality is fine, as long as we do it together - F. Burns
|
|
|
|
|
Thank you very much!! I got it, I think.
|
|
|
|
|
You're welcome. Looks much more gooder
Why is common sense not common?
Never argue with an idiot. They will drag you down to their level where they are an expert.
Sometimes it takes a lot of work to be lazy
Individuality is fine, as long as we do it together - F. Burns
|
|
|
|
|
I second that; it is unreadable right now. You could still edit the existing message though.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read formatted code with indentation, so please use PRE tags for code snippets.
I'm not participating in frackin' Q&A, so if you want my opinion, ask away in a real forum (or on my profile page).
|
|
|
|
|
When I pasted the code it was indented. I do not know how to indent other than using the tab key... I'm sorry.
|
|
|
|
|
outside of PRE tags, tabs are just spaces, and multiple spaces get ignored. Inside PRE tags, it all works pretty much like in a code editor.
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read formatted code with indentation, so please use PRE tags for code snippets.
I'm not participating in frackin' Q&A, so if you want my opinion, ask away in a real forum (or on my profile page).
|
|
|
|
|
dorkpixie wrote: appears to do nothing at all
What does that mean? You click the button and no code runs? You click the button and the code runs but gives no output?
Have you stepped through the code using the debugger?
Why is common sense not common?
Never argue with an idiot. They will drag you down to their level where they are an expert.
Sometimes it takes a lot of work to be lazy
Individuality is fine, as long as we do it together - F. Burns
|
|
|
|
|
Click the button and get no output at all. No errors either. Weirdest non running code I have ever written.
|
|
|
|
|
Okay if you click the button and no code runs at all, check that the button is actually hooked up to the function through the Events property sheet.
If the button is hooked to the event handler then set a breakpoint in the event handler and step through the code until you narrow down where the problem is.
Why is common sense not common?
Never argue with an idiot. They will drag you down to their level where they are an expert.
Sometimes it takes a lot of work to be lazy
Individuality is fine, as long as we do it together - F. Burns
|
|
|
|
|
1) in your btnTicketCost, and an else clause to the If block, and display a validation error message, your Validate Ticket might never be returning True, hence never resulting in any output.
2) If #1 above never returns True, start putting debug statements in the function to try and establish which part(s) is/are causing the validation to fail.
|
|
|
|