Visual Basic

How to set default button in a winform?

28-Jun-05 4:18

A quick Google for "VB6 convert string byte array" comes up with:

' Convert string into a byte array:
Dim b() As Byte
b = "This is the String"

' Add null termination:
Redim Preserve b(0 To Ubound(b) + 2) As Byte

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

rushing28-Jun-05 0:31

rushing

28-Jun-05 0:31

I am using vb.net 2005 beta 1.
Thanks!

Re: How to set default button in a winform?

Dave Kreskowiak28-Jun-05 4:14

find word editor using API

28-Jun-05 4:14

That depends on what you mean by "default button". Have you looked at the AcceptButton property of the form?

You also might want to set the TabOrder of the button to 0. But, that depends on what your doing with your form and on what control you want the focus to being at.

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

Anonymous27-Jun-05 22:36

27-Jun-05 22:36

i want search/ find text/word in editor using API VB.
I succeded to get 'FindWindow' But after clicking on 'Find'
button no response. I want to jump on matching word/text.

Why this occured ? Does anyone know? Frown | :(

Any help appriciated?

Dave Kreskowiak28-Jun-05 4:12

28-Jun-05 4:12

Uhhhh.... What?

Are you trying to control Notepad or Word? Are you trying to control their Find/Find Next search boxes?

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

Anonymous28-Jun-05 17:10

28-Jun-05 17:10

I am using 'DHTMLEDIT' control.
i want use FindNext to word/text in 'DHTMLEDIT' like 'Find' used in 'Notepad'.

Dave Kreskowiak29-Jun-05 0:50

29-Jun-05 0:50

You left the most important detail out of your question.

The DHTMLEdit control is so old, MS doesn't even have the docs for it anymore. I've never used the control, so without the docs, I can't tell you how to get it to pop up it's Find window. You might want to consider using a newer component. There's a bunch out there.

But, if you want to keep using this thing, look into finding other examples of people using the control. Just Google for "DHTML Edit Control". You could probably start with this[^] example.

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

abssoft29-Jun-05 16:27

abssoft

29-Jun-05 16:27

Thanks for guidance.

If i use 'Ctrl + F' key then Find Window appear in 'DHTMLedit' control. it search text properly.
Then I think that it is possible using API.
Do you know controls like 'DHTMLedit'?

Dave Kreskowiak30-Jun-05 2:25

30-Jun-05 2:25

abssoft wrote:
Do you know controls like 'DHTMLedit'?

What part of "Just Google for 'DHTML Edit Control'." is difficult to understand?

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

MohammadAmiry28-Jun-05 4:21

MohammadAmiry

28-Jun-05 4:21

You mean that you are using the FindWindow API?.
WTF | :WTF:

If I have understood correctly, I should tell you that FindWindow API does not find text in a window, it finds the window itself!
It gets the Caption and Class of the window and returns its Handle.

Tell me if I missunderstood you.

Anonymous28-Jun-05 17:15

28-Jun-05 17:15

Thanks for Replying
I am using following API -

Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long

Private Declare Function GetWindow Lib "User32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Private Declare Function GetWindowText Lib "User32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Dave Kreskowiak29-Jun-05 0:40

treeview control question

29-Jun-05 0:40

These functions are used to find any window and return the title bar text of that window. They will NOT help you in finding any text inside a window.

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

aimar_2027-Jun-05 22:05

27-Jun-05 22:05

Hello, I have a treeview in a vb.net application.
I want to collapse nodes except the present one. How I can do this?
I have obtained that some nodes are collapsed, but the present too, and I don't want this.

Thanks

Anonymous27-Jun-05 22:40

27-Jun-05 22:40

Can't undetstand ur question.
Explain it detail with code. So that we can help you. Confused | :confused:

aimar_2027-Jun-05 22:52

27-Jun-05 22:52

If have this code:

I want to cross the treeview for when I select one one, collapse the rest (if are expanded), except the branch of the node that are selected

Dim nodo As TreeNode
For Each nodo In CatalogTree.Nodes
If SelNode.IsSelected Then
If Not SelNode Is nodo Then
nodo.Collapse()
End If
End If
Next
When I execute the application, all the tree are collapsed, but I don't want collapse the branch of the node that are selected.

Sorry for my English, I'm for spain.

Thanks

Dave Kreskowiak28-Jun-05 2:40

28-Jun-05 2:40

You've got the right idea, you just need a little more thinking about the problem. You need to do two things.

First, you have to create a list of nodes starting from the currently selected node and working your way back up the tree till you find the root. For each step up the tree, you'll add this node to your list. Use the current node's Parent property.

Second, the code you posted is almost correct. You can then iterate through all the node, and child nodes if your requirements dictate it, and compare it to the nodes in your list. If the node is in the list, DON'T collapse it. If it isn't in the list, well, you know what to do...

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

aimar_2028-Jun-05 5:14

28-Jun-05 5:14

Thanks for you reply, but I don't understand very well.

Can you post me the code, please? I have been proving the following thing that I see in this project: http://www.codeproject.com/cs/miscctrl/favoritescontrol.asp[^]

This project are in csharp and I convert some parts to vb.net

Now, I have this

First, one declaration of two points

Private _intX As Integer = 0
Private _intY As Integer = 0

Second, in the click event:

Private Sub CatalogTree_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CatalogTree.Click
Dim objTreeView As TreeView = CType(sender, TreeView)
Dim objNode As TreeNode = objTreeView.GetNodeAt(_intX, _intY)
Dim CurrentNode
Dim CurrentNodeName
Dim CurrentNodeRaiz

If Not objNode Is Nothing Then
If Not objNode.Tag Is Nothing Then
'A URL was clicked
CurrentNode = objNode.Tag
CurrentNodeName = objNode.Text
'RaiseEvent URLClick(Me, New System.EventArgs)
Else
'A folder node was clicked
CurrentNodeRaiz = objNode.Text
'Collapse all sibling nodes so only one folder is open at any given level
_CollapseSiblings(objNode)
'Toggle the folder
If Not objNode.IsExpanded Then
objNode.Expand()
Else
objNode.Collapse()
End If
End If
End If

End Sub

Third, in the mousedown event

Private Sub CatalogTree_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles CatalogTree.MouseDown
_intX = e.X
_intY = e.Y
End Sub

and finally, one method for collapse nodes

'By Sergio
Private Function _CollapseSiblings(ByVal aobjNode As TreeNode)
Dim objNode As TreeNode = aobjNode.PrevNode
While Not objNode Is Nothing
objNode.Collapse()
objNode = objNode.PrevNode
End While
objNode = aobjNode.NextNode
While Not objNode Is Nothing
objNode.Collapse()
objNode = objNode.NextNode
End While
End Function

The link of the project that I have seen works good.
But the code that I post don't collapse any node.

What I can do?

Dave Kreskowiak28-Jun-05 5:31

28-Jun-05 5:31

I don't have nay example code, nor do I have the time to write it.

Quit cutting and pasting someone elses code and trying to make it work how you want. If you want it to work, write your own. You'll at least have a much better understanding of how your code works over someone elses.

For a better understanding of how to navigate up a node tree and save the path to the root of the tree, see Creating A Breadcrumb Control[^] on MSDN.

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

aimar_2028-Jun-05 5:41