Visual Basic

The Above given code does not work VB.NET so can u plz suggest me something else :)

This is THE solution: The solution to load the resource of bitmap in a StdPicture object is really effective!. I tried to use handle property of the IPictureDisp that returned the LoadResPicture but it failed because he is not handle of bitmap. Nevertheless, if we assigned the IPictureDisp returned by LoadResPicture in a StdPicture object, the StdPicture.handle is perfect bitmap handle!! This is the solution that I implemented : Dim tBitmap As BITMAP Dim iRes As Integer Dim picTemp As New StdPicture ' 102 is the ID of a Bitmap in the .res file. Set picTemp = LoadResPicture(102, vbResBitmap) hImageGray = picTemp.handle If hImageGray <> 0 Then GetObjectAPI hImageGray, Len(tBitmap), tBitmap ' bla bla bla bla..... ........ DeleteObject hImageGray ' I think that this DeleteObject could be cleared since bitmap ' would have to be destroyed when Set picTemp = Nothing, ' but by the doubts that Bill has forgotten to him.... :-) End If Set picTemp = Nothing This works excellent. Mike_spice, when I discovered the solution jumped in a leg. I hope that it serves so much to you as it served my, since in my case, it had a ActiveX and it was already thinking the revolting thing that it would be to distribute bitmap along with the OCX . MrSparc.

You code this written good, safe with some small corrections. MemDC = CreateCompatibleDC(hdc) hBitmap = LoadImageA(App.hInstance, szPath, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE) hOldBitmap = SelectObject( MemDC, hBitmap ) ' bla bla bla SelectObject MemDC, hOldBitmap lRes = DeleteDC(MemDC) If lRes = 0 Then 'We have an error deleting a DC, do something... End If lRes = DeleteObject(hBitmap) If lRes = 0 then 'We have an error deleting an object, do something... End If Now the explication: When call to the function DeleteDCo or DeleteObject, this delete the object from the memory, but not set to zero the variable param. It is why you sees in the immediate window the same value of handle when typing "?hBitmap ". The unquestionable test that bitmap was destroyed is to try to use his handle after to have called to DeleteObject(hBitmap). Good Luck!! MrSparc.

Hi All, I solved my problem. Follows the informations from the given link http://support.microsoft.com/default.aspx?scid=kb;en-us;Q200271 for the solution. Regards P.Anbuselvan

Thats because you are inserting 13 into the textbox. Try Chr(13).

:cool::-DHelo If any one is intressted - I solved the problem..... What I did: A event handler tied to the MouseUp Private Sub OnTreeViewMouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles TreeViewA.MouseUp Dim pt As Point pt = New Point(e.X, e.Y) recursNodeSearch(pt, TreeViewA.Nodes) End Sub And the Sub that do the trapping: Private Sub recursNodeSearch(ByVal pt As Point, ByVal nodes As TreeNodeCollection) Dim nNode As TreeNode For Each nNode In nodes Try If nNode.Bounds.Top <= pt.Y And nNode.Bounds.Bottom >= pt.Y Then 'This check the row, is you want to check the exact location. ' If nNode.Bounds.Contains(pt) Then '=================================== TreeViewA.SelectedNode = nNode Exit Sub ElseIf nNode.IsExpanded Then recursNodeSearch(pt, nNode.Nodes) End If Catch End Try Next End Sub

Yes in VB6 but in VB.NET it´s System.Windows.Forms.Key.Return ---- The I moved on to RichTextBox and found this nice sample - using XHTML to RTF-format a RichTextBox http://www.gotdotnet.com/userarea/keywordsrch.aspx?keyword=xhtml (XHTML is well-formated HTML => XML) no unclosed tags (ex: is in XHTML )

Hi, When your going to retrieve the TreeNode you'll have to cast it to the right object-type like - Custom node-class = TreeNodeEx Private Sub TreeNode1_Click(sender as object, e as TreenodeEventArgs) ... Dim MyTreeNodeEx As TreeNodeEx MyTreeNodeEx = CType(e.Nodes.SelectedNode, TreeNodeX) ... End Sub This is what I'm doing when using the treeview with custom nodes. I hope this answers your question. Greets, Poolbeer Sorry no sigh yet

You should read this article, but change your name, it's a little creepy.[ Nick Parker ](mailto:nickp@netins.com)

Darn folks... Didn't mean to post this twice... I kept getting errors and didn't think it posted at all. Sorry...