#MICROSOFT SANS SERIF HTML PATCH#
#MICROSOFT SANS SERIF HTML CODE#

It had 8 CodeJock textboxes on it and they, all the labels, and a standard combobox all became MS Sans Serif 8.Hmmm. All the forms and their contents were fine except the form I modified. I didn't notice anything during the edit, created a new exe and ran it. But that doesn't really help me because I really want to substitute with 'Microsoft Sans Serif'.) It's basically 'yes', so long as the font name is less than 13 characters. (EDIT: I'm going to retract this question. Does anyone know if the default font can be changed in the compiler? This makes me think of something else that might help me. However, I think I've managed to work out an interim run-time solution.

#MICROSOFT SANS SERIF HTML PATCH#

I'll eventually write a program to patch-up these FRX files (and also patch up the offsets in the FRM files). And, I had over 330 forms that had RTF text embedded in these FRX files. These FRX files are much more difficult to edit than the FRM files, as the FRM files have offsets in them into the FRX files. This text winds up in the FRX (not FRM) files.

I'll eventually do that, but I worked out a run-time solution.Īnd yes, as LaVolpe states, the reason for this second thread was to work out a solution for the RTBs and pre-defined RTF text that's in these RTBs. I'd have to insert a LOT of 'Font.Name = Microsoft Sans Serif' (or something similar) into my FRM files. Therefore, it's not a simple search-and-replace.

And, in many cases, no font name is specified at all (defaulting to MS Sans Serif).

#MICROSOFT SANS SERIF HTML CODE#

The first part was addressed in an earlier thread, and was the start of the code shown in post #2.įor the first part, the problem is that we're talking about hundreds of forms. If InStr (ctl.RTFCode, 'MS Sans Serif' ) ThenĬtl.RTFCode = Replace$ (ctl.RTFCode, 'MS Sans Serif', 'Microsoft Sans Serif' ) If TypeName (ctl ) = 'RtfButton' Or TypeName (ctl ) = 'RtfLabel' Then ' And now deal with the RtfButton and RtfLabel. On Error Resume Next ' Not all controls have a font property. If you're further interested in how they work, here's the link to the codebank.Ĭode: Public Sub ReplaceMsFonFont (frm As Form ) ' This replaces 'MS Sans Serif' with 'Microsoft Sans Serif' wherever it's found on the form.įrm.Font.Name = 'Microsoft Sans Serif' ' From all I can tell, this is VERY close to the same width characters (per font size).įrm.Font.Name = 'Times New Roman' ' Times New Roman is a bit narrower, but there is no Microsoft Serif, and I don't use Serif fonts much. It truly allows me great flexibility in placing formatted text on a VB6 form:ĮDIT2: Also, I placed these controls in the codebank (with example) about a year ago. On the following, except for the two buttons, that's all one RtfLabel. I'll continue working though.ĮDIT1: Just for an example, here's a way that I use that RtfLabel control. But I'm still certainly willing to listen to ideas. Maybe, by writing it out here, I've outlined the solution.

I need a procedure that runs in Form_Load that searches for these two controls (RtfButton and RtfLabel), finds their text, examines whether or not it contains MS Sans Serif, and, if it does, swap it out for Microsoft Sans Serif. Here's a hex-editor's snooping of an 'asdfasdfasd' caption for the RtfLabel control I used for testing: FRX file of a form with this UserControl. I've looked, and this property is stored in the. Within the UserControl, this text is actually managed in a module variable named m_RTFCode (a string), and it's stored as a property named RTFCode. I've examined things, and the RTF caption text is just stored in the TextRTF property of the RTB that's part of the UserControl. (Ok ok, my bad back in 1999.) And now, this font is scattered throughout where these controls are used (which is extensive). This control has always defaulted to the MS Sans Serif font. When in design mode, there's a little editor that can pop up (when 'Edit' is clicked on the context menu of the control) which allows you to type (or Copy-Paste from WordPad) text that's 'rich'. As you might guess, they're just controls that allow RTF text on a button or label caption.

I've got these two UserControls I've used for decades (and wrote a LONG time ago). Just as an FYI, I'm talking about 100s of forms, so source code editing isn't a good choice. Okay, for the most part, things are going fine with me swapping out MS Sans Serif with Microsoft Sans Serif during runtime (allowing me to avoid a huge source code editing job).

Microsoft sans serif html