Visual Basic :: Picturebox Text Disappears When Backcolor Changed (RESOLVED)

RESOLVED-Setting The Backcolor Of Selected Text In Richtextbox-highlight Text
Does anybody know how to change the backcolor of selected
text in a richtextbox. Not the background color of the whole richtextbox only the selected word-lines !

I use a richtextbox which uses some validation and if there is an error in the text i want to display the word in red backcolor.

do you have any tips of alternatives if i cant do this?
Moreover how do you underline the selected text.
i use rtf.selunderline but it does not work.

thanks

p.s. i search the forum and did not find any solution.

Have U Succesfully Changed The SSTAB Backcolor ?
Have u succesfully changed the SSTAB backcolor ?

When you are just changing the backcolor of the SSTAB, it will change only in the background area of the SStab which is not a developer wants.
Assume that u have 3 buttons in the SStab and you changed the back color of that. It will not be changing the faces of the SStab buttons (main area) and It will remain as same and you can see the changes only in the edges of the SStab.

Can any body give me solution or sample code for this.

Thanks in advance.

Backcolor Of Label Changed In Window XP
Hi, Dear friend,

My project is developed in Window 2000. One of the end user uses window XP.

I have some Label controls which backcolor are set to white (&H00FFFFFF&). Does anyone know why the backcolor changed to Black when the project runs on window XP?

Thanks.

Yannie

Keeping Text In Picturebox Visible (RESOLVED)
First post - please be gentle!

I am printing text to a picturebox but if I drag any other window over this box it "erases" any text it covers.
How can I ensure text will remain there always?

Jim

Edited by - jimvt on 6/16/2004 3:03:26 AM

Clear BackColor On A PictureBox?
Is there any simple way to make the BackColor on a PictureBox transparant?

Things Were Okay UNTIL I Changed From Picturebox To Textbox For Output Display
Things were okay until I changed from picturebox to textbox for output display ---> Originally I was using a picturebox of which all 10 lines from a textfile displayed a-ok ... but then I changed over to textbox because I needed a scrollbar as picturebox does not have that ... now the 10 lines will not print, ONLY the very last line does ... Will someone please show me how to correct the code below to display the 10 lines of textfile instead of just the very last one?

The only change I made was I replaced Picture1.Print SampleOutput to Text3.Text = SampleOutput

Quote:

Private Sub Command2_Click()
'Runs loop to read and display all 10 lines from text file.
Open "C:My Documentsmytext.txt" For Input As #1
Do While Not EOF(1)
Input #1, SampleOutput
Text3.Text = SampleOutput
Loop
Close #1
End Sub

P.S. Why is it when I insert code indented as it should be, it comes out all left-justified when posted?

PictureBox BackColor Removes Image
When i change the backcolor of a picture the pictureBox... the picture within it disappears. I have tried refresh but that doesnt work. The Auto Redraw Option is TRUE.

What can i do to change the back color but keep the picture?

thanks

Problem With Changing Backcolor Of Picturebox
I have a form with some picture boxes as buttons. I'm setting the picture
property to a gif file for "normal", and to a different gif for the
"pressed" state. This works fine. I get into trouble with the fact that the
gif files have a transperent region in the middle (the button icon) that
lets the back color of the picture box show through. This lets me change the
button highlight to any user-specified color when I mouseover the picbox
(which is done very inefficiently I might add, but that's another story).

Everything works, except that I get occasional flicker that shows through
the image as the backcolor is changing. Is there a way to change the picture
box backcolor without any flicker? I've tried setting it to invisible and
then back, played with z-order, LockWindowUpdate API, etc., all to no avail.
Some type of memory painting/swapping maybe?

Any help is greatly appreciated. Any good advice for an efficient
"mouseover" event for controls would also be greatly appreciated.

Thanks much in advance

DrawString Text Disappears
I am using very simple DrawString code. The text displays, but after resizing the form, it goes away. Is there some additioinal call I need?

The code is something like:

Dim gr As Graphics = Me.ipInkPicture.CreateGraphics
gr.DrawString("This is a test", Font, Brushes.Black, x, y)
gr.Flush(Drawing2D.FlushIntention.Sync)

Highlighted Text Disappears
Hi,
I am coding a MUD client. The client has the incoming text stored in an RTF Text Box. Whenever text is highlighted, no cut or any command done, it disappears when you press enter. It also has this problem when you hit a button.

Thanks!

Combo Box Text Disappears!
I have a combo box that's supposed to show all values in a given database. The procedure works fine until it gets to the end, then for some reason the combo box loses its text. The list items are there, it just no longer shows the item I selected. I ran a quick debug, and it happens right on the first Exit Sub (the one before the error handler.)

Code:
Private Sub MasterControl_Click()
Set fso = New FileSystemObject
On Error GoTo ErrorHandler
MasterControl.Text = Replace(MasterControl.Text, " ", "")
If fso.FileExists(App.Path & "Databases" & MasterControl.Text & ".mdb") = False Then
For i = 0 To MasterControl.ListCount
If MasterControl.Text = MasterControl.List(i) Then
MasterControl.RemoveItem i
End If
Next i
Set rs = New ADODB.Recordset
RecordSource = "SELECT * FROM Headers ORDER BY Name"
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "DatabasesHeaders.mdb"
rs.Open RecordSource, ConnectionString, adOpenKeyset, adLockOptimistic
If Not rs.BOF Then
rs.MoveFirst
End If
For i = 1 To rs.RecordCount
If rs!Name = MasterControl.Text Then
rs.Delete adAffectCurrent
Else
rs.MoveNext
End If
If rs.EOF = True Then Exit For
Next i
End If
OrganizerDatabase.ListItems.Clear
Set rs = New Recordset
Set Win32Script = CreateObject("WScript.Shell")
For i = 0 To Data.Count - 1
Data(i).Locked = False
Data(i).BackColor = vbWhite
Next i
RecordSource = "SELECT * FROM " & MasterControl.Text & " ORDER BY SiteName"
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Databases" & MasterControl.Text & ".mdb"
Win32Script.RegWrite "HKEY_CURRENT_USERSoftware" & App.Title & "CurrentSelectedItem", MasterControl.Text
rs.Open RecordSource, ConnectionString, adOpenKeyset, adLockOptimistic
If rs.BOF = False Then
rs.MoveFirst
End If
For i = 1 To rs.RecordCount
If rs.EOF = True Then Exit For
OrganizerDatabase.ListItems.Add , , rs!SiteName
rs.MoveNext
Next i
Set fso = Nothing
Set rs = Nothing
Set Win32Script = Nothing
Exit Sub
ErrorHandler:
MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical, "Program Error"
Exit Sub
End Sub

Combo Text Disappears
Hi All,

Here's a strange one. I have 2 combo boxes of the same type on screen. I also have 2 grids and the grids are bound to different ADO recordsets. When I select an item from one of the combos the recordpointer on the associated grid moves to the item where a column has the associated value and all is fine. I do exactly the same with the other combo and grid, but after the recordpointer has moved on the grid, the value in the combo disappears. When stepping the code at the 'End Sub' line of the combo's click event the correct values are still in the combos text property. As soon as I F8/F5 off, the text disappears. I've removed and replaced the control, put debug statements into every event incase somthing else is triggering and nothing is.

Text Disappears In Chart In VB Report
Helllo, I have a excel file with a chart that I'm trying to imbed into my VB report. (the sheet is actually updated by a macro in the VB)

Everything looks fine in design mode, but when I preview or print the text (legend and values) dissapear. Is this a size issue or Is there another way to get the chart on my report. Thanks!

Text Disappears When Focus Is Lost?
txtMyRef.Text Properties:
Data Field = MyRef
DataSource = adcInvoiceDisplay

adcInvoiceDisplay Properties:
Command Type = 8 - adCmdUnknown
RecordSource = "SELECT * FROM Invoice"

If the RecordSource has a specific index, then the text field is ok, however on start up, if the database is empty, i type something in the text field, change the focus to another field, and the text vanishes, as though the ADODC is still trying to load data that doesn't exist yet?

Any ideas?

Crystal Reports : Datasource Won't Changed? (Resolved)
Hi,

I'm banging my head now off a wall in despair as to how to change the datasource for a Crystal Report (CR)!

I'm only started using CR since last week and I am delighted as to its flexibility in producing reports and how easy it is to display these reports through VB. However, my current project requires mulitple companies, so, each company gets its own Access 2000 database.

On opening the program it asks which company to choose from and uses that database accordingly but Crystal Reports doesn't, it stays at the same database in which it was designed with.

I tried to rename that folder 'out of the way' to see what happens and it comes up with a Server has not been opened error. I renamed it back!

When I designed the report called Purchase_Order.rpt I used OLE DB as the data source provider and everything works on viewing the report in CR. It also works through VB but as I've said I can't change the data source to another companies dataset.

Any suggestions would be welcome!

Software: Crystal Reports 8.5, Visual Basic 6 SP5, Microsoft Access 2000.
O/S: NT 2000.

My code is below:
Code:

   Dim Crystal as CRAXDRT.Application
   Dim report as CRAXDRT.report

   'Connect to the database
   conn.CursorLocation = adUseClient 'SERVER-SIDE NOT RECCOMENDED
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & DataFiles.SageFile, "Admin", ""

   While conn.State <> adStateOpen
        DoEvents
   Wend

   'Open a recordset
   rsAdo.Open "SELECT * FROM POR_PRINT_ORDER WHERE Order_Number = '" & Format(OrderNumber, "0000000000") & "' ;", conn, adOpenKeyset, adLockOptimistic, adCmdText
   If rsAdo.RecordCount > 0 Then
        Set crystal = New CRAXDRT.Application 'MANAGES REPORTS
        Set report = crystal.OpenReport(App.Path & "ReportsPurchase_Order.rpt") 'OPEN OUR REPORT

        Do While rsAdo.State <> adStateOpen
              DoEvents
        Loop

      With frmPOPrint
           .CRViewer.DisplayBorder = False 'MAKES REPORT FILL ENTIRE FORM
           .CRViewer.DisplayTabs = False '
           .CRViewer.EnableDrilldown = False

          report.EnableGeneratingDataForHiddenObject = True
          report.DiscardSavedData
          report.Database.SetDataSource rsAdo 'LINK REPORT TO RECORDSET
          'report.Database.SetDataSource DataFiles.SageFile 'Doesn't work
          report.ReadRecords

          .CRViewer.ReportSource = report 'LINK VIEWER TO REPORT
          .CRViewer.ViewReport ' SHOW REPORT
      End With

Edited by - BAZ on 2/19/2004 3:06:30 AM

When Moving Item Down In The Listbox The Text Disappears
Okay dont know why but the text is dissapearing when an item is moved down the list box.

Image1 displays before the move down
Image2 displays after the move down
Code is also attached. I am very confused I have been through this code througherly and I am sure there is not an error in the code.

Code:
' check: only proceed if there is a selected item
' check: last item can't be moved down
' save items text and items indexvalue
' remove item
' place item back on new position
' if you keep that item selected
' you can keep moving it by pressing cmdDown
' for arLoopCount adds the new playlist entrys from
' lstPlayList.
' list1 refreshes
' lstPlayList refreshes
Dim tempStr As String
Dim iIndex As Integer
Dim arLoopCount As Integer
List1.Clear ' Debugging orriented object to display the contents of arFilePlayList Array
If lstPlayList.SelCount = 1 Then
If lstPlayList.ListCount - 1 = lstPlayList.ListIndex Then
Exit Sub
Else
tempStr = lstPlayList.List(List1.ListIndex)
iIndex = lstPlayList.ListIndex
lstPlayList.RemoveItem lstPlayList.ListIndex
lstPlayList.AddItem tempStr, iIndex + 1
lstPlayList.Selected(iIndex + 1) = True
End If
End If
For arLoopCount = 0 To lstPlayList.ListCount
arFilePlayList(arLoopCount) = lstPlayList.List(arLoopCount)
List1.AddItem arFilePlayList(arLoopCount)
Next arLoopCount
List1.Refresh
lstPlayList.Refresh

Unable To Change BackColor? - (Resolved)
What could have happened, as I'm unable to change the back color of a command button either at design or runtime. I can however change it for a form?

Any ideas, anyone?

I've re-installed SP5 but no luck.

Regards

Word Table With Light Grey Backcolor --> RESOLVED
i have this table:

VB Code:
Set myRange = .ActiveDocument.Range(Start:=.ActiveDocument.Bookmarks("equipamentos").Start, End:=.ActiveDocument.Bookmarks("equipamentos2").End) .ActiveDocument.Tables.Add Range:=myRange, NumRows:=fg1.Rows, NumColumns:=3 .ActiveDocument.Tables(2).Columns(1).Width = 40 .ActiveDocument.Tables(2).Columns(2).Width = 200 .ActiveDocument.Tables(2).Columns(3).Width = 200 Dim mycell As Word.Cell Set mycell = .ActiveDocument.Tables(2).Cell(Row:=1, Column:=1) mycell.Range.Text = "Item" Set mycell = .ActiveDocument.Tables(2).Cell(Row:=1, Column:=2) mycell.Range.Text = "Descrição" Set mycell = .ActiveDocument.Tables(2).Cell(Row:=1, Column:=3) mycell.Range.Text = "Fornecedor" For i = 1 To fg1.Rows - 1 Set mycell = .ActiveDocument.Tables(2).Cell(Row:=i + 1, Column:=1) mycell.Range.Text = i Set mycell = .ActiveDocument.Tables(2).Cell(Row:=i + 1, Column:=2) mycell.Range.Text = fg1.TextMatrix(i, 1) Set mycell = .ActiveDocument.Tables(2).Cell(Row:=i + 1, Column:=3) mycell.Range.Text = fg1.TextMatrix(i, 2) Next

But the first row i want in light grey, anybody have some help?

Thank you,
Guilherme Costa

In Need Of Aaron Young's Listbox-backcolor Code [RESOLVED Once Again]
A.Y. had posted some code a while back that enabled you to change the backcolor of individual items in a listbox. When I did a search, the link containing that code was dead. HeSaidJoe posted some of that code in responses that I saw, but it looks like some of the code was chopped out. I could use the FULL source code that Aaron posted.

Aaron, if you see this, I would greatly appreciate it, or if someone else out there has it, that would be great.

Thanks.

Text Changed
Hi All,

I have Form which has three tab controls and each tab control has text boxes and combo boxes and Data time picker etc, totalling up to 50 instances in all three tab controls. How do I inform the user if any one of the instances is changed in any tab control to save the data before exiting the application?. I dont want create the text changed event handler for all 50 instances. Is there a easy way to do this?

Appreciate help.

Sk

Text Getting Changed While Transfering!!
Hello Friends, :=)

I just found this new forum, and am REALLY excited to find this wonderful forum dedicated to VB Programming.

Ok, now about my problem :: I have made a really simple P2P Chat using Winsock. The problem is that when i try to send some text from one PC to another over internet, the text amazingly gets CHANGED!!.

For example, if i sent "abcd" from the one PC to another, then the Winsock at the 2nd PC receives it as "abòd". This application is working perfectly fine on EVERY PC except one computer on which i received this error.

I guess this problem has something to do with Unicode!. Any ideas why this problem might be occuring and its solution??

I Thank you in advance for your kind help :-)

Regards
- Tushar

StrSQL Into A Text Box So It Can Be Changed.
Hi Guys,
I have some SQL that Inserts data to my database but I would like to change this at runtime without having to change my code all the time..

So I thought if I pasted my SQL var value into a text box at runtime i could just type in my sql..

This is not all working as id thought and wondered where im going wrong?

The code is erroring out on the textbox that holds this

Code:
rs.Fields("Field3").Value & "'','" & rs.Fields("Field7").Value & "','" & rs.Fields("Field2").Value & "','" & Body
This strSQL runs if I have it as a built string in code but when i split it up and put what I want to be changeable into a text box it goes wrong ??

Thanks for any advice..
L

Know When Copied Text Has Changed..
Ok, so , i'm using this code, which puts the copied text within a textbox..

Text1.Text = Clipboard.GetText()

Which is run under an endless timer. The problem is, i dont want it to keep writing the same thing over and over again. I want it only to change the text again when the actual contents of the Clipboard copied text has changed. I dont want to write .. If Ctrl+C is pushed then.. because there's alternatives to that, such as Cut, or just using the right click menu.

All i want to know how to do is know when the contents of the copied text (within any window) has changed..

Thanks!

Text Getting Changed While Transferring!!
Hello Friends, :=)

I have made a really simple P2P Chat using Winsock. The problem is that when i try to send some text from one PC to another over internet, the text amazingly gets CHANGED!!.

For example, if i sent "abcd" from the one PC to another, then the Winsock at the 2nd PC receives it as "abòd". This application is working perfectly fine on EVERY PC except one computer on which i received this error.

I guess this problem has something to do with Unicode!. Any ideas why this problem might be occuring and its solution??

I Thank you in advance for your kind help :-)

Regards
- Tushar

How To Detect If Text Has Been Changed?
How can I detect if a text box(multiline) has been changed. ex. a user types some text then saves as test.txt but then makes more changes and then exits. Also is there a way to determine if a file has be saved or not?

How To Detect TextBox Text Changed?
Hello, Everyone,
I have serval text box which the text will change by its Link automatically. I have one green/red light to detect whether it is out range or not all the time. Would somebody be kind to let me know how should I program it and where should I put my code? I don't think that it is good idea to put it in Form_load.
Thank you very much!
Charlie

Invoking Changed Value Text Mentod
Hi

I am typing in a value in a text box, it should process the code in the changedvalue method/event. I notice that if I press the key softley it places the character in the textbox but does not invoke the method.

Pressing the key again for a second time or hiting the key hard first time works perfectly ok. Anyone has any inside tothis problem. I am thinking I should perhaps place my code else where,another event perhaps ?

Regards

Yamin

Remote TextBox Text Get Changed
hello,
I'm getting crazy,
I'm wondering if someone found a solution to modify a textbox on a remote window.

My app found easly remote handles .
When i try sendmessage or setSlgItemText APIs, none of them worked out.

My first question is Is it possible?
My second question, does someone could send me an example of the method.
thank's

yopit
Soory for my english, i'm french...

Detect If A Combobox Text Has Changed
Hello,

On a form I have a combobox that displays either YES or NO.
I also have a SAVE command button that saves any changes to a database, If the PAGE CLOSE command button is clicked, I need to detect if the YES NO text has changed and if it has been changed and the SAVE button has not been clicked, I need to display a message prompting the user to save.

I dont know how to detect if the combobox has changed when the user clicks the CLOSE button.

Find (changed) String In Text
Hello,
Need some help here.

I have text file which size changes evry 2 min, and in that text file are some
settings for program. I need to extract them, but dont know how since
string changes constantly.
Only 1 thing can make help here and that is, string are always in this
format 0200:004000:1234567890:00:AFB5C4783ADF44AA:126A3F55F56A1122!
When software again change string it look like this :
0200:004000:1234567890:00:22113A3C4A55E123:22FAFF34E2AAF155
Also text size changes sometime from 2-10 kb.
Maybe someone can give some advice here, since I dont know how to find
vbcode or solution.

Example:
0200:004000:1234567890:00:AFB5C4783ADF44AA:126A3F55F56A1122
0200:004000:1234567890:00:22113A3C4A55E123:22FAFF34E2AAF155

B.R
VB Client / Server

Text Box Text Disappears
I am using the following code.
Code:
Private Sub txtData_KeyPress(Index As Integer, KeyAscii As Integer)
Dim strText As String
Dim rsText As ADODB.Recordset
Dim i As Integer

If KeyAscii = 13 Then
strText = "select * from TableName where Field_Name='"
strText = strText & txtData(0).Text
strText = strText & "'"

Set rsText = New ADODB.Recordset
rsText.Open strText, strConnStr, adOpenStatic, adLockPessimistic

For i = 0 To rsText.Fields.Count - 1
If IsNull(rsText.Fields(i).Value) Then
txtData(i).Text = ""
Else
txtData(i).Text = rsText.Fields(i).Value
End If
Next
End If
End Sub
User enters value from the field in txtData(0) and will press 'Enter' key. When observed during debugging, all the text boxes will have appropriate value. But, when the control comes out of End Sub, txtData(0) becomes blank. Does any one know why it happens?

How To Flag When A Text Box Is Changed For All Ctls On Form
I have the following, but it is specific to one control in a form,

is it possible to write something to affect the whole forms control in one shot instead of for each text box.because i have almost 100 text boxes in the form plus 50 combo boxes in the form.

i just want to raise the falg sayign the record is modified, and will force the user to save the information before going to another form or another record, Please help.

**********************
Private m_bFlag As Boolean

Private Sub Text1_Change()
b_bFlag = True
End Sub

**********************

Thank you very much for the information.

TextBox.Text Changed By Application Or User
Hi,

I have a situation where I would prefer to know if a particular TextBox.Text is changed by the application or by a user. Is there any way to find this out?

Cuz right now even when the application assigns a value to a textbox.text the procedure textbox_changed() gets excecuted. I want to know just when a user typed something in the textbox.text and changes the value.

Any and all HELP or suggestions are greatly appreciated.

MSFlexgrid Text Align In Fixed Row - > Can It Be Changed?
can i chnge the text align of the MsFlexGrid Fixed row using API?

Thanks in advanced!

Text Backcolor
Is there a way to change the backcolor of just a certain piece of text, and not the entire text box?,
Thanks

BackColor Of Text
hi all.
how can i change the backColor of a row in a listView ?

Text Backcolor
I've searched the forum and found nothing, so...

Is there any way to set individual text background colour?

Through my understanding it would be something like this:

with rtb.text
commondialog1.showcolor
.seltext.backcolor = commondialog1.color
end with

But that doesn't work.

Any help would be great.

Note:
I'm looking to use this as a sort of word highlighter in a text pad type program i'm adding to a bigger project im working on, and it would be ideal for this to work as it goes with the "reminder" mentality the program is based on.

Thanks Guys,
Mike.

TEXT Backcolor In LISTBOX!!
Hello, it's possible subclass one listbox, for change the backcolor of single char of the textbox ?

Not for change selected line backcolor, but for change backcolor of single character ??

thank you very much.

Backcolor Of Selected Text In RTF
I wonder:
Is't possible to change the backcolor of a certain selected text in richtextbox, like in Word!

ifso HOW!

Text To Be Changed To Capital Letters While Entering Data In A Textbox ...
Hi,

How to change the text in a textbox to Capital letters while entering data (at the same time, not at lostfocus)?

Margaret

Change Body Of E-mail - Embedding Information That Can Not Be Changed By User Viewing E-mail Only Changed By Program
hey gurus,

i need to embed information into e-mails currently stored in outlook andthose who view the e-mails must not be able to

change that information. only the code can change that information(add, delete, edit). any ideas.
thanks.

~ steve

Help!! Changed One Form, All Projects Changed
I just modified a vb6 program, and saved as new project. Problem, all the other vb6 projects in the folder also changed (vers 1, 2, 3 etc)

Is there any way to recover the original.

Also, I did make an exe of the original. Any way to get the coding from the exe file?

Thanks,

David

Making Text Box Backcolor Transparent..
I dunno if I missed something on the properties box or something..but I want to make a regular text box transparent so it matches the background color/image. I kno you can do that with a Lable but I need to make it a text box. Any advise at all?

Can I Print Text With Non-form Backcolor Highlight
By setting the fonttransparent of a form I can print text with the form's backcolor as highlight.

Anyone know a way to get the same effect but with a different color than the form's backcolor - maybe using the api?

Private Sub Form_Load()
Me.BackColor = vbRed
Me.ForeColor = vbWhite
Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), vbWhite, BF
Me.FontTransparent = False
Me.CurrentX = 100
Me.CurrentY = 100
Me.Print "fishes"
End Sub

I know I could use line methods for the highlight but I want to know if there's a way to set things so that a print method will generate highlighted text as above but with a different color that the backcolor.

RICHEDIT Unable To Set Text Backcolor To Transparent
Using vb6,

I am able to set the backcolor of text to a rainbow of colors using EM_SETCHARFORMAT with CHARFORMAT2. However am not able to restore it back to its original transparancy after I have set it to some color. Reading any unmodified highlighted text with EM_GETCHARFORMAT, returns a 0 which is black, and is not transparent. So it appears that CHARFORMAT2 is unable to accomplish this.

So then how can I restore the text's transparent backcolor???

Thanks,

RichEDIT - Rich Edit - Rich Text Box - RTB - RichTextBox - CFM_BACKCOLOR

Wanna Know How To Change The Backcolor Of The Selected Text
just like notepad.exe,the default color is blue,the richtext box is black,and ultraedit.exe can change its background color of selected text freely. Can we change it through API or some way else?

Make Win 98 Icon Text Backcolor Transparent
Hello. I was perusing planetsourcecode and I found this interesting piece of code that turns the desktop icon backgrounds in 98 and before to transparent, like win xp does. The only problem with it is it doesn't persist. Can one of you api gurus take a look at the code and help me to make it so it will stay transparent. I am already coming up with a flag system in a text file to record the state of the icons, I just need some help with the api to make it persist when refreshed or rebooted. When you refresh or reboot, you loose the transparency. I made an exe that I run when I reboot and such, but I would much rather make it stick the first time. I have uploade the zip with the project in it as I got it from planet source code. Its a nice piece of work. I have been wanting this ever since I started using 98. So any help will be appreciated.