Visual Basic

Re: Format a Row in DataGrid

7-Dec-04 13:16

m_dhakshna wrote:
Hi,

I am working on Datagrid and i am struggling to format a row in the datagrid to a currency formatting. Do any one know about it, please help me out.

Are you sure you didn't mean 'column' instead of 'row'? Because I investigated the property page of the datagrid, and there is a tab named 'Format' where you can choose the format of a specified column.

Cheers,
Pablo.ar

Anonymous7-Dec-04 16:30

Anonymous

7-Dec-04 16:30

Hi,

I am sure that i have to format a row and not a column.

Thanks & Regards

Dhakshna

Singleton Strongly-Typed Dataset?

Mark Farmiloe7-Dec-04 7:14

Mark Farmiloe

7-Dec-04 7:14

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

Keypress mimic Mouse click

TAlvord7-Dec-04 5:59

TAlvord

7-Dec-04 5:59

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

Reading/Writing large files

Zenly7-Dec-04 1:45

Zenly

7-Dec-04 1:45

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,

Dave Kreskowiak7-Dec-04 3:52

Dave Kreskowiak

7-Dec-04 3:52

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

Zenly7-Dec-04 5:12

Zenly

7-Dec-04 5:12

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,

Dave Kreskowiak7-Dec-04 5:51

Dave Kreskowiak

7-Dec-04 5:51

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

HANDLES - Windows Messages

Zenly7-Dec-04 6:40

Zenly

7-Dec-04 6:40

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,

Urgent - ThreadPool

cwayman7-Dec-04 0:27

cwayman

7-Dec-04 0:27

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

rdges6-Dec-04 22:42

rdges

6-Dec-04 22:42

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!

Help required with Regular Expressions

vbvjain6-Dec-04 18:52

vbvjain

6-Dec-04 18:52

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.

Main Menu Bar Color?

Sumit Domyan6-Dec-04 18:00

Sumit Domyan

6-Dec-04 18:00

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

Re: Main Menu Bar Color?

Dave Kreskowiak7-Dec-04 5:56

Dave Kreskowiak

7-Dec-04 5:56

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

Auto-scroll ListView

xshi0056-Dec-04 16:48

6-Dec-04 16:48

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

Pablo.ar7-Dec-04 0:54

7-Dec-04 0:54

Try this, right after populating the list view:

lvMyListOfItems.ListItems(lvMyListOfItems.ListItems.Count).Selected = True

that's it!

Cheers,
Pablo.ar

xshi0057-Dec-04 9:05

7-Dec-04 9:05

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

Pablo.ar7-Dec-04 9:18

7-Dec-04 9:18

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.
Wink | ;)

Pablo.ar

xshi0057-Dec-04 9:45

7-Dec-04 9:45

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

Pablo.ar7-Dec-04 13:06

7-Dec-04 13:06

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

xshi0057-Dec-04 14:49

7-Dec-04 14:49

Thank you, Pablo.ar.

Frank

kostasvel7-Dec-04 2:31

kostasvel

7-Dec-04 2:31

Me.ListView1.EnsureVisible(Me.ListView1.Items.Count - 1)

xshi0057-Dec-04 9:06