Re: How to return the X, Y position of a particular cell in Listview? - Visual Basic Discussion Boards

What kind of database are you using?

1.SQL Server
2.MS Access

Paul

Hi all,
I'm using MSXML to load and parse serveral xml files (obvious Big Grin | :-D

). All works fine while the encoding of the file is utf-8 but when i load a file that has the following header

?xml version="1.0" encoding="UTF-16"?

i get an error telling me that this encoding is not supported.

How can I load files encoded in utf-16?

Thanks in advance,

Marc Soleda

... she said you are the perfect stranger she said baby let's keep it like this... Dire Straits

I have a project with a number of classes from which I've created a dll.

Within this project is a usercontrol object.

When I reference the dll created from the project I can't handle any events that I've created myself. I can handle the leave event for example.

I presume that the event is being raised because if I try and handle it using code inside the initial project containing the usercontrol the evtn is raised and handled.

The usercontrol is defined as friend and withevents and all the events are public that I want to handle.

The events are passed through three objects. For example, usercontrol1 has a child object1 and object1 has a child object2.

usercontrol-->object1-->object2

The initial event is raised in object2, handled by object1 which raises its own event, this is handled by usercontrol which then raises its own event and it is this final event, triggered by the first event, that I want to handle.

I seem to figure it will be something to do how I idnetify things (public/private/protected/friend) as it works inside and not outside the project. I just don't know where.

Any help would be gratefully appreciated.

An optimist's glass is half full.
A pesimist's glass is half empty.
An engineer goes and gets the right size glass.

-- modified at 18:43 Tuesday 20th December, 2005

I've found the solution at:

http://www.vbip.com/books/1861004915/chapter_4915_09.asp

I've found the solution at:

http://www.vbip.com/books/1861004915/chapter_4915_09.asp

An optimist's glass is half full.
A pesimist's glass is half empty.
An engineer goes and gets the right size glass.

I am trying to create an editable listview, where user can edit the data from a specific cell. I wish the put a textbox visible on the specific cell's position, so that the listview is seems to be editable by passing and retrieving the text from the textbox. Is there any way to find out the position of the particular cell in listview?

Thanks a lot

Here is a routine I've used as part of a subclassed listview that displays a textbox over a specific cell in the listview. The signature of the method indicates the row and column coordinates.

Private subItemSelected As Integer = 0
Private subItemText As String
Private subItemSelected As Integer = 0
Private WithEvents editBox As New TextBox
Private strOriginalText As String

Public Sub ShowTextBox(ByVal lvi As ListViewItem, ByVal subitem As Integer)
Dim localLI As ListViewItem
Dim nStart As Integer = X

For Each localLI In Me.Items
If localLI Is lvi Then
'Found the item they passed in.
li = localLI
Dim liBounds As Rectangle = li.GetBounds(ItemBoundsPortion.Entire)

If subitem >= 0 And subitem <= Me.Columns.Count - 1 Then
'Their subitem is valid.
Dim i As Integer
Dim spos As Integer = liBounds.X
For i = 0 To Me.Columns.Count - 1
If i = subitem Then
'We found the subitem they indicated and now have the bounds.
subItemSelected = i
Dim epos As Integer = spos + Me.Columns(subitem).Width
subItemText = li.SubItems(subitem).Text
editBox.Size = New System.Drawing.Size(epos - spos, li.Bounds.Bottom - li.Bounds.Top)
editBox.Location = New System.Drawing.Point(spos, li.Bounds.Y)
editBox.Show()
strOriginalText = subItemText.Trim
editBox.Text = subItemText.Trim
editBox.SelectAll()
editBox.Focus()
Exit For
End If
spos += Me.Columns(i).Width
Next
End If
End If
Next
End Sub

Thanks for your solution... however i still have to pass the index of the selected subitem into your routine... and i haven't found the way to get the index of the subitem...

Can you tell me how to get it?
Thanks you very much

-- modified at 2:37 Wednesday 21st December, 2005

Oh yes, I should have included that.

In the MouseDown event you have the coordinates of the mouse which you can use to determine which column the user clicked in. When I subclassed the listview, I added this:

Private _subitemClicked As Integer
Private li As ListViewItem
Private oldLI As ListViewItem
Private strOriginalText As String

Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
Dim X As Integer = 0
Dim Y As Integer = 0
oldLI = li

li = Me.GetItemAt(e.X, e.Y)
X = e.X
Y = e.Y

'Determine the subitem clicked.
If Not li Is Nothing Then
Dim nStart As Integer = X
Dim liBounds As Rectangle = li.GetBounds(ItemBoundsPortion.Entire)
Dim i As Integer
Dim spos As Integer = liBounds.X

For i = 0 To Me.Columns.Count - 1
If nStart >= spos And nStart < (spos + Me.Columns(i).Width) Then
'We found the subitem they indicated.
_subitemClicked = i
Exit For
End If
spos += Me.Columns(i).Width
Next
End If

'Now call any custom code the developer may have added behind the form.
MyBase.OnMouseDown(e)
End Sub

I then added a property which returned the subitem clicked:

<browsable(false), description("gets="" the="" zero-based="" index="" of="" column="" clicked."),="" _
="" category("appearance")=""> _
Public ReadOnly Property SubitemClicked() As Integer
Get
Return _subitemClicked
End Get
End Property

So when you need to display a textbox you can use the Click event:

Private Sub lvwLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvwLeft.Click

Me.lvwLeft.ShowTextBox(Me.lvwLeft.SelectedItems(0), Me.lvwLeft.SubitemClicked)

End Sub

Now you need a way to transfer the contents of the textbox back to the listview cell. First add this line to the ShowTextBox method right after the editBox.Show() line:

strOriginalText = subItemText.Trim

Add these lines globally to your subclassed listview:

Private bolSkipUpdate As Boolean = False
Public Event ListviewItemChanged(ByVal item As ListViewItem, ByVal subitem As Integer)

Now add these routines:

Private Sub editBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles editBox.KeyUp

If e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Tab Then
li.SubItems(subItemSelected).Text = editBox.Text
editBox.Hide()
End If

If e.KeyCode = Keys.Escape Then
bolSkipUpdate = True
editBox.Hide()
bolSkipUpdate = False
End If
End Sub

Private Sub editBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles editBox.LostFocus
If Not bolSkipUpdate Then
oldLI.SubItems(subItemSelected).Text = editBox.Text
If strOriginalText <> editBox.Text Then
RaiseEvent ListviewItemChanged(oldLI, subItemSelected)
End If
editBox.Hide()
End If
End Sub

Now, whenever the contents of the textbox are changed and committed to the listview, the ListviewItemChanged event will get raised so you can write custom code to handle it.

Ideally, you want to subclass the listview and include all this code. Otherwise you'll have to duplicate it for every instance of your listview.

Dean

Thank you so much.. you have solved my problems.. =)

Dear all.
I m using dll file in my webpage using ASP.now I want my dll to generate a html file and store it into client machine using this web page.My problem is that generated file is currently saved at server.I want it must store this html file on everyone's machine who is using this webpage.Hope so you will understand my problem.I have devloped my dll file in vb.net. OMG | :OMG:

help me all the way.

Urgently required!!

Uttam kumar Confused | :confused:

trickyuk001@rediffmail.com

try to be the best... whereever you go,

This question is better asked in the ASP.NET Forum.

But, since the file system of a client machine is off-limits to your code, you can only send the file to the client. They'll actually have to pick a spot to save the file themselves, just like downloading any other file, like a .ZIP.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Dear Code project
I am a student in software engineering in under graduate.I want to do a mini project in network exam.for that i used your unolib.net for file transfer and message pass.But i get an earror as "remote ip not reachable".please give me the solution.with out this solution i can't do my project.So i request to all members of Code project to help me please
faithfully
Sivakumar

nandhusivakumar wrote:
for that i used your unolib.net for file transfer and message pass

What do you mean by using the word your? You mean the code project? If not, try to check from http://www.codeproject.com/useritems/UnoLibsNet_V2.asp[^].

nandhusivakumar wrote:
So i request to all members of Code project to help me please

All 2.5 million of them? That's a lot of help!

My: Blog | Photos

"Man who stand on hill with mouth open will wait long time for roast duck to drop in." -- Confucius

You best help is going to come from the person who wrote the article your refering too. We, meaning all of us at The Code Project, didn't write this library. An individual did. So ask him/her...

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

I'll clearly tell my exact requirement

1. I have a standard exe project.
2. I also have a compiled chm file.
3. What i want is in my standard exe project whenever a user presses F1 i need to show him the chm file inside this form itself (Inside the application).
4. Or suggest me is there any others ways that i can do this work.

SetParent??

This would be an easy question if I where sitting at home in front of my computer, but as given you where nice enough to move this question to the correct from (out of the lounge) then I will try and help you.

There are a few things you need to do (I'm assuming here that you are using VB6, from what I have seen adding html help to VB.NET is a little easier).

First tell your app where the chm file is located

App.helpfile = [path to help file]
or
App.helpfile = app.path & “\mychm.chm”

If you looking for just a simple link then your done, however if you want each dialog to access its own help page within the chm file then you need to do a little more work.

First each help page will need a unique identifier; this is done in a header file as defines. In other words create a new text file. Give it the same name as your help file and change the file extension to .h

Inside of that fine define your page identifiers, like so.

#define IDH_MYHELP 2001

Open the MS Help workshop project now; now this is where we rely on my memory, if you right click on project properties look for mmm an area to add the defines (sorry about this I'm terrible at remembering the small details). It will only allow you to add a header file (*.h).

The next thing to do is create an alias in MS Help Work Shop to link the above defines to the actual webpage’s. In the same place that you included the above header there is a tab called “Alias” in here you will need to actually link the above defines to the actual web page.

Once you have completed the above operations flip back to your vb project each dialog has a property called HelpID add the numeric integer that you defined in the header file.

Re-compile the entire project (help file include) and all should be linked together.

Hope this helps…

ZeePain! wrote:
This seems like one of those programs that started small, grew incrementally, building internal pressure, and finally barfed all over its source code sneakers. Or something.

thedailywtf.com[^]

-- modified at 3:41 Tuesday 20th December, 2005

tsnarayanan,
If that was you who just sent me an email, please use the public forms as so others may benefit. It’s generally only considered polite to email after you have asked permission (at least with myself anyway).

If I have mistaken your identity then please forgive me.

Smile | :)

Are you having difficulties? Or was my explanation good enough to get you going? If not I can certainly work on a better explanation in a few hours.

ZeePain! wrote:
This seems like one of those programs that started small, grew incrementally, building internal pressure, and finally barfed all over its source code sneakers. Or something.

thedailywtf.com[^]

hi,

I want to create a excel file in vb..the data is in 4textbox(let).
those information has to go to the EXCEL file.

Paritosh

Private Sub Command1_Click()
Dim ExcelBook As Excel.Workbook
Dim Esheets As Sheets
Dim Esheet As Excel.Worksheet
Dim ExcelApp As Excel.Application

Set ExcelApp = New Excel.Application
Set ExcelBook = ExcelApp.Workbooks.Add(1)
ExcelApp.Visible = True
Set Esheets = ExcelBook.Sheets
ExcelBook.Activate
Set Esheet = Esheets(1)

With Esheet
.Activate
.Cells(1, 1) = Text1.Text
.Cells(1, 2) = Text2.Text
.Cells(1, 3) = Text3.Text
.Cells(1, 4) = Text4.Text
.SaveAs "C:\1.XLS"
End With

ExcelBook.Close
ExcelApp.Quit
Set Esheet = Nothing
Set Esheets = Nothing
Set ExcelBook = Nothing
Set ExcelApp = Nothing

End Sub

Don't forget to tell him to Add the reference of Microsoft Excel.

I am trying to create a windows application with just the form floating around and bouncing off when it hits the edge of the monitor with some text being displayed. How do I do this?

I am the one; I am genius wrote:
I am the one; I am genius

Well... you're the genius - you tell us Big Grin | :-D

...Steve

"Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." (Translation: I'll show you the way, but not write the code for you.) I read that somewhere once Smile | :)

You're really killing me!