Visual Basic

25-Aug-07 7:36

Hi.
I have this code:

for i as integer=0 to array.lenght-1 <br />
if array(i)=value1 then<br />
var=true<br />
end if<br />
if var=true then<br />
....<br />
next

I need to set the value1 on the first position of the array and the first position of the array must be set on the last position of the array.
I don't have any idea.
thanks

Colin Angus Mackay25-Aug-07 12:09

Colin Angus Mackay

25-Aug-07 12:09

WhiteGirl23 wrote:
I need to set the value1 on the first position of the array and the first position of the array must be set on the last position of the array.

In that order? If you do it in that order then value1 will be set on the first and last positions of the array.

Try this:

array(array.Length - 1) = array(0)
array(0) = value1

-- Always write code as if the maintenance programmer were an axe murderer who knows where you live.

Upcoming FREE developer events:
* Glasgow: Agile in the Enterprise Vs. ISVs, Mock Objects, SQL Server CLR Integration, Reporting Services, db4o ...
* Reading: SQL Bits

My website

WhiteGirl2325-Aug-07 19:30

25-Aug-07 19:30

no.isn't good.
I want to keep all the values of the array.
In array(array.length-1)=must keep the first position of the vector before I make array(0)=value1.

Christian Graus25-Aug-07 20:20

Christian Graus

25-Aug-07 20:20

Please always paste the actual code, in case a typo changes the context of something.

How do you mean ? You want to swap the first and last items ?

Christian Graus - Microsoft MVP - C++

"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

WhiteGirl2325-Aug-07 20:32

25-Aug-07 20:32

example: I have a string :123#123.123#(local)
I split this string:
array()=string.split("#")
I'm looking for a value on this array.I take (local)
I found the position of this value:array((2).
I want to move array(2) on the first position of the array,but I don't want to loose elements of the array,and the last position of the array must be=123.
Something like this:
string=(local)#123.123#123
Thanks.

Christian Graus25-Aug-07 20:35

Christian Graus

25-Aug-07 20:35

So you want to *swap* the elements.

So you do this:

dim o as object = array(0)
array(0) = array(array.Length = 1)
array(array.Length - 1) = o

Christian Graus - Microsoft MVP - C++

"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

WhiteGirl2326-Aug-07 4:02

creating inherited custom control

26-Aug-07 4:02

thanks.
hope will work.

babucherayath25-Aug-07 1:46

babucherayath

25-Aug-07 1:46

Hai
I have inherited datagridview control as custom control and added one textbox control on it. I have added some code in textbox keypress(or keyup,keydown).

The problem is
When i press enter key the event doesn't raises but other keys works.
what is the broblem here? pls explain

Thanks

CLASSES & INHERITENCE

RaveRare24-Aug-07 22:18

RaveRare

24-Aug-07 22:18

Dear every one,

hope you will be in good a health.

dears, i want to know clear scienaro of Classes and inheritence. i have books and material on classes and inheritence but unable to understand clear scene.

please clear me by examples that ..

What is a class
What is a subclass
what is inheritence
what is class functions
what is architecture of a class
why we use classes
how we use classes
is it a good practice to use a class
where classes exists
what are namespaces
mean i want to know every thing round the class that can clear my mind and enable me to speak about these topics in a meeting

thanks

Re: CLASSES & INHERITENCE

Rupesh Kumar Swami24-Aug-07 22:29

Rupesh Kumar Swami

24-Aug-07 22:29

Googling ^

Rupesh Kumar Swami
Software Engineer,
Integrated Solution,
Bikaner (India)

My Company

Re: CLASSES & INHERITENCE

Christian Graus25-Aug-07 0:45

Christian Graus

25-Aug-07 0:45

You've asked for a book. Why not instead go out and buy one ? If you can't understand the books you have, I don't see how us writing a new one in a forum reply will help. Try working through the books and asking a specific question. Surely you get the basic concept. If you have the materials, and you don't know what a class is, or what inheritance is, then I really don't know how anyone can help you.

Christian Graus - Microsoft MVP - C++

"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

Re: CLASSES & INHERITENCE

DigiOz Multimedia25-Aug-07 12:27

DigiOz Multimedia

25-Aug-07 12:27

I recommend this link:

http://www.startvbdotnet.com/oop/default.aspx[^]

It has some good examples to get you started.

Pete Soheil
DigiOz Multimedia
http://www.digioz.com

Search function in webbrowser

Ahmad Zaidi24-Aug-07 21:29

Ahmad Zaidi

24-Aug-07 21:29

Hi,

I need to make a custom search function in webbrowser control. I found the following post somewhere:
WebBrowser1.Navigate("c:\readme.htm")

Dim htmldom As mshtml.IHTMLDocument2 = CType(WebBrowser1.Document.DomDocument, mshtml.IHTMLDocument2)

htmldom.execCommand("SelectAll", False, Nothing)

htmldom.execCommand("Copy", False, Nothing)

Dim str As String = Clipboard.GetText

Dim range1 As mshtml.IHTMLTxtRange = CType(htmldom.selection.createRange(), mshtml.IHTMLTxtRange)

range1.findText("microsoft", 0, 0)// 0,0 means the first hit, 1,1 second hit like this.....

range1.select()

The problem is that it doesnt seem to select all occurances in the page, e.g. if I search the wikipedia page on Stalin for "stalin", it will move between two instances of the word on the page and not go to the rest. I have replaced the two 0s in the findtext method with a variable counter initially set to zero. Anyone have an idea as to what the problem could be?

Thanks!
Ahmad

Luc Pattyn24-Aug-07 23:53

Luc Pattyn

24-Aug-07 23:53

Ahmad Zaidi wrote:
range1.findText("microsoft", 0, 0)// 0,0 means the first hit, 1,1 second hit like this.....

comment is completely wrong

Luc Pattyn [Forum Guidelines] [My Articles]

this weeks tips:
- make Visual display line numbers: Tools/Options/TextEditor/...
- show exceptions with ToString() to see all information
- before you ask a question here, search CodeProject, then Google

Dave Kreskowiak25-Aug-07 7:18

Dave Kreskowiak

25-Aug-07 7:18

Ahmad Zaidi wrote:
range1.findText("microsoft", 0, 0)// 0,0 means the first hit, 1,1 second hit like this.....

Actually, that's not what those two parameters mean. You still have to provide the string to search for, but the first number is the number of characters into the range to start the search. The second number is a flag specifying:

2   Match whole words only.
4   Match case.

So, your line of code actually means "search for 'microsoft', starting at the beginning of the range, the search term can be inside other words, and can match any change of case.

I'd start by looking at how you're getting the range of text to search and if you're getting everything you expect.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007

Ahmad Zaidi25-Aug-07 10:48

Ahmad Zaidi

25-Aug-07 10:48

Hi Dave,

Thanks alot for the reply. Here is the code I am using:

Public Function findString(ByVal wordToFind As String, ByVal myIndex As Integer) As Integer
Dim htmldom As MSHTML.IHTMLDocument2 = CType(wBrowser.Document.DomDocument, MSHTML.IHTMLDocument2)
htmldom.execCommand("SelectAll", False, Nothing)
htmldom.execCommand("Copy", False, Nothing)

Dim range1 As MSHTML.IHTMLTxtRange = CType(htmldom.selection.createRange(), MSHTML.IHTMLTxtRange)

frmSearch.Hide()
Me.Activate()
range1.findText(wordToFind, myIndex, 0)
range1.select()
range1.collapse()
myIndex += 1

Return myIndex
End Function

myIndex is the counter which as you can see is incremented each time the funciton is called. I was thinking the same thing that you mentioned, that maybe I am not getting the whole page searched, but cant figure out how to do that. Any ideas?

Thanks,
Ahmad