Here's the complete list of the available stock font objects: Long ago, I provided a drop-in ready class module which you can download from my Web site that will retrieve all that information for you. For that, you'll want to use SystemParametersInfo to query non-client metrics. Indeed, the one that sounds most useful - DEFAULT_GUI_FONT - is probably the worst offender. There are actually seven stock fonts offered by Windows, though I wouldn't recommend using any of the others as there are generally far better options available and some are simply well-known for being unreliable. This doesn't seem to have any effect with the intrinsic controls in ClassicVB, as they all redraw using the newly selected font regardless of how that parameter is set. The only real option is the last parameter to WM_SETFONT, which is supposed to instruct the control whether or not to redraw itself. Just pass it the desired window handle (e.g., Text1.hWnd) and the rest is taken care of for you. This sample routine is about as simple as it gets. ' Select the stock font into the client window.Ĭall SendMessage(hWnd, WM_SETFONT, hFont, True) This function returns a handle to the desired object, in this case a font, which you can then select into the desired window using SendMessage and WM_SETFONT as follows: Public Sub SetOemFont(ByVal hWnd As Long) Windows provides a series of 'stock' fonts, easily retrievable with a quick call to the GetStockObject API function. While that certainly wouldn't be the end of the world, assuming the font is even licensed for such redistribution, it's obviously a headache - and one he wouldn't want to take on unnecessarily. Remember those? He'd tried using the 'Terminal' font, but found that it wasn't consistently available on all Windows installations, and feared he'd need to distribute it along with his application. Need to recreate that olde-timey Terminal look? There's a stock object built into every version of Windows that'll serve that need.Ī reader recently asked how to recreate the look of an old - some might say ancient - terminal app that made heavy use of the box drawing characters.

Classic VB Corner Using a Standard Terminal Font

G best font for terminal