|
how to rectify class not support error in vb6 at win 7
|
|
|
|
|
Start with something from this century, this millenium.
Quote: Mainstream Support for Microsoft Visual Basic 6.0 ended on March 31, 2005. Extended support ended in March 2008.
|
|
|
|
|
Start by providing a clear and complete description of the problem. Include the complete error message, and the relevant parts of your code. Remember to indicate which line of code the error relates to.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
i m using this code to print crystal report with out priview ,Some Time Load Report Faild Error Show ,when i close and reopen application again report will printed,how can i resolve this error please guide me,my code is
<pre> Dim crtableLogoninfo As New TableLogOnInfo
Dim crConnectionInfo As New ConnectionInfo
Dim CrTables As Tables
Dim TableCounter
Dim crReportDocument As New ReportDocument
Dim crParameterDiscreteValue As ParameterDiscreteValue
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldLocation As ParameterFieldDefinition
Dim crParameterValues As ParameterValues
Dim billno As New InfoGeneration
Dim sname As ConfigurationSettings
crReportDocument.Load(Application.StartupPath & "\Reports\rptsinv.rpt")
With crConnectionInfo
.ServerName = sname.AppSettings("servername")
.DatabaseName = sname.AppSettings("dbname")
.UserID = sname.AppSettings("username")
.Password = sname.AppSettings("password")
End With
CrTables = crReportDocument.Database.Tables
For Each CrTable In CrTables
crtableLogoninfo = CrTable.LogOnInfo
crtableLogoninfo.ConnectionInfo = crConnectionInfo
CrTable.ApplyLogOnInfo(crtableLogoninfo)
Next
crParameterFieldDefinitions = crReportDocument.DataDefinition.ParameterFields
crParameterFieldLocation = crParameterFieldDefinitions.Item("s_id")
crParameterValues = crParameterFieldLocation.CurrentValues
crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
crParameterDiscreteValue.Value = txts_id.Text
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldLocation.ApplyCurrentValues(crParameterValues)
crReportDocument.PrintToPrinter(txtcopies.Text, False, 0, 0)
|
|
|
|
|
I need to be able to search through the data I have displayed in a datagrid view/textbox using the surname of a customer ( I have used Textfiles NOT SQL)
|
|
|
|
|
Searching through a DataGridView is a simple matter of iterating the rows and checking the relevant columns for data matches. Searching a TextBox is just a string operation.
|
|
|
|
|
How to convert a string to code 128 witch code vba?
|
|
|
|
|
|
|
This is an update. This question is no longer an issue. I found information
about implementing the Verbs() function of the ControlDesigner. Sorry
for the inconvenience. Did not know if I should delete this question or not.
Hello,
The code below adds an action to select 1 of 2 panel configurations:
"SelectPanel2Type" or "SelectPanel3Type".
The controls action list displays the current 'PanelType' selection.
When you click on the current item, the current item text changes to the second panel
text:
Example: If "SelectPanel2Type" is displayed, clicking on it changes to "SelectPanel3Type"
and visa versa.
This functions as expected.
The problem:
The action is also displayed and can be selected from the attributes panel of the Properties window, but when I click on the action in the attributes panel, the text in the attributes
panel does not change to the opposite panel and I cannot select the opposite configuration.
Example:
If "Select Panel2Type" is displayed, when I click on it, the action is performed in
the control, but the text in the attributes panel does not change to "Select Panel3Type".
If I deselect the control and reselect it, the attributes panel will be updated
to "Select Panel3Type".
Is there something that I am not doing to update the attributes panel correctly?
Thank you.
Friend Class SPCActionList
Inherits System.ComponentModel.Design.DesignerActionList
' Host object
Private HostControl As SplitPanelCtrl = Nothing
' Cache a reference to the DesignerActionUIService host.
Private _DesignerActionUIService As DesignerActionUIService
Public Sub New(ByVal component As IComponent)
MyBase.New(component)
' Cache a reference to the control.
HostControl = DirectCast(component, SplitPanelCtrl)
' Cache a reference to update action
_DesignerActionUIService = CType(GetService(GetType(DesignerActionUIService)), DesignerActionUIService)
End Sub
Public Overrides Function GetSortedActionItems() As DesignerActionItemCollection
Dim items As New DesignerActionItemCollection()
items.Add(New DesignerActionHeaderItem("Panel Type Selection"))
items.Add(New DesignerActionMethodItem(Me, _
IIf(Me.HostControl.PanelType = enumPanelType.PanelType2, "SelectPanel3Type", "SelectPanel2Type"), _
IIf(Me.HostControl.PanelType = enumPanelType.PanelType2, "Select Panel3Type", "Select Panel2Type"), _
IIf(Me.HostControl.PanelType = enumPanelType.PanelType2, "Select Panel3Type", "Select Panel2Type"), _
IIf(Me.HostControl.PanelType = enumPanelType.PanelType2, "Select Panel3Type", "Select Panel2Type"), _
True))
Return items
End Function
Private Sub SelectPanel2Type()
TypeDescriptor.GetProperties(HostControl)("PanelType").SetValue(MyBase.Component, enumPanelType.PanelType2)
Me._DesignerActionUIService.Refresh(HostControl)
End Sub
Private Sub SelectPanel3Type()
TypeDescriptor.GetProperties(HostControl)("PanelType").SetValue(MyBase.Component, enumPanelType.PanelType3)
Me._DesignerActionUIService.Refresh(HostControl)
End Sub
End Class
-- modified 19-Dec-17 12:14pm.
|
|
|
|
|
I am working on a project where an access database calls a batch file that then calls a .vbs file. Within the .vbs file my code is to open a telnet session, connect to my companies warehouse management system, login, call a specific program, enter some information on the screen which executes the program, then logout.
This is where it gets interesting. If I manually run the batch file which is on my local C:\ drive the batch file calls the .vbs script and the .vbs script executes flawlessly. Keep in mind that the point of this is to automate and not have a person manually run the batch file or do everything that the .vbs script is setup to do. When I use a Microsoft Access macro to open the same exact batch file which then calls the .vbs script I run into problems. The batch file executes as expected, the .vbs script opens the command prompt however I get a message that telnet does not exist. How is this possible? The access database is on my local C:\ drive along with the batch file and .vbs script.
Here is my .vbs code which I know is not the problem since it will work when I run it manually. Does using a program to call telnet interact differently or cause security issues within Microsoft windows?
My .vbs file code (for security purposes I changed/put server, username, password, program name,file name instead of real values):
Dim objShell
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\windows\system32\cmd.exe"
Wscript.Sleep 5000
objShell.SendKeys "telnet server"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "username"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "password"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 300
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "1"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "call programname "
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "filename"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
objShell.SendKeys "{F6}"
Wscript.Sleep 3000
objShell.SendKeys "{F3}"
Wscript.Sleep 3000
objShell.SendKeys "exit"
objShell.SendKeys "{ENTER}"
Wscript.Sleep 3000
bjShell.SendKeys "exit"
objShell.SendKeys "{ENTER}"
Set objShell = Nothing
My batch file simply calls the .vbs file
|
|
|
|
|
It is probably due to environment variables not being setup in the call to cmd. Try adding the full directory path to telnet.exe.
modified 18-Dec-17 16:40pm.
|
|
|
|
|
I tried full path to cmd.exe
C:\windows\system32\cmd.exe and get same result.
Why would the script work when running it manually via a double click of the .vbs file however when using a program such as outlook or access to run the same exact .vbs file results in an error "telnet not recognized".....error
|
|
|
|
|
Why did you think that would change anything? Please read my previous suggestion again.
|
|
|
|
|
I did. You said use thebfull path for cmd.exe which is c:\windows\system32\cmd.exe
I guess I dont understand the direction you are giving.
The bigger issue is what I outlined about executing manually vs with another program. Is cmd.exe and telnet limited in how its used for security reasons?
Thanks
|
|
|
|
|
No, he was referring to the full path for Telnet, which is "C:\Windows\System32\Telnet.exe".
Also, using SendKeys is not recommended. What if the user clicks another window or the system pops up a dialog from something else in the middle of all those key strokes you're sending? Bad things will happen.
The better way to do it would be to redirect the Input stream of the CMD Process you launched and write your data to the stream instead.
System.ItDidntWorkException: Something didn't work as expected.
C# - How to debug code[ ^].
Seriously, go read these articles.
Dave Kreskowiak
|
|
|
|
|
Duh....lol....i tried the full path for telnet.exe and run into a similar problem as cmd.exe. i input the commands and server and it now it doesnt connect when using a program to execute the .vbs however if i manually execute my .vbs it works.
Im not concerned with the sendkeys because this script will be running at a time when no one will be accessing the pc.
Sounds more and more like a security issue.
|
|
|
|
|
If it's telling you telnet.exe is a "Bad command or filename", it's because it can't find the executable on whatever the PATH environment is set to. This may be different from what you see when you type SET PATH at a CMD prompt yourself. That's why you have to specify the entire path to telnet.exe in the .VBS file.
System.ItDidntWorkException: Something didn't work as expected.
C# - How to debug code[ ^].
Seriously, go read these articles.
Dave Kreskowiak
|
|
|
|
|
Sendkeys is limited, because it is a liability in scripts.
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
Please I need help with this
So i have a dictionary of words and their corresponding Part Of Speech in my data base...
I want a user to enter a text in a text box then after clicking a button..
My code should determine if the text is valid or not using my dictionary of words
|
|
|
|
|
Onuche Abraham DaCatalyst wrote: My code should determine if the text is valid or not using my dictionary of words
So what are the rules that your code needs to implement?
|
|
|
|
|
I have created a control similar to the SplitContainer with a host control
and 2 custom panels. All controls inherit ParentControlDesigner. I have a
custom splitter control to separate the panels.
Problem: When I resize the panels using the splitter control, the 'designer border'
that surrounds the selected panel does not resize for the selected control.
This border is drawn by the designer; not my code. Is there a way to refresh
the designer so it will redraw the border of the selected control?
Thank you
|
|
|
|
|
You don't. There's no way to tell the designer to refresh itself from your own control, nor should that even work. The control should only be concerned about itself.
Your control has to be properly written to expose its properties and events correctly so the designer can use them without you trying to tell it to do so.
System.ItDidntWorkException: Something didn't work as expected.
C# - How to debug code[ ^].
Seriously, go read these articles.
Dave Kreskowiak
|
|
|
|
|
If the code I gave to you not helped you to solve that problem you should show us your actual ParentControlDesigner and the part of your control which is responsible for the painting to help you with the modification.
|
|
|
|
|
Hello Ralf,
I was hoping there would be a function call that would cause the designer
to re-select the selected child panel which would then redraw the designer's border.
According to another post, there is not.
Since I am new to control design and this control is for my personal use, I can live
with this imperfection in my code for now.
I do not know how to mark this question as no longer relevant but if there is
a box or something I am suppose to select, please let me know.
Thank you for your response.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
