|
The "eval" command does not exist in VB. I wish to do something that is possible in other languages:
<br />
For x As Integer = 1 to 10<br />
Dim eval("obj" & x) As myObject<br />
eval("obj" & x).setting = value<br />
<br />
Next<br />
<br />
An immediate answer is, "Create an array of objects!". Problem: the "myObject" throws events that I need to handle. If I create an array of "myObject"s, the objects can no longer throw events... even if they did, how would you handle them?
<br />
Sub Handle_myObject() Handles ... ?<br />
End Sub<br />
What would it handle?
I am stuck on this one. Any help is appreciated.
-- modified at 15:09 Thursday 2nd March, 2006
|
|
|
|
|
Try This ..
USe Load function. This function dynamically creates an object & loads it .
Divya Rathi
|
|
|
|
|
swingheim wrote: I wish to do something that is possible in other languages:
Just because it's possible in other languages, doesn't make it a good programming practice.
swingheim wrote: An immediate answer is, "Create an array of objects!".
It is the answer!
swingheim wrote: Problem: the "myObject" throws events that I need to handle. If I create an array of "myObject"s, the objects can no longer throw events...
Not true! Create your array of objects, remembering to execute a AddHandler statement to manually wire up the event handlers.
For i As Integer = 1 to 10
Dim newObject As New WhateverClass
AddHandler newObject.eventToHandle, AddressOf objectEventHandler
objArray(i) = newObject ' Or whatever your using to store the instances
Next
.
.
.
Private Sub objectEventHandler(parameters)
' blah, blah, blah
End Sub
AddHandler[^] docs. Don't forget to disconnect the handlers with RemoveHandler before the objects die!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Is there a simple and fast way to tell if a file is locked by another process?
I need to ensure that a zipfile is not locked by another process prior to adding a new file.
|
|
|
|
|
Since it is possible for another process to aquire a lock in the time it takes from checking to trying to open the file* yourself I would suggest the better approach is to set up a try/catch mechanism to catch the condition where the file is locked.
Yes, I know it sounds like a tiny amount of time - a few processor instructions - but since Windows is a preemptive multitasking environment there is a strong possibility that the operating system will intervene to give another process its fair share of processor time
ColinMackay.net
Scottish Developers are looking for speakers for user group sessions over the next few months. Do you want to know more?
|
|
|
|
|
I am calling the DynaZip ActiveX control which is returning the ZE_CREAT errormessage (see below). I would think that the ActiveX control would allow you to handle locked files, but I can't find any property that applies. I was attempting to determine if the file was locked prior to calling the control. I may attempt to call this process in a loop until it returns a successful zip message (or another error).
Thanks for the assist.
ZE_CREAT = could not create output file - This error can occur when the target ZIP file or the directory to contain the ZIP file is locked or restricted by another.
|
|
|
|
|
i have a search textbox and search button on the MainForm (MdiParent). when users clicks on search button it shows the search results from the customer table in ChildForm's dataGridView. but since i only show the same instance of the ChildForm, it only works for the first time. how do i show the new search results without creating new ChildForm instance?
Thanks
|
|
|
|
|
are you using a dataset result and databinding the grid each time you search? Or have you bound the grid at design time?
Johny
|
|
|
|
|
The results are datasets.
|
|
|
|
|
try clearing the datset on each click event before your databind call.
like
mydataset.clear()
mydataadapter.fill(mydataset)
mydatagrid.datasource = mydataset
mydatagrid.databind()
or you can create a temp table and use a command builder to run updates on that table.
Regards,
Johny Rodriguez
The GDC, New York.
|
|
|
|
|
can any body please inform me
How to read data (digitized sound samples) from soundcard with or without using directX. and then saving to file displaying them.
desperatly waiting asap coz i am stuck with this problem......
|
|
|
|
|
Please don't cross post.
---
b { font-weight: normal; }
|
|
|
|
|
Please goto the site http://www.freevbcode.com/ and look for the "Direct Sound" in the tutorials section. You might get some help.
|
|
|
|
|
Is there an easy way to copy all files and folders (including hidden) from one folder to another? The io.file.copy command can only copy one file at a time.
Thanks for any help here.
|
|
|
|
|
I found this on the web a few years ago. I do not remember where.
Private Sub CopyDirectory(ByVal SourcePath As String, ByVal DestPath As String, _
Optional ByVal Overwrite As Boolean = False)
Dim SourceDir As DirectoryInfo = New DirectoryInfo(SourcePath)
Dim DestDir As DirectoryInfo = New DirectoryInfo(DestPath)
' the source directory must exist, otherwise throw an exception
If SourceDir.Exists Then
' if destination SubDir's parent SubDir does not exist throw an exception
If Not DestDir.Parent.Exists Then
Throw New DirectoryNotFoundException _
("Destination directory does not exist: " + DestDir.Parent.FullName)
End If
If Not DestDir.Exists Then
DestDir.Create()
End If
' copy all the files of the current directory
Dim ChildFile As FileInfo
For Each ChildFile In SourceDir.GetFiles()
If Overwrite Then
ChildFile.CopyTo(Path.Combine(DestDir.FullName, ChildFile.Name), True)
Else
' if Overwrite = false, copy the file only if it does not exist
' this is done to avoid an IOException if a file already exists
' this way the other files can be copied anyway...
If Not File.Exists(Path.Combine(DestDir.FullName, ChildFile.Name)) Then
ChildFile.CopyTo(Path.Combine(DestDir.FullName, ChildFile.Name), _
False)
End If
End If
Next
' copy all the sub-directories by recursively calling this same routine
Dim SubDir As DirectoryInfo
For Each SubDir In SourceDir.GetDirectories()
CopyDirectory(SubDir.FullName, Path.Combine(DestDir.FullName, SubDir.Name), Overwrite)
Next
Else
Throw New DirectoryNotFoundException("Source directory does not exist: " + SourceDir.FullName)
End If
End Sub
The recursive call is a bit confusing but this has copied my list of directories every night for at least two years.
Should solve your porbelm also.
RCarey
RCarey
|
|
|
|
|
Hi all,
Is it possible to create access users from Vb.net. The company I work for has an application in Access 2003 with a SQL server back end. To log in to the application you have to be a user in SQL server and a user in access with the same password. We are constantly adding new users to the application. I want to create a VB.net application that creates SQL server users and Access users in one place. I was wondering if this is possible. Any ideas or commends or code would be appreciated.
Goran
|
|
|
|
|
Goran have you tried pulling in the com object for access and playing with that, otherwise if you are just using the jet login I doubt you can add users, I could be wrong.
Regards,
Johny Rodriguez
The GDC, New York.
|
|
|
|
|
I have been trying to connect to the mdw file to insert the users but no luck there. Thanks for the idea for the com object but I still would need the VBA code. I will play with it and if I figure out anything ill post the code. Meanwhile if any one can throw any code my way I would appreciate it. Thanks Johny now I have a staring point.
Goran Djuric
|
|
|
|
|
Hi! I want to know how can i open files of any type with appropriate programs in vb.
(Say to open html with internet explorer and frm file with vb etc)
The Shell command in vb is useful in launching only EXEs. But I am not able to open files of other type.
For example my vb code should open "c:\abc\test.txt" with notepad.
Secondly I want to how long my system continues to be in idle state.The screen saver is launched only when system remains idle for a particular time.
And I need to retrieve the idle time of system using my code.How is it possible?
Pls help me. Thanks in advance.
Revathi
|
|
|
|
|
Please don't crosspost, especially posting a C# question in the VB.NET forum!
|
|
|
|
|
I have a crystal report with 3 parameters, XYZ, Version, Other and I am trying to pass values via VB.Net to this report. It is no problem passing one but any more than that, it does not seem to work. The problem is that it the last parameter holds the value and the others are blank. What am I doing wrong. This is driving me crazy. Here is my code.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim strReportPath As String = "C:\temp\report1.rpt"
Try
'Load Crystal Report's rpt file
Dim cr As New CrystalDecisions.CrystalReports.Engine.ReportDocument
cr.Load(strReportPath)
''Declare the parameter related objects
Dim param1Fields As New CrystalDecisions.Shared.ParameterFields
Dim param1Field As New CrystalDecisions.Shared.ParameterField
Dim param1Range As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim param2Fields As New CrystalDecisions.Shared.ParameterFields
Dim param2Field As New CrystalDecisions.Shared.ParameterField
Dim param2Range As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim param3Fields As New CrystalDecisions.Shared.ParameterFields
Dim param3Field As New CrystalDecisions.Shared.ParameterField
Dim param3Range As New CrystalDecisions.Shared.ParameterDiscreteValue
param1Field.ParameterFieldName = "XYZ"
param1Range.Value = 31000
param1Field.CurrentValues.Add(param1Range)
param1Fields.Add(param1Field)
CrystalReportViewer1.ParameterFieldInfo = param1Fields
param2Field.ParameterFieldName = "Version"
param2Range.Value = 10
param2Field.CurrentValues.Add(param2Range)
param2Fields.Add(param2Field)
CrystalReportViewer1.ParameterFieldInfo = param2Fields
param3Field.ParameterFieldName = "Other"
param3Range.Value = 44
param3Field.CurrentValues.Add(param3Range)
param3Fields.Add(param3Field)
CrystalReportViewer1.ParameterFieldInfo = param3Fields
Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument
CrystalReportViewer1.ReportSource = strReportPath
CrystalReportViewer1.Refresh()
'Set the CrystalReportViewer's apperance and set the ReportSource
CrystalReportViewer1.ShowRefreshButton = False
CrystalReportViewer1.ShowCloseButton = False
CrystalReportViewer1.ShowGroupTreeButton = False
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Sub
|
|
|
|
|
Hi,
Using the Exception Management Application Block I can create new logs in the Event Viewer by placing the following in my app.config file:
<exceptionManagement mode="on">
<publisher
assembly="MyAppBlockTest"
type="MyAppBlockTest.ExceptionPublisher"
logname="My Test Log"
applicationname="Exception Management Application Block Test"
fileName="c:\errors.txt">
</publisher>
</exceptionManagement>
I am now trying to use the Enterprise Library and I don't know how to create a new log. I can only write to the default Application log. Can anyone tell me how I can do this?
Thanks very much,
dlarkin77
|
|
|
|
|
Can anyone point me in the right direction to write a ‘cluster aware service’.
I have written a service in VB.NET all works very well but my client said that the service must be cluster aware, as it will be running on a cluster of servers.
Any help would be greatly appreciated.
|
|
|
|
|
This has to be taken into account in the design of your service. It's, usually, not something you can just "bolt on" as an afterthought.
There is no native support for clustering built into the .NET Framework. You'll have to do it the old fashioned way, using the COM objects. Introducing Microsoft Cluster Service (MSCS) in the Windows Server 2003 Family[^]
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I want to create a sound recorder that records voice through microphone
in 128 kbps,mono,8khz sampling rate, 16 bits per sample using VB.NET and
DirectX 8.0's DirectSound API.
Can any body help me?
If possible send me sample code at devang.mg@gmail.com
Thank you in advance..
What you think is what you get
|
|
|
|