|
Can u explain how i can do this what i am changing my code
S.A.A
|
|
|
|
|
Your code doesn't define an event, nor does it transfer any information in event arguments to the subscriber. I'm short on time right now so I can't come up with an example yet.
|
|
|
|
|
Thanks my friend. Can u help me how i can define event and transfer information ?? thanks again..
S.A.A
|
|
|
|
|
The easiest way to declare an event with parameters in your control is:
Public Event MyEvent(ByVal sender As Object, ByVal arguments As MyEventArgs)
Of course, you're going to need a class called MyEventArgs that'll hold the parameters you pass to the event subscriber:
Public Class MyEventArgs
' This is not the proper way to do this, but it works for demo purposes...
Public SomeValue As Integer
Public OtherValue As Integer
Public Sub New(ByVal someValue As Integer, ByVal otherValue As Integer)
Me.SomeValue = someValue
Me.OtherValue = otherValue
End Sub
End Class
and, lastly, to raise the event from your control:
RaiseEvent MyEvent(Me, New MyEventArgs(123,321))
Seriously, pick up a book on VB.NET and work through it. Decalring events is covered in just about every book I've seen.
|
|
|
|
|
Thanks Dave Kreskowiak
S.A.A
|
|
|
|
|
hi
I made a win-application in vb.net but i want to have a exe file that work undependent on .netframework
if you know any program please tell me
tanks in advanse .
en.mahdi
|
|
|
|
|
Ifyou google, you'll find something. But, it's very expensive.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Adding to CG's post, AFAIK, those programs embed the framework runtime assemblies into a single assembly and loads it when the application runs. What is the problem to install framework which is free ?
|
|
|
|
|
I want to make my programs faster in load and work speed .
by having the machine code not IL codes
thanks .
|
|
|
|
|
You really can't get around that.
There is a tool that generates native code from the IL code in the assemblies, but, you can't just NGEN your assemblies and then distribute those to your customers. NGEN generates code speicifically for the processor that it's running on. So, if you NGEN an assmebly on an Intel Core 2 Duo, the resulting native code isn't guaranteed to work on an AMD Athlon 2600+. NGEN has to be run on the assemblies at installation time on the customer workstations.
Also, don't expect to get large performance boosts in load times. When an assembly is loaded, the native compiler does a very good job at compiling the code down to native and does it very fast. The .NET CLR will also not compile an entire assembly, but only what it needs to compile to run the current code. If you create an instance of a class in, say, a .DLL, that class won't get compiled into native code until your code first tries to create an instance of the class. The compiler works on a on-demand basis.
Now, if you go the other route and use an expesive third party product to build the .NET Framework into your .EXE, you still have an IL .EXE which will be compiled on-demand, but now you have a MUCH larger .EXE file, which will take longer to load anyway.
|
|
|
|
|
Not sure but this may be solved if u use setup of ur project instead of exe
The Great Pleasure In Doing That Things That Other People Say U Can't By Doing This U Can Shut Their Mouth
|
|
|
|
|
hai friends
in my system , i have two user
1)administrator
2)myuser
does for administrator and myuser , is the windows registry will be same..
in administrator , i created a key and given a value
but the same key i could not found in the "myuser"
so my project is creating again the key and the value...
is there any soln for it....
thanks in advance
vijay
devulapally_vijay@yahoo.co.in
|
|
|
|
|
You obviously need an proper explanation of the registry. Try
this or this
It should all become clear then.
Bob
Ashfield Consultants Ltd
|
|
|
|
|
The registry is NOT the same for every user. Specifically, the registry has sections that are specific to the machine, and therefore any user that logs in on that machine, and sections that are specific to each user. The vast majority of the registry sits under the HKEY_LOCAL_MACHINE and HKEY_CURRENT_USER hives. I think you can figure out which is which from those two names alone. Obviously, any value you create under HKEY_CURRENT_USER is not going to be visible to any other user who logs in on that machine.
|
|
|
|
|
hai dave
thank for u for replying me ..
its so help ful to me ...
but i got an error while doing it ....
i have two user
1)administrator 2)myuser
i m developing my project in "adminstrator"
and i written the code like this ...
Dim usrky As RegistryKey
usrky = Registry.LocalMachine
If (usrky.OpenSubKey("Software\VIJAY")) Is Nothing Then
usrky.OpenSubKey("Software", True).CreateSubKey("VIJAY").SetValue("me", "pandu")
usrky.Close()
MsgBox("key created")
End If
MessageBox.Show(usrky.OpenSubKey("Software\VIJAY", 1, AccessControl.RegistryRights.FullControl).GetValue("me").ToString(), "local machine key reg")
its working in adminstrator but ...
it is not working in user "myuser"
it is giving error like
"Register Access is not allowed"
now what to do ....
my project has to be run under both "administrator" and "myuser" also.
wht to do...
plz solve this ...
thanks in advance ...
vijay
devulapally_vijay@yahoo.co.in
|
|
|
|
|
vijaylumar wrote: i m developing my project in "adminstrator"
There's your first mistake. Always develop your applications as the user, not the admin. Admin's have far mar permissions to the system than normal users do. You've just found out why this is a good idea.
The reason is doesn't work is because Admin users have full access to the registry, including full read/write permissions to everything under the HKEY_LOCAL_MACHINE hive. Users only have read access to HKEY_LOCAL_MACHINE. That's why it doesn't work. You're going to have to find another place to store your data if normal users are going to write to it.
|
|
|
|
|
hai friends
how to create a help file for vb.net 2.0 windows application
it should easy to create
friendly to user
search option should be there...
etc..
is there any tool for it...
vijay
devulapally_vijay@yahoo.co.in
|
|
|
|
|
Hello Vijay,
There are several tools available in the market for Help Authoring. Perform a google search with the keyword "Help Authoring Tools".
One of the tools I am aware of is Doc To Help. Check the link below for more information on it:
http://doctohelp.com/
Regards,
Dave
Dave Traister
Software Engineer
ComponentOne LLC
www.ComponentOne.com
|
|
|
|
|
Search for HTML Help Workshop.
"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
anybody who knows or have an idea about this error in VB2005 and CrystalRport XI R2 and MS ACCESS?
CRAXDRT.ConnectionPropertiesClass.getItem(String Name) "Error: Invalid Index"
Here's my code:
************************
<br />
<br />
Public crxApp As CRAXDRT.Application<br />
Public crxReport As CRAXDRT.Report<br />
Public crxDataBase As CRAXDRT.Database<br />
Public crxTable As CRAXDRT.DatabaseTable<br />
Public crxTables As CRAXDRT.DatabaseTables<br />
Public crxConnectionProperty As CRAXDRT.ConnectionProperty<br />
<br />
<br />
Public strSelectionfrm As String<br />
Public strCRSourcePath As String<br />
<br />
Private Sub frmCrystalReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
Try<br />
ChildFormAutoSizeFit(Me)<br />
Me.Cursor = Cursors.WaitCursor<br />
Me.MdiParent = frmMain<br />
Dim i As Integer = 0<br />
<br />
crxApp = New CRAXDRT.Application<br />
<br />
crxReport = crxApp.OpenReport(strCRSourcePath, CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)<br />
<br />
crxTables = crxReport.Database.Tables<br />
<br />
For Each crxTable In crxReport.Database.Tables<br />
<br />
'Note: The error occurs here<br />
crxConnectionProperty = crxTable.ConnectionProperties("Data Source") = crxDataBasePath<br />
crxConnectionProperty = crxTable.ConnectionProperties("Database Name") = myDataBasePath & "\dbEmployee.mdb"<br />
crxConnectionProperty = crxTable.ConnectionProperties("User ID") = "myUserID"<br />
crxConnectionProperty = crxTable.ConnectionProperties("Password") = "myPassword"<br />
Next crxTable<br />
<br />
crxReport.Database.Verify()<br />
<br />
crxReport.SQLQueryString = strSelectionfrm<br />
<br />
AxCRViewer1.ReportSource = crxReport<br />
AxCRViewer1.ViewReport()<br />
<br />
crxDataBase = Nothing<br />
crxTable = Nothing<br />
crxTables = Nothing<br />
crxReport = Nothing<br />
crxApp = Nothing<br />
<br />
Catch ex As Exception<br />
MsgBox(ex.ToString())<br />
Finally<br />
Me.Cursor = Cursors.Default<br />
End Try<br />
End Sub<br />
*******************
actually i know that the error's occurs on the part where..
crxConnectionProperty = crxTable.ConnectionProperties() -->indexing or string name..
but i have just follow it from other forums that works for them..
anybody who have a good solutions about this error?? Please help... Im so frustated to figure it out myself... 
|
|
|
|
|
vbDigger'z wrote: 'Note: The error occurs here
crxConnectionProperty = crxTable.ConnectionProperties("Data Source") = crxDataBasePath
Should this say crxDataBase, not crxDataBasePath?
-------------------------------------------
Don't walk in front of me, I may not follow;
Don't walk behind me, I may not lead;
Just bugger off and leave me alone!!
|
|
|
|
|
Note: The error occurs here
crxConnectionProperty = crxTable.ConnectionProperties("Data Source") = crxDataBasePath
Should this say crxDataBase, not crxDataBasePath?
*******
Yup!! actually i try it both...
<br />
public crxDataBasePath as string = "D:\folder1\folder2\Database"<br />
<br />
For Each crxTable In crxReport.Database.Tables<br />
crxConnectionProperty = crxTable.ConnectionProperties("Data Source") = crxDataBasePath<br />
crxConnectionProperty = crxTable.ConnectionProperties("Initial Catalog") = "dbEmployee.mdb"<br />
crxConnectionProperty = crxTable.ConnectionProperties("User ID") = "myUserID"<br />
crxConnectionProperty = crxTable.ConnectionProperties("Password") = "myPassword"<br />
Next crxTable<br />
********
still the same error in that first line of,
crxConnectionProperty = crxTable.ConnectionProperties("Data Source") = crxDataBasePath
..
CRAXDRT.ConnectionPropertiesClass.getItem(String Name) "Error: Invalid Index"
*********
and also please you may double check my code..
here it is..
***************************
Public crxApp As CRAXDRT.Application
Public crxReport As CRAXDRT.Report
Public crxDataBase As CRAXDRT.Database
Public crxTable As CRAXDRT.DatabaseTable
Public crxTables As CRAXDRT.DatabaseTables
Public crxConnectionProperty As CRAXDRT.ConnectionProperty
Public strSelectionfrm As String
Public strCRSourcePath As String
<br />
Private Sub frmCrystalReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
Try<br />
ChildFormAutoSizeFit(Me)<br />
Me.Cursor = Cursors.WaitCursor<br />
Me.MdiParent = frmMain<br />
<br />
crxApp = New CRAXDRT.Application<br />
<br />
crxReport = crxApp.OpenReport(strCRSourcePath, CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)<br />
<br />
crxTables = crxReport.Database.Tables<br />
<br />
For Each crxTable In crxReport.Database.Tables<br />
crxConnectionProperty = crxTable.ConnectionProperties("Data Source") = crxDataBasePath<br />
crxConnectionProperty = crxTable.ConnectionProperties("Initial Catalog") = "dbEmployee.mdb"<br />
crxConnectionProperty = crxTable.ConnectionProperties("User ID") = "myUserIDxxxxxx"<br />
crxConnectionProperty = crxTable.ConnectionProperties("Password") = "myPasswordxxxxx"<br />
Next crxTable<br />
<br />
crxReport.Database.Verify()<br />
<br />
crxReport.RecordSelectionFormula = strSelectionfrm<br />
<br />
AxCRViewer1.ReportSource = crxReport<br />
AxCRViewer1.ViewReport()<br />
<br />
crxDataBase = Nothing<br />
crxTable = Nothing<br />
crxTables = Nothing<br />
crxReport = Nothing<br />
crxApp = Nothing<br />
<br />
Catch ex As Exception<br />
MsgBox(ex.ToString())<br />
Finally<br />
Me.Cursor = Cursors.Default<br />
End Try<br />
End Sub<br />
***********
im so confused... please help...
|
|
|
|
|
Are you sure the "Data Source" property isn't expecting the full path AND filename of your database?
eg: crxConnectionProperty = crxTable.ConnectionProperties("Data Source") = "c:\databasepath\filename.mdb"
??
-------------------------------------------
Don't walk in front of me, I may not follow;
Don't walk behind me, I may not lead;
Just bugger off and leave me alone!!
|
|
|
|
|
eg: crxConnectionProperty = crxTable.ConnectionProperties("Data Source") = "c:\databasepath\filename.mdb"
*********************
actually, not really...
i just made so many experimentation also base on other post from the internet..
i've also try this code
**************************
<br />
<br />
Public crxApp As CRAXDRT.Application<br />
Public crxReport As CRAXDRT.Report<br />
Public crxDataBase As CRAXDRT.Database<br />
Public crxTable As CRAXDRT.DatabaseTable<br />
Public crxTables As CRAXDRT.DatabaseTables<br />
Public crxConnectionProperty As CRAXDRT.ConnectionProperty<br />
<br />
Private Sub frmCrystalReport_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
Try<br />
<br />
crxApp = New CRAXDRT.Application<br />
<br />
crxReport = crxApp.OpenReport(strCRSourcePath, CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)<br />
<br />
For Each crxTable In crxReport.Database.Tables<br />
<br />
'STILL ERROR OCCURED HERE "Invalid Index" also to following crxTable.ConnectionProperties.Item<br />
<br />
crxConnectionProperty = crxTable.ConnectionProperties.Item("Data Source")<br />
crxConnectionProperty.Value = "D:\Folder1\Folder2\DatabseFolder"<br />
crxConnectionProperty = crxTable.ConnectionProperties.Item("Initial Catalog")<br />
crxConnectionProperty.Value = "myDataBase.mdb"<br />
crxConnectionProperty = crxTable.ConnectionProperties.Item("User ID")<br />
crxConnectionProperty.Value = "xxxxxxxxx"<br />
crxConnectionProperty = crxTable.ConnectionProperties.Item("Password")<br />
crxConnectionProperty.Value = "xxxxxxxxx"<br />
<br />
Next crxTable<br />
<br />
crxReport.Database.Verify()<br />
<br />
crxReport.SQLQueryString = strSelectionfrm<br />
<br />
AxCRViewer1.ReportSource = crxReport<br />
AxCRViewer1.ViewReport()<br />
<br />
crxDataBase = Nothing<br />
crxTable = Nothing<br />
crxTables = Nothing<br />
crxReport = Nothing<br />
crxApp = Nothing<br />
<br />
Catch ex As Exception<br />
MsgBox(ex.ToString())<br />
Finally<br />
Me.Cursor = Cursors.Default<br />
End Try<br />
End Sub<br />
<br />
*******************************
and still??? the same error...
and i've also try this code and still the same error.. 
*******************************
<br />
crxConnectionProperty = crxTable.ConnectionProperties.Item("Data Source")<br />
crxConnectionProperty.Value = "D:\Folder1\Folder2\DatabseFolder\myDatabase.mdb<br />
or neither like this... still the same error...
<br />
crxConnectionProperty = crxTable.ConnectionProperties.Item("Data Source")<br />
crxConnectionProperty.Value = "D:\Folder1\Folder2\DatabseFolder"<br />
**************
this VS VB2005 and CR XI R2 is freaking me out and im very frustrated....
please help... anybody... please...
thank you so much again to those who are formerly participating with this topic... thanks guys... a lot of appreciation to all of you...
|
|
|
|
|
This may be really stupid but try changing "User ID" to "UserID". I don't think it is the problem but I once ran up against something similar.
If that does not work the change the string to an integer, you will probably need to verify the ordinal. There may be an enum somewhere!
Never underestimate the power of human stupidity
RAH
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
