Visual Basic :: Rich Text Box Formatting When Bound To Data Control

Formatting In Rich Text Box Control
hello friends,

well I'm using the rich text box in a form..and i need to format the text with in the rich box controls with diffrent colors and diffrent fonts..like the first paragraph is suppose red in color and second is blue...well actually i need difrent formating styles with in the same rich text box. whenever i specify the size in the richtextbox.font.size property it'll do whole text with the same size..i want only the selected text to have the that size and rest of the text is not affected by that..

Thanks & regards

Manish

Formatting Bound Text Boxes
I have a form with about 10 bound text boxes that users enter numbers into. How do I format the bound text boxes so that when the user types in 1295, the number will appear as 1,295.00? I want the numbers to appear with a comma to separate the thousands and 2 decimal places. The text boxes are bound to a field in a table in an Access (.mde) database. The fields in the database are formatted as Number (Standard, 2 decimal places).

In the properties window for one of these text boxes, I have tried to click on the DataFormat property, but I get an error message that says "The DataFormat property is not supported for this DataSource.

Is there a way to format bound text boxes to display the numbers with commas separating the thousands and with 2 decimal places (dollars and cents)?

Thanks,
BobV

Data Justification In Rich Text Box Control
Hi..

We R Developing CBT 's with Using VB6.0 and MS Access..
while inserting data we r taking care of left alignment only.
At the same time while retriving data, the format should be justified in Rich Text Box Control..How to do this?

please advise this

Rich Text Formatting
Im trying to write a text editor thats links to the blitzbasic (another basic languages) compiler. When I loaded and saved files with a regular text box the compiler could always run the code. After needing syntax highlighting and moving to a Rich Text box the code refuses to compile whenever its saved through RTB.SaveFile CommonDiag.Filname. Is there anyway I can change the formatting like a textboxes? The RTB is just doing something to the code that blitzcc.exe doesnt like.

Rich Text Formatting
How does one keep the formatting of a rich text box? Currently, I have it set that I add text, I then highlight the text, then colour the selected text. However, when I repeat the process, only the new text is coloured; the old text goes back to being black. This is really more me being unfamilliar with rich text boxes. Any suggestions?

Thanks

-MusH-

Rich Text Box And Formatting
Is there a way to do a tab in a rich text box?

Also, is there a way to do some sort of formatting in a RTB?

Rich Text Box Formatting
I have this Rich Text Box displaying about 10000 lines of text. Now I want to color each line based on the contents of the line. It takes about 2 minutes to complete on my P4 machine. is there a faster way of doing this.

Rich Text Formatting
I don't know but I would love to see the answer

------------------
I am so skeptacle, I can hardly believe it!

How To Use Rich Text Box With No RTF Formatting
I have a large amount of data that I would like to present in a text box but my understanding is that a text box is limited to 64k.

A RichTextBox has no such restriction so would offer a nice workaround. However, is there a way that I can easily 'switch off' the RTF formatting support so that all the par and other rtf formatting is not transferred with the data to the database.

The controls I am using at the moment are bound - would I have to remove the binding for this control.

Formatting Rich Text Box.. Complicated.
I have made a client/server chat program that accepts multiple chat clients.
I am using a rich text box for the client, and I want to filter codes such as <+red>this is the color red<-red> and have it change the words inside the code to red (in that example).

I know how to use selstart, sellength, selcolor, etc.. that's all fine and dandy, but since there is no richtextbox1.add function.. the next time someone speaks and it does a richtextbox1.text = richtextbox1.text & newtext, it loses all previous formatting.

now, i can leave the codes in there and it will work. but who wants to see <+red> and <-red> and <+b> and <-b> all over the text box? is there a way to keep those control codes hidden, yet have them still be there when i use richtextbox1.find ? or how is this possible? I have to filter out the control codes, yet keep them at the same time.

I have worked on this off and on for several months with no success.

I have tried many solutions and code from all over the net with no luck. All of code examples leave the "control codes" visible! they use things like *blue* and you will still see the * in the text. That is worthless.

I have tried having a text box that keeps the codes and text and updates the real one, but there is no way I can find to update the actual visible text box all at once, so you don't lose any of the formatting. once you format a spot, then go to format another spot, you have to keep using richtextbox1.text = richtextbox1.text & <some string here>... and then it loses all previous formatting.

Any ideas?

Rich Text Box Formatting Output
Is there any way I can take the contents of a rich text box and determine the font's, bullets, lines spaces etc that have been used and create styles from it. I want to pass the contents (and the format) of a rtb into xml and set styles based on the rtb.

At the moment this is the .textrtf output I have:

{
tf1ansiansicpg1252deff0{fonttbl{f0fromanfprq2fcharset0 Times New Roman;}{f1fromanfprq2fcharset2 Symbol;}{f2fnilfcharset0 Tahoma;}}
{*generator Riched20 5.40.11.2210;}viewkind4uc1pardlang2057f0fs24 Test Line 1 No Formatting
par pardfi-360li720 x720f1'b7 abf0 Bullet 1
par pardfi-360li720f1'b7 abf0 Bullet 2
par pardi Italic Text
par i0 Bold Text0f2fs17
par }

Printing Rich Text Formatting
Hello, all. Is there a coder in the house? I need to print rich text formatting. (Don't worry! I've already done many searches to no avail. )

Any help would be appreciated.

Kid

Formatting Lines In A Rich Text Box
Hello all,

I'm having great difficulties in Formatting Lines and then keeping that format. What I'm doing is making a report Processing utility for my employer's application. He will be calling my Forms procedures to enter the information but I need to be able to format the lines of text he feeds me. So far I have a procedure called AddLine with parameters that hold the information to be formatted, the font information, and the alignment for the line to be added. With the code I have now, It adds the information correctly, but when it adds the new line, it unformats all the previous lines. I don't know what's wrong but I would really appreciate some help on this. Here is the code that I have so far.

Code:
Option Explicit
Dim Fnt As IFontDisp

Private Sub Form_Load()
Me.Show
Set Fnt = rtbExtra.Font
Fnt.Name = "Arial"
Fnt.Bold = True
Fnt.Size = 8
Fnt.Underline = True
Me.AddLine "This is just a test.", Fnt, rtfCenter
Fnt.Name = "Times New Roman"
Fnt.Bold = False
Fnt.Size = 18
Fnt.Underline = False
Fnt.Italic = True
Me.AddLine 788332, Fnt, rtfRight
Fnt.Name = "ScriptC"
Fnt.Bold = False
Fnt.Size = 8
Fnt.Strikethrough = True
Me.AddLine "This was the End!!", Fnt, rtfCenter
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Fnt = Nothing
End Sub

Private Sub mnuPrint_Click()
On Error Resume Next
cdlPrint.Flags = cdlPDReturnDC + cdlPDNoPageNums
cdlPrint.Flags = cdlPrint.Flags + cdlPDAllPages
cdlPrint.ShowPrinter
rtbData.SelPrint cdlPrint.hDC
End Sub

Private Sub mnuSaveReport_Click()
cdlSaveFile.ShowSave
rtbData.SaveFile cdlSaveFile.FileName
End Sub

Public Sub AddLine(Data As Variant, Ifont As IFontDisp, Align As SelAlignmentConstants)
Dim Focus As Long
Focus = rtbData.SelStart
rtbData.Text = rtbData.Text & Data & vbCrLf
rtbData.SelStart = Focus
rtbData.SelLength = Len(rtbData.Text) - Focus
Debug.Print "Selected Text : " & rtbData.SelText
rtbData.SelAlignment = Align
rtbData.SelFontName = Ifont.Name
rtbData.SelBold = Ifont.Bold
rtbData.SelItalic = Ifont.Italic
rtbData.SelUnderline = Ifont.Underline
rtbData.SelStrikeThru = Ifont.Strikethrough
rtbData.SelColor = RGB(0, 0, 0)
rtbData.SelFontSize = Ifont.Size
rtbData.SelStart = Len(rtbData.Text)
End Sub

'I am not doing anything with the Create Header or Create Footer Procedures until I figure out how to
'correctly format the lines.

Public Sub CreateHeader(HeaderInfo As Variant, Ifont As IFontDisp, Align As SelAlignmentConstants)
rtbData.SelAlignment = Align
Set rtbData.Font = Ifont
rtbData.Text = HeaderInfo & vbCrLf & vbCrLf
End Sub

Public Sub CreateFooter(FooterInfo As Variant, Ifont As IFontDisp, Align As SelAlignmentConstants)
rtbData.SelAlignment = Align
Set rtbData.Font = Ifont
rtbData.Text = rtbData.Text & vbCrLf & vbCrLf & FooterInfo & vbCrLf
End Sub

Seaching And Formatting A Rich Text Box
I am trying to make an editor for some text files i need for a game i'm working on. I want to highlight certain key words to make them obvious so that its easier to make sure you've used the right commands to get the game to run.

I have a RTB which contains a text file. Whenever the user alters the contents of the RTB I want to format the text it contains so that anything contained in square brackets eg [JUMP] becomes bold.

Any ideas?

Rich Text Formatting Question
is it possible to format text in a string before it is written to a rich text box? I am writing a chat program and i want the computer sending the string to do all the formatting so the receiving computer just has to write it to a textbox without formatting. I dont know too much about formatting text so anything would be of help
Basically what i am trying to achieve is this
MrCoffee33 Says:
"insert string here"
(where the string can be any combination of colour, size, font, bold etc)

Rich Text Formatting Characters
Can someone please help me? I have tried everything to try to remove these formatting characters from this text. This text is saved to the database from a rich text control and when I retrieve it in my Word document this is what it looks like. I have tried the left function and find and replace. I have looked everywhere to find a solution and have not been successful. Does anyone know how to remove these characters?
Thanks
Kim

{
tf1ansideff0{fonttbl{f0fnilfcharset0 MS Sans Serif;}}
viewkind4uc1pardlang1033f0fs17 UPON COMPLETION OF PRELIMINARY INSPECTION FOUND FLAP INOP.
par }

Remove Formatting In Rich Text Box
I have a rich text box in my VB App that loads a .dat file. I want the user to be able to edit the text within the rich text box, and then save the file using the statment:

rtfEmpHours.SaveFile ("c:program files imeprofile.dat")

this works fine and dandy, but it writes

{
tf1ansideff0deftab720{fonttbl{f0fswiss MS Sans Serif;}{f1fromanfcharset2 Symbol;}{f2fmodern Courier New;}}
{colortbl
ed0green0lue0;}
deflang1033pardplainf2fs17

to the top of the file. I simply want to save the file without this formatting. Any help will help.

Thank you,

ldb

Formatting Outlook Mail Using Rich Text Box
Hi,
I am using a rich text box in my VB form and I want that all the formatted text entered into the rich text box be displayed in the body of the outlook mail.
If I pass richtextbox1.text to the outlook mail item it removes all the formatting done in the rich text box.
If I pass richtextbox1.rtftext to the outlook mail it displays the formatting characters also in the box for eg it displays {rtf ansi etc...

I tried to set the body format of the outlook mail item object to olFormatRichText but it also did not help.

Please help me

Rich Text Box Formatting With Duplicate Words
I have searched and read through multiple threads (when you look at my code, you will notice a resemblance if you have read any of the other threads) and I have what I want to work, with one exception....

I have a table that has a field of words that I would like Bolded and the font Size Increased.

Currently in this field, I have:

Assignee Groups:
Updates:
Error:

My program bolds and increases the font size of the first two just fine. They only appear once in my rich text box. However, the word Error will appear multiple times, and in this test, it appears 5 times. However only the first occurrence of Error is in bold and increased in font size. I know there is something simple I can do, however, I am just not seeing it. Any assistance please?

My Code thus far:

Code:
Do Until FormatSet.EOF = True
strTest = FormatSet.Fields("Format").Value
lngHighlight = (frmDoc.txtRecord.Find(strTest))
intLength1 = Len(strTest)
frmDoc.txtRecord.SelStart = lngHighlight
frmDoc.txtRecord.SelLength = intLength1
frmDoc.txtRecord.SelBold = True
frmDoc.txtRecord.SelFontSize = 16
frmDoc.txtRecord.SelStart = Len(frmDoc.txtRecord.Text) - lngHighlight
frmDoc.txtRecord.SelLength = 0
FormatSet.MoveNext
Loop

Preserve Word Formatting In A Rich Text Box
Hello all,

I have an unsaved Word Document with formatted text in the background of my
application. Can anyone tell me how to preserve that formatting when I copy
a section of that document and paste it to a rich text box control on my
form? If I do a simple copy and paste, the text simply appears based on the
font properties I have set up for the rich text box. I've tried using the
RTF option of the clipboard, but doing that gives me all the font
description / tag information.

Thanks in advance.

Replacing Text In Text Control Which Bound To Recordset In DataReport
My report have some text fields that are bound to a recordset which I need to replace some text before displaying it. I can not find any event for me to "intercept" and first replace the text then send it to report.

I've tried with SQL REPLACE function, but I kept on receiving this "Function undefined 'REPLACE' in expression" error, so I guess I have to drop the thought of using SQL to replace the text.

Anyone know how to solve this problem?

Thanks very much!

Data Bound Control
did your guys like data bound control? I personal feel it is suck when come to writing code for data manipulate like (add, edit, delete)

How you think about this?

Data Bound Text Box
Hi,

In "Visual Basic 4 Application", which property of TextBox I need to useto bound it to ADODC control.

Any help will be greatly appreciated.

Tanu

Data Bound Grid Control (SP3)
I am using Visual Basic 6.0 on a Windows 2000 NT operating system. I have created a program on another pc which makes use of DBGRID32.OCX. However, when installing on new pc, I am encountring the following errors:

Line 52: Property OleObjectBlob in DBGrid1 could not be set.
Line 52: Cannot load control DBGrid1; license not found.

I have seeked Microsoft Knowledge Base and I found that I should register db grid by typing:

c:winntsystem32REGSVR32.EXE c:devpdbgrid32.ocx (In this case a message box appears stating that the file was registered.) Yet, the errors still occur.

Would be grateful if you could help me urgently.

Regards,
Renzo

Data Bound Control And SQL Server 2K
We have an Access 2000 Front End App that needs to talk to a SQL Server 2000 DB. The current app uses a lot of data bound controls. Will this be a problem when switching to a SQL DB

Data Bound To Flexgrid Control
Any one knows how to bound say, 2 differenct recordset to 2 different columns of a single flexgrid control, the following code i think of can't compile successfully

Set MSFlexGrid1.Col(1).DataSource = Adodc1
Set MSFlexGrid1.Col(2).DataSource = Adodc1

MS Data Bound Grid Control 5.0 (SP3)
I am using the Data Bound Grid Control in Unbound mode. I have 2 columns and would like to add a Name in the first column, Values (String) in the second column.

HOWEVER, when trying to populate the rows, my program stops at:

grd1.Row = 1

with error 'Application-defined or object-defined error'.
Alternatively, depending on grid properties, i get the error 'invalid row number'.

There does not seem to be a funtion to add rows.

HOW DO I ADD ROWS without this error occuring?

Once I do this I would like to be able to edit entries in the Value column only, but I think i can manage that bit ok!!

Simon

Data Bound Grid Control
Have just installed VB6 Professional Edition. I selected the complete option but don't seem to have the Microsoft Data Bound Grid Control 5.0 (SP3) as required by the Database Tutorial 3.

Could someone please tell me where I have gone wrong?

HELP With Data Control And Data Bound List Box
Hi
I am new to Visual Basic and need some help.
I have a Data Control connected to an Access data base, the data base is
very simple with one table and six fields.
I have got text boxes etc. bound to the Data Control, this is all fine.
I have also got a Data Bound List box bound to the data control which is
great to lookup the data in a field of the data base. The only way I can
find of browsing the data is using the arrow buttons of the data control.

Can I change the Recordset of the data control by selecting the record
from the Data Bound List box. Is it possible to do this in code? or at all?

Have I approached this from the wrong direction?

To explain what I require- I need to have a list of the contence of one
field in by data base (say names). I need to select one record (click on
it) and show all the other fields for that record.

Incredibly simple though it sounds I can't find a way of doing it.
Any help much appreciated.
Thanks
Toby Treacher

Clearing An ADO Data Bound Text Box
I have a textbox on a form connected to an adodc data control, which in turn is connected to a query in an Access database.

Occasionally I don't want to display the data from the database in this text box, but just want to clear it instead.

If I simply try:

txtTextBox.Text = ""

Then I get the error message:

"Field not updatable, Bound Property Name: Text, Field Name: tenancyId"

I assume this is because the query is complicated and doesn't support writing back to the database. This isn't what I wanted anyway, so I'm glad it didn't work

Next I tried the following:

If bClear then
Set txtTextBox.DataSource = Nothing
txtTextBox.Text = ""
Else
Set txtTextBox.DataSource = adodcDataControl
End If

Where the latter assignment restores the original behavour of the textbox by assigning it's DataSource back to the adodc data control.

This seemed to work at first, but then after navigating through the records for a bit I got the same error message as before.

I stepped through the code and put a watch on txtTextBox.DataSource. At first everything was okay. Before the line "Set txtTextBox.DataSource = Nothing", the value of DataSource was "<No Variables>" and the type was "Adodc". After the line, the value of DataSource was "Nothing" and the type was "<Unsupported object type>".

However, the 4th time the textbox was cleared (always the same number), the line "Set txtTextBox.DataSource = Nothing" had no effect. The value of DataSource remained as "<No variables>" and I got the error message

I've since tried setting txtTextBox.DataField to an empty string and toying with the DataChanged property, all to no effect. At one point I settled for setting the font colour to the textbox background color when I wanted to clear it, but soon realised the user could see the 'invisible' text if they highlighted it. Disabling the textbox to stop this results in VB/Windows 'graying' out the text and overriding the colour anyway.

Any help for something apparently so simple would be gratefully appeciated!

Or do I have to resort to having an invisble textbox on the form, and switching them around as appropriate...? Please don't tell me I have to do that.

Thanks in advance,
Paul.

Data Control And Bound Form Controls
I have been coing in VB since VB3. I started using the data control but ditched it as being too slow. From that time I have not returned to it and programmed all my work as unbound.

I have recently been asked to take a training course on VB6 and databases. It is all based around the data control.

Is the data control so much improved that I should now favour it over unbound controls ?

Bill Paton
william.paton@ubsw.com
http://www.neptune400.co.uk/

Check out www.deepturtle.ch

Data Bound Control Does Not Update Database
Hello all. I am a vb 6.0 programmer slowly making the transition to vb.net. I am finding it frustrating because an application I can crank out in a couple of hours in vb 6 is taking me days to figure out in .net. As a full time working, who has time to learn all this new stuff? Anyways, enough complaining. Here is my problem:

I am connecting to a database, a local access file. I am then binding a couple of text boxes to it. Everything works just fine. However, when I update the information in a bound textbox, it is not updating the information in the database. Do I have to tell it to update somehow?

Example of my code:

       Code:
       Dim SQLSTR as string
       SQLSTR = "select * from catout"

        Dim Conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:catout.mdb")
        Dim adapter As New OleDbDataAdapter(SQLSTR, Conn)
        Dim DT As New DataTable("catout")

        adapter.Fill(DT)

        Me.Price.DataBindings.Add(New Binding("text", DT, "price"))

This works just fine for binding the textbox, but the textbox does not put its changed information back into the database.

Thank you for your help.

Datacombo To Update Bound Text/ado Control
hi all,

I have a datacombo bound to and ado control
i have text boxes bound to same ado control

i want users to clikc datacombo, select a record and have the text boxes fill themselves.

i have 3 forms all with similar contorls, tables etc. the following code in the datacombo is the same throught all 3 forms. it works in one but gives the error

"run time error 3001 arguments out of range in conflict or of wrong type"
but it runs it one form!!!!

anyway heres the datacombo code

Dim strSQL As String
Dim stuff

stuff = DataCombo1.Text
fishermaninfo.Recordset.MoveFirst
fishermaninfo.Recordset.Find "commerciallicnum = " & stuff,_ adSearchForward
'fishermaninfo.Refresh
txtFields(0).Text = stuff

I ouwld love asolution to this problem. either fixing this code or by some other soilution to produce the results above.

tia

Refreshing Data Control Bound To Dropdown Lists
Dear All,
I have a form which allows users to select a database file to addedit data in.
Once the user has selected the database, code runs to set the DatabaseName of a data control on the form to equal the chosen database path
ame. I've found that once the path of the data control is set, it needs to be refreshed before it picks up the record(s) in the database.
I've found that the code I've written to do this works fine except for tables that have a dropdown list as one of their fields.
For the dropdown list tables the error "Text property is read only" occurs. I've tried trapping it, but this doesn't work.
However, this error doesn't occur when there are already records in the table.

I'm using the code:

me.[DataControl].DatabaseName = [Selected Database Path & Name]
me.[DataControl].Refresh

If anyone could help me with this I'd be most grateful.

Thanks in advance
Ben Cooper

Rich Text Box Control (RTB Control). Giving Backcolor To The Selected Text.
Really simple question (I really should know this but to be honest...I just never deal RTF codes or ever had to learn them). I just want to be able to give a backcolor to the currently selected text.

In general, I already have code that is color coding HTML/ASP for me in my HTML Editor but I want to be able to give the Yellow back color to the <% tags just like other editors do. I just feel dumb that I cannot figure it out. I got all the forecolor parts working using .SelColor = g_ASP_COLOR.

Code:
<%
'sample asp
%>

Pretty much just like this but in the RTB not HTML.

Clint LaFever (aka: DaVBMan)

Help Needed....! Creating Custom Data Bound User Control
Hi Gurus...!

I'm Trying to Implement a Custom Data Bound ActiveX Control in VB. My requirement is to Store some Image data into the Data base field, the Blob (The Image data is not Supported by the VB Image Control). I've found out the method to read and write the image data into the Database field. My problem is how to implement in the control. To make a Data binding, I Define a Property named Picture and Set the Data binding Property thru' the Procedure Attributes settings dialog. But i don't know how could i implement my own Read and Write routines for this data base field

Please Help me,

Advance ThanX,
Subbi.

Bound Dropdown Box Not Updating Bound Text Boxes...
Hi All,

I have an Access 97 form with bound textboxes, and a dropdown combo. The user selects a value in the dropdown to populate the textboxes.

Because there could be duplicates values in the combobox (the values are people's last names), I have made the combo into a multi-column dropdown, adding a first name and a date of birth. It works well, until there are multiple occurrances of the same last name. What happens in that case is only one record displays in the textbox no matter which of the combobox's values is chosen.

For instance, I have a bunch of "Smith" values, and when any of them are selected, the data appearing in the text boxes remains on "Richard Smith"... Furthermore, I checked a few different duplicates other than Smith, and it is inconsistent as to which record is always displayed. Sometimes it's the first in the bunch, sometimes it's the last, etc...

If this helps, here is the Row Source of the dropdown:

SELECT DISTINCTROW [Hospital].[PatLName], [Hospital].[PatFName], [Hospital].[PatDOB] FROM [Hospital] GROUP BY [Hospital].[PatLName], [Hospital].[PatFName], [Hospital].[PatDOB] ORDER BY [Hospital].[PatLName], [Hospital].[PatFName], [Hospital].[PatDOB];

Anyone out there ever run into this before?

Thanks,
RichS

Copy Text File Into Data Bound Grid In A Sorted Order?
I have a text file and i need to move its contents to DB Grid .
For Eg.
following is my test.txt

ravishah885 kent confirmed posted
ravi_sarla lamar pending
kent8541932 NCSU pending
kent8541933 ohio pending
kent86541934 northcarolina confirmed posted

for each line , I want "ravishah885" to be stored in one cell,"kent" in other ,"confirmed" in third cell and "posted" in fouth cell.
After storing all values i need to sort it in Data bound grid.

please mail me ASAP .
Thanx
ravi

Turtle Rich Text Control: VbAccelerator's RichEdit Control Modified To Work In An OCX
Many of you may have noticed issues in using Steve's original VbAccelerator Rich Edit control to build an OCX. Basically, you might just as me not be able to build an UserControl using the original vbAccelerator's Rich Edit control.

I took the chance of debugging Steve's original excellent control as i wanted to be able to build OCXs using it. This resulted in minor code modifications and in the necessity of including the SsubTmr6 code (still from VbAccelerator) within the control itself due to hooking issues that often resulted into crashing.

The resulting 'Turtle Rich Edit Control' therefore has one less dependency (SsubTmr6.dll is not needed), however just as the original control OleGuids.TLB is needed when running in the IDE.

I have made a first release of this modified control and posted it in the CodeBank here, and as per the vbAccelerator original license included in the downloadable file I have retained the original copyright notice, changed the name to 'Turtle Rich Edit Control' to exclude the name 'vbAccelerator' and made no mistery that this is entirely based on Steve McMahon's code.

I am posting this into the Classic VB section because i want to draw your attention and hopefully get some feedback from testers, and also because I kind of promised to Devion here that i would release this control, so here it is

Cheers,

Roberto Ostinelli

Dispalying Text In Rich Text Box Control In A Long Single Line
Hi,
In my application I have a rich text box.

But when i do
text1.text = a string of length 500. the string is divided into the width of the text box and is shown in multiple lines.

I want this to be shown in a single line.

Example:
Currently it is displayed as:
__________________________
|aaaaaasdfasdfasdfasdfasdsdf|
|fgasdfasdfadsfasdfasdfasdfaf|
| |
| |
|_________________________|

I want this to be displayed in a single line ....but the multiline property should be enabled ...so that i can add more lines to it.
I have already put scrollbars= "rtfBoth" and disablenoscroll = true.
Please help me with this. It would be great help.

Thanks.

Inserting My Own Text Into Rich Text Control Without Losing Previous Formats
Dears

I'd like to paste my own text into that control, but after attched code will be executed I'll get text in normal "text" style without changed fonts etc. How it needs to be done?

Dim Position As Long
Dim Buffer_Before As String
Dim Buffer_After As String

    Position = RichTextBox3.SelStart 'the place to insert desired text

    If RichTextBox3.SelLength > 1 Then
       RichTextBox3.SelLength = 1
    End If

    RichTextBox3.SelStart = 0
    RichTextBox3.SelLength = Position
    Buffer_Before = RichTextBox3.SelText 'first part of the text

    RichTextBox3.SelStart = Position
    RichTextBox3.SelLength = Len(RichTextBox3.Text) - Position
    Buffer_After = RichTextBox3.SelText 'second part
    RichTextBox3.TextRTF = Buffer_Before & "##Place##" & Buffer_After

Viewing Image From Database Without Data Control And Bound Image Control (VB6).
Hi, everyone. I'm new here and this is my first call for help.

I am making a database app in VB6 where I want everything to be accessed through VB code (without using a data control and bound controls), using Jet statements (DAO 3.51) . The only thing that escapes me so far are the images (jpegs) stored in the database. Anybody know how to show an image from a database in an image control without using a data control and bound image control (using just VB code)?

The images where stored by a small utility I made as a helper to the other program. It basically stores a binary copy of the jpeg files, in batch mode, into a binary field of an access table, along with some other info.

Full Justifying Text In A Rich Text Control
I'm trying to create basic word processing functionality for text in a rich text control. I can do bolding, underlining, bulleting, etc., but I don't know how to change the justification. I would like the user to have their choice of left, center, right, and full. If anyone knows how to do this please let me know. I've been struggling for a while on it.

Thanks,

Honeman

Bound Data Fields Not Bound
I am connecting to an Oracle data base via ADO. When I open my form the first time, the first record is displayed, but then, when doing a "moveNext" or "movePrev" or a "moveFirst" or a moveLast", the fields are not updated on the screen, but when I check the recordset programmatically, the record is the correct record (the next record or previous record and so on).

Now, for the crazy part: when I close this form and open it a second time all is well, the first record is displayed and as I navigate through the recordset (next, prev, first, last) the correct record is displayed on the form.

Any ideas?

Thanks,
zina

Formatting Data In Text Box
I have an access database with the structure:

Name(20)
Age(3)
Sex(1)
Address(50)

Now when I display the records in a text box, the data appears as:
mozart 20 M chvkhgodfgdfgds
beethoven 25 M ghkdfhghgkhgogjhohgfoh
Alex 18 M bfgkhkghljgjhogjho
Manish 23 M skdhfkhghgdg

How can I make this data appear symmetrical so that all the columns can fall in line and I can give proper column headings????

Text Formatting Control
hi!

any familiar with any control, similar to text box, that formats text as it is being entered. especially numeric.

mask edit is an offshot, its just doesnt do the job.

control is supposed to supply comma when needed for numeric values including decimals.

thank you!

RIch Text Box Control
I am having a problem trying to color a JUST a certain portion of the text in a rich text box control. The text box contains this:

Branch ID: 10 Name: Vancouver Available: 0 On Order: 10 ETA Date: 2002-10-04

I have tried VARIOUS methods to get this to work, but the end result is the whole text box gets recolored. What Iam trying to do is color the word branch, red. Here is the code I am using to do that:

Private Sub HighLightTitles(Col As Long)

Dim Where As Integer

Where = InStr(rtxtParsedRep.Text, "Branch")

If Where Then ' If found,
rtxtParsedRep.SelStart = Where - 1
rtxtParsedRep.SelLength = Len("Branch")
rtxtParsedRep.SelColor = vbRed
rtxtParsedRep.SelStart = Len(rtxtParsedRep.Text)
End If

End Sub

Any help would be appreciated.

Gunthar