|
Hi,
I am sure that i have to format a row and not a column.
Thanks & Regards
Dhakshna
|
|
|
|
|
I appreciate the convenience of adding a dataset 'control' to my forms, but I would like to only have one set of this data in my app, not one set per form.
But if I reset the form dataset to point at the 'global' dataset, then I have to redo all the binding, which seems not only a bit of a drag, but also an indication that there must be a better way.
I have sort of achieved a singleton dataset using the following code, but I have hardly tested it and I'm not at all sure whether this is the correct way to go. So I thought I'd ask the gurus out there...
Imports System
Imports System.Data
Imports System.Runtime.Serialization
Imports System.Xml
<serializable(), system.componentmodel.designercategoryattribute("code"),=""
system.diagnostics.debuggerstepthrough(),="" system.componentmodel.toolboxitem(true)=""> _
Public Class SingletondsPop
Inherits dsPop 'My strongly-typed dataset (dsPop.xsd)
Private Shared mdsPop As dsPop
Public Shared ReadOnly Property dsPop() As dsPop
Get
Return mdsPop
End Get
End Property
Shared Sub New()
If mdsPop Is Nothing Then
mdsPop = New dsPop
End If
End Sub
End Class
|
|
|
|
|
Anyone know how to have a keypress mimic the mouse clicking on a button. i.e. I have a button with the number "1" on it. When I press the number 1 key, I would like the button "1" to go up and down like it was pressed with the mouse.
Thanks,
Tim
|
|
|
|
|
Hi,
I would like to scan my filsystem and create a list of all files and directories which I will output to a file. I would then Like to read this file and manipulate it by replacing various strings that match a certain criteria.
The output from the directory list is over 200MB. Could you tell me what is the most ifficient way of reading/manipulating this file. I tried the following routine but it braught my system to a hault.
Function GoReadFileToString(ByVal lvFilePath As String)
Dim lvReadFileOut As String
If File.Exists(lvFilePath) = True Then
Dim fsStream As New FileStream(lvFilePath, FileMode.Open, FileAccess.Read)
Dim srReader As New StreamReader(fsStream)
lvReadFileOut = srReader.ReadToEnd
Replace(lvReadFileOut, "d:\directory1", "")
srReader.Close()
Return (lvReadFileOut)
End If
End Function
Thanks,
|
|
|
|
|
Since your using .ReadToEnd, yes, it will bring your system to a halt while the reader is busy filling RAM with 200MB of data. Any other solution will be slower, but will not hold Windows hostage until it completes:
Function GoReadFileToString(ByVal lvFilePath As String) As String()
If File.Exists(lvFilePath) = True Then
Dim Index As Integer = 0
Dim lvReadFileOut() As String
Dim fsStream As New FileStream(lvFilePath, FileMode.Open, FileAccess.Read)
Dim srReader As New StreamReader(fsStream)
Do While srReader.Peek > 0
lvReadFileOut(Index) = srReader.ReadLine()
Replace(lvReadFileOut(Index), "d:\directory1", "")
Application.DoEvents()
Loop
srReader.Close()
Return (lvReadFileOut)
End If
End Function
But, why would you want to read 200MB of data anyway? Why not just create a class that wraps the file and opens it, reads it one line at a time PER CALL by the client using the class, does it's replace processing and then returns the line to the called. When the caller is done, it can call a Close method in your class to release the file. MUCH less RAM will be consumed using a process like this and you won't have to worry about the system dropping 200MB into the swap file.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I tried your function and I am getting the following error message on "lvReadFileOut(Index) = srReader.ReadLine()". Do you know how I could fix this?
Error:
"An unhandled exception of type 'System.NullReferenceException' occurred in eLS.exe. Additional information: Object reference not set to an instance of an object."
I am kind of new to programming so I am not too familiar with the class. Do you have an example of this?
Idealy I want to replace lines of a file without having to read it into a variable then write it back out to a new file. I also want a solution that is quick and ifficient.
Thanks,
|
|
|
|
|
Zenly wrote:
Idealy I want to replace lines of a file without having to read it into a variable then write it back out to a new file.
I'm not going to ask why you tried to read a 200MB file into a string variable then.
Zenly wrote:
Idealy I want to replace lines of a file without having to read it into a variable then write it back out to a new file. I also want a solution that is quick and ifficient.
Then process the file one line at a time. The solution is to open TWO file streams. One for reading the source file and the other for writing the destination file. Read the source file, using .ReadLine(), into a string variable, call your Replace function on it, then write the new line out to your second file. Keep doing this until you reach the end of the source file, see the example code for the reference to Peek. If Peek returns anything less than 0, you've reached the end of the file.
Private Sub ProcessFile(ByVal sourceFilePath As String, ByVal destFilePath As String)
If File.Exists(lvFilePath) = True Then
Dim lineToProcess As String
Dim srcStream As New StreamReader(sourceFilePath)
Dim destStream As New StreamWriter(destFilePath)
Do While (srcStream.Peek >= 0)
lineToProcess = srcStream.ReadLine()
Replace(lineToProcess, "d:\directory1", "")
destStream.WriteLine(lineToProcess)
Loop
srcStream.Close()
destStream.Close()
End If
End Function
* This code is not guaranteed to compile, let alone work. It is intended as a guide only, to be worked out and fixed by you, the reader!
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks you so much for helping me with this. I am now able to read,replace, and write to a new file within 30seconds. And not adversly affect my system.
Thanks,
|
|
|
|
|
Hey,
I really need to be able to make a button that stops my ThreadPool but i am really stuck on how to do it.
Any help would be greatly appreciated as this is really urgent
Chris
|
|
|
|
|
Hi, I need find the handle of button "OK" of Application, and later to push it. I've used this method, but it's very difficult for me, can anyone help me, please?:
Dim handleRefresh As IntPtr
Dim pdwSize As Long
pdwSize = FindWindow(vbNullString, "OK")
handleRefresh = Marshal.AllocHGlobal(Marshal.SizeOf(pdwSize))
SendMessage(handleRefresh, WM_LBUTTONDOWN, 0, 0)
SendMessage(handleRefresh, WM_LBUTTONUP, 0, 0)
RDG, thanks!
|
|
|
|
|
Hi
I am developing an application which requires me to parse HTML pages and gathervarious information such as title, author etc. i figured out that the best way to do this is to use regular expressions. while using regular expressions, i faced a lot of problems, one was of proper expression and then the other one was how to extract the complete strings . actually first to check whether there is author, then get its contents.
Can anyone help me with this, sample code would be of great help.
thanks in advance.
|
|
|
|
|
How can I change a main menu's bar colour?
I can change menuitem color. But i want to change color of whole bar (complete menu bar from 0 to 100%).
Is it possible to change it?
Thanks
Sumit Domyan
|
|
|
|
|
The the menu bar color is determined by the system (Display properties, Appearance tab), coloring is not supported. You'll either have to write your own MainMenu class, inheriting from MainMenu, and ownerdraw the menu bar yourself, search the articles on CP for an example, or use a third party component that exposes this kind of functionality.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi there,
Is there anyone know how to make a windows form listview control always automatically scroll to the last item when loading lots of items into the list? Thanks a lot.
Frank
|
|
|
|
|
Try this, right after populating the list view:
lvMyListOfItems.ListItems(lvMyListOfItems.ListItems.Count).Selected = True
that's it!
Cheers,
Pablo.ar
|
|
|
|
|
Thanks, Pablo.ar. But it does not work, because what I need it is to always show the last item while the items are loading.
Frank
|
|
|
|
|
Just put that line right at the end (still, inside!) of the loop block:
Do
...your block of code
...your block of code
...your block of code
lvMyListOfItems.ListItems(lvMyListOfItems.ListItems.Count).Selected = True
Loop
So, right before the loop loops, it will select (and scroll to) the last item.
Pablo.ar
|
|
|
|
|
Hi Pablo
Thanks for your reply. But I think you might be talking about some list control other than MS ListView, since ListView does not have ListItems property (while it does have Items property). And your statement can be:
lvMyListOfItems.Items(lvMyListOfItems.Items.Count - 1).Selected = True
This statement will select all the items after the loop completes. However, it can not auto-scroll the listview while loading items. It is another stupid MS control, since many other third-party controls can do it without any code. Meanwhile, kostasV provides a solution that meets my need. Thanks again for your time.
Frank
|
|
|
|
|
If you still want to give a try to the way I showed you, make sure you set the listview property 'Multiselect' to false.
I think that's why the code I gave you didn't work, anyhow, you did get the solution in a better way.
1st class code there, kostasV!
Pablo.ar
|
|
|
|
|
Thank you, Pablo.ar.
Frank
|
|
|
|
|
Me.ListView1.EnsureVisible(Me.ListView1.Items.Count - 1)
|
|
|
|
|
Thanks a lot, kostasV. That is really what I need.
Frank
|
|
|
|
|
For a public function for batting averages would this be right?
Dim outcome(10) As String
'declaring an array
outcome(0) = "single"
outcome(1) = "double"
outcome(2) = "triple"
outcome(3) = "home run"
outcome(4) = "strike"
outcome(5) = "ground out"
outcome(6) = "fly out"
outcome(7) = "walk"
outcome(8) = "sacrifice bunt"
outcome(9) = "sacrifice fly"
outcome(10) = "hit by pitch"
'Step through the array and add the values
For i = 0 To strPlateAppearance.Length - 1
total += strPlateAppearance(i)
Next
'Divide by the number of elements in the array
'Assing the result of the Function Name and it will become the 'returned' value
CalculateBattingAverage = total / strPlateAppearance.Length
|
|
|
|
|
hey,
So you want to figure out a batting average of a player?
i am not good with baseball averaging i just watch it ......
Wat does a single,a double etc.... equal? (how many points?)
and are u doing a window Form or a console form???
|
|
|
|
|
yeah i'm not too good at averaging either just watching....but im trying
I set it up like this
single = hit
double = hit
triple = hit
home run = hit
stike = miss
ground out = miss
fly out = miss
walk = n/a
sacrifice bunt = n/a
sacrifice fly = n/a
hit by pitch = n/a
Then I put it If "hit" then inthits +1 intatbats +1 n/a the same and miss the same
all toogether its inthits/intatbats while intNA = 0 then no offical atbats with an average of 0 still
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
