|
heres a snippet from a prog a wrote in vb6
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const CB_ERR = (-1)
Public Const CB_FINDSTRING = &H14C
Private Sub Combo1_Keypress(Keyascii As Integer)
Dim CB As Long
Dim Findstring As String
If Keyascii <32 Or Keyascii > 127 Then Exit Sub
If Combo1.Sellength = 0 Then
Findstring = Combo1.Text & Chr$(Keyascii)
Else
Findstring = Left$(Combo1.Text, Combo1.Selstart) & Chr$(Keyascii)
End If
CB = Sendmessage(Combo1.hwnd, CB_FINDSTRING, -1, Byval Findstring)
If CB <> CB_ERR Then
Combo1.Listindex = CB
Combo1.Selstart = Len(Findstring)
Combo1.Sellength = Len(Combo1.Text) - Combo1.Selstart
End If
Keyascii = 0
End Sub
|
|
|
|
|
Cheers Stig will give it a go.
|
|
|
|
|
hello everyone
i have two images of a single finger , stored in byte arrays.
is there anyway i can compare them relatively..i mean is there something that can giv me the relative similarity or difference between the two byte arrays?
|
|
|
|
|
This will only happen if you either write the code to do the comparison or find a 3rd party library that does what you want. There is nothing in the .NET Framework that will do this for you.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Hello everyone:
I have a quick question about rich text box controls in visual basic. I basically want to change the colour of the text in one of these controls, but I can't see another way to do it then use the "Select" command. This basically highlights text and then you can make whichever changes you want. The problem is of course that this has all sorts of unpredictable behaviors which can't be foreseen, and of course, its outright sloppy. The problem is I see no other way to edit the internal data easily! What's the standard correct way to do this sort of thing?
Regards,
James
Did I post well? Rate it! Did I post badly? Rate that too!
|
|
|
|
|
Are you trying to change the color of all the text? or just a certain piece?
|
|
|
|
|
What you have now is about the only method you've got. ...Unless you want to start parsing the RTF string and inserting the formatting codes yourself.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Ah, that's too bad. Yeah, I only want to edit parts of it. Using the select method has such unpredicatable side effects, its a shame there is no provided control to get around that.
Thanks guys,
James
Did I post well? Rate it! Did I post badly? Rate that too!
|
|
|
|
|
It's a simple implementation of a RichTextBox control. It's not meant to be something like Word. If you wanted more complex functionality, it would require a more complex implementation, like a 3rd party control or something you write yourself.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
When I open the web page "http://finance.yahoo.com/q/os?s=qqqq&m=2007-04" and view the source in
Internet Explorer with Notepad, the text I am looking for looks like
class="yfnc_h" align="right">11.67<
but when I use
RichTextBox1.Text = Inet1.OpenURL("http://finance.yahoo.com/q/os?s=qqqq&m=2007-04")
it looks like
class="yfnc_h" align="right">11.67<
in the RichTextBox.
What happened to the
|
|
|
|
|
What happened to the what? those two lines of text look the same to me.
|
|
|
|
|
And what is Inet1 defined as? What class?
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Inet1 is an Internet Transfer Control.
Basically, I am loading the webpage into a richtextbox with
RichTextBox1.Text = Inet1.OpenURL("http://finance.yahoo.com/q/os?s=qqqq&m=2007-04")
But a search for "yfs_l10_" will find nothing.
However, if you use View Source in Internet Explorer, "yfs_l10_" will be found.
I don't understand if the text is getting altered by the Internet Transfer Control or the RichTextBox.
Thanks for you help,
Huling
|
|
|
|
|
Dave, I now see your confusion which is really the basis of my question.
When I cut and pasted some of the text from Notepad into my post it was automatically changed and the text is missing from my post.
This is the same thing that is happening in my program.
So is there a way to turn off the formatting in the richtextbox and make the text appear as it does in Notepad.
I have tried most of the property settings with no success.
Thanks,
Huling
|
|
|
|
|
No, there isn't. Some of the RTB formatting codes look like something out of HTML. If you want to see all of the HTML, you'd have to use a TextBox to do it. The TextBox doesn't support any kind of formatting so there won't be a problem with it trying to interpret the data (Text) of the document.
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic
2006, 2007
|
|
|
|
|
Dave,
Thanks for your replys.
I tried a TextBox and that did not work either. I think it's the Inet control that is reformatting the text.
I did get it working with the API call URLDownloadToFile which apparently saves the raw text a file. I then reload to the RichTextBox for searching and all the text is there.
Thanks again,
Huling
|
|
|
|
|
Hi all,
I use a DropDownList control.When I want to select one row of this,it's not select and the item that it's index is zero selected which means that SelectedIndexChanged event dose not work well.
I set the AutoPostBack property to true but it dosen't work well.
Can you help me?
Thanks in advance
|
|
|
|
|
hi dear friends ,
I need a full project Documentation(sample) .Or how can i prepare a documentation for a project ,what are all the information that a doc should contain ,please help me
Thanks and regards
D.Paranthaman
hi,this is from D.paranthaman india
|
|
|
|
|
First index
Then what are the software u have used...,
Then s/w configuration..,
Whjats the need of that project...,
Then screen shot with some what explanation...,
Then future analysis...,
The bibliography..
Then finally conclusion...
Magi
|
|
|
|
|
I'm working with menus at the moment, and I'm reading in the contents of an XML file to create the menu.
The number of rows in the DataView I am iterating through is around 190. Adding all these rows to a menu is simple enough, but 190 items on a menu doesn't look good.
So, I'd like to break the 190 items into submenus - perhaps 20-ish items on a menu. The bottom option will be "More", and another 20 or so is presented, again with the bottom item "More", and so it continues until all 190 have been accomodated.
A snippet of what I've got so far is:
' Sort the DataView by Country<br />
dv.Sort = "Country"<br />
<br />
For Each dvRow In dv<br />
view_coun_tsmi.DropDownItems.Add(dvRow("Country"))<br />
Next
What I think I need is something like:
Dim counter As Integer<br />
Dim view_coun_tsmi_more As New ToolStripMenuItem<br />
<br />
For Each dvRow In dv<br />
If counter < 21 Then<br />
view_coun_tsmi.DropDownItems.Add(dvRow("Country"))<br />
End If<br />
If counter = 21 Then<br />
view_coun_tsmi_more = New ToolStripMenuItem("More ....")<br />
view_coun_tsmi.DropDownItems.Add(view_coun_tsmi_more)<br />
view_coun_tsmi_more.DropDownItems.Add .... some more options<br />
End If<br />
counter += 1<br />
Next
But this, I think, is a horrible way of doing it.
Is there a better way?
|
|
|
|
|
What about cascading menus?
item1
item2->item1
item2
item3
item4
He was a snowflake, like other "unique" snowflakes, falling down, getting stepped on, and pushed aside to disappear.
|
|
|
|
|
Hi how to print the crystal report......,
with out using that crystalreportviewer toolbar.........
Magi
|
|
|
|
|
What about setting DisplayToolbar=false?
If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.
|
|
|
|
|
Hi friend,
I did already toolbar status is false...,
Then i think to print from my command button.....,
In that command click event i said:
report.PrintToPrinter(1, True, 1, 1)
But its not printing what can i do?,
anyother option is there?,
Magi
|
|
|
|
|
PrintReport method doesn't work?
If the Lord God Almighty had consulted me before embarking upon the Creation, I would have recommended something simpler.
-- Alfonso the Wise, 13th Century King of Castile.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
