|
without knowing anything about SSToolbar you may not need a license for SSToolbar, but SSToolbar may need a license for something else...like a particular version of Windows or a particular version of Office.
Hopefully someone on here actually knows the product.
|
|
|
|
|
|
Thanks all.
I also see this link, but I am confused.
I am using VB 6.0, do I need to run VB6Cli.exe? Somebody said VB6Cli.exe is shipped with VB6.0, is it right?
|
|
|
|
|
|
Dave,
So you think I should run that exe file?
|
|
|
|
|
Well, unless you find another solution, you have nothing to loose!
Although, it is your choice, and i am not taking any responsibility!
The file is direct from microsofts website, so not as if it is being downloaded from some random website.
The other option is to reinstall vb6 (probably an in place over install).
|
|
|
|
|
Dave,
Thank you very much.
|
|
|
|
|
Hi, Dave,
I run that exe file, but when I run the program again, I still get the same error.
License information for this component not found. You do not have an appropriate license to use this functionality in the design environment.
What else should I do?
Thanks!
|
|
|
|
|
I can't remember if SSToolbar was a control that shipped with VB6 or not? i don't keep VB6 installed anywhere now, so can't go and check.
Can you go to the DLL in explorer and look at the file info and see who the company is that wrote it. Then it might be just a case of some more google searches until a solution found. Might need to get hands on the original DLL installer, to get the license file.
|
|
|
|
|
I don't think SSToolbar shipped with VB6. AFAIR it was a free 3rd party control. Similarly to the OP, I don't think SSToolbar requires a license.
I would try to remove it from the form, add it again and recompile.
It could, however, be that the control needs to be properly installed in VB6, and from what I gather, you don't have the installation file, only the distributed ocx, right?
modified on Tuesday, May 11, 2010 7:14 AM
|
|
|
|
|
Hi, Thanks for reply.
SSToolBar is not shippped with VB6, it's a third party too.
After I unregister it and then re-register it again, the above error message gone, but still in the same line, I got the following error:
Run-time error '429':
License information for this component not found. You do not have an appropriate license to use this functionality in the design environment.
I thought it may not really the license issue, should be something in VB part.
How's your thinking.
Thanks!
|
|
|
|
|
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.
|
|
|
|