{"id":5993,"date":"2007-06-04T19:55:00","date_gmt":"2007-06-04T19:55:00","guid":{"rendered":"https:\/\/blogs.msdn.microsoft.com\/vbteam\/2007\/06\/04\/interopforms-2-0-tip-1-font-property\/"},"modified":"2024-07-05T14:45:36","modified_gmt":"2024-07-05T21:45:36","slug":"interopforms-2-0-tip-1-font-property","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/vbteam\/interopforms-2-0-tip-1-font-property\/","title":{"rendered":"InteropForms 2.0 Tip #1 – Font Property"},"content":{"rendered":"
(Starting today, we’ll be highlighting various tips that might help you when using the InteropForms 2.0 toolkit.   With the latest release of the toolkit, you can do some fairly impressive upgrades to your existing VB6 applications.  Don’t believe me?  Check this<\/a> out as one cool example  – WPF in VB6 anyone?!)<\/p>\n
 <\/div>\n
If you don’t have it, you can download the toolkit here<\/a>.<\/div>\n
  <\/strong><\/div>\n
Adding Font Property:<\/strong><\/div>\n
Here’s a tip on extending Interop Usercontrols that some of you might find useful.   Most usercontrols have a “font” property associated with them which can inherit its values from its container and defines what font is used for the controls that it contains.   If you want to add this support to your control, here’s what you can do.<\/div>\n
 <\/div>\n
 <\/div>\n
1) From your VB6 Interop Usercontrol project, goto the references dialog on your project and add a reference to “stdole”<\/div>\n
 <\/div>\n
2) Open up your interopusercontrol control and in the “VB6 Properties” region, add this code:<\/div>\n
 <\/div>\n
\n
Public<\/font> <\/font>Shadows<\/font> <\/font>Property<\/font> ControlFont() <\/font>As<\/font> stdole.IFontDisp<\/font><\/div>\n
\n

Get<\/font><\/p>\n

<\/p>\n

<\/font>Dim<\/font> fntTmp <\/font>As<\/font> <\/font>New<\/font> Drawing.Font(<\/font>MyBase<\/font>.Font.Name, <\/font>MyBase<\/font>.Font.Size, <\/font>MyBase<\/font>.Font.Style, _<\/p>\n

System.Drawing.GraphicsUnit.Point, <\/p>\n

<\/font>CType<\/font>(0, <\/font>Byte<\/font>))<\/p>\n

<\/font>Return<\/font> ActiveXControlHelpers.GetIFontDispFromFont(fntTmp)<\/p>\n

<\/font>End<\/font> <\/font>Get<\/font><\/p>\n

Set<\/font>(<\/font>ByVal<\/font> value <\/font>As<\/font> stdole.IFontDisp)<\/font><\/p>\n

MyBase<\/font>.Font = ActiveXControlHelpers.GetFontFromIFontDisp(value)<\/font><\/p>\n

End<\/font> <\/font>Set<\/font><\/p>\n

<\/p>\n

<\/font>End<\/font> <\/font>Property<\/font><\/div>\n<\/blockquote>\n

 <\/div>\n
3) Open up ActiveXControlHelpers.vb and add this code to the activeXControlHelpers class<\/div>\n
\n
<\/p>\n

<\/font>Friend<\/font> <\/font>Shared<\/font> <\/font>Shadows<\/font> <\/font>Function<\/font> GetFontFromIFontDisp(<\/font>ByVal<\/font> obj <\/font>As<\/font> <\/font>Object<\/font>) <\/font>As<\/font> Font<\/p>\n

<\/font>Return<\/font> AxHost.GetFontFromIFontDisp(obj)<\/p>\n

<\/font>End<\/font> <\/font>Function<\/font><\/p>\n

<\/font>Friend<\/font> <\/font>Shared<\/font> <\/font>Shadows<\/font> <\/font>Function<\/font> GetFontFromIFont(<\/font>ByVal<\/font> obj <\/font>As<\/font> <\/font>Object<\/font>) <\/font>As<\/font> Font<\/p>\n

<\/font>Return<\/font> AxHost.GetFontFromIFont(obj)<\/p>\n

<\/font>End<\/font> <\/font>Function<\/font><\/p>\n

<\/font>Friend<\/font> <\/font>Shared<\/font> <\/font>Shadows<\/font> <\/font>Function<\/font> GetIFontDispFromFont(<\/font>ByVal<\/font> font <\/font>As<\/font> Font) <\/font>As<\/font> stdole.IFontDisp<\/p>\n

<\/font>Return<\/font> <\/font>TryCast<\/font>(AxHost.GetIFontDispFromFont(font), stdole.IFontDisp)<\/p>\n

<\/font>End<\/font> <\/font>Function<\/font><\/div>\n<\/blockquote>\n

4) You can then compile your project and reference it from VB6 and set the “controlfont” property appropriately.<\/div>\n
 <\/div>\n
This property was not included in the InteropForms 2.0 release since we didn’t feel like it was that common of a scenario and it can make deploying the control in the general case a bit trickier.   Specifically, you need to ensure that stdole.dll is deployed in the GAC which you can install by running a setup called vs_piaredist.exe which should be installed on your machine that has VS (typically in a program filescommon filesmerge modules directory).   It’s a silent install, so it’s pretty easy to deploy.   However, you may find that all your clients have this installed and you don’t need to worry about this.<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

(Starting today, we’ll be highlighting various tips that might help you when using the InteropForms 2.0 toolkit.   With the latest release of the toolkit, you can do some fairly impressive upgrades to your existing VB6 applications.  Don’t believe me?  Check this out as one cool example  – WPF in VB6 anyone?!)   If you don’t […]<\/p>\n","protected":false},"author":260,"featured_media":8818,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[192,195],"tags":[155,170],"class_list":["post-5993","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-featured","category-visual-basic","tag-todd-apley","tag-vb6_migrationinterop"],"acf":[],"blog_post_summary":"

(Starting today, we’ll be highlighting various tips that might help you when using the InteropForms 2.0 toolkit.   With the latest release of the toolkit, you can do some fairly impressive upgrades to your existing VB6 applications.  Don’t believe me?  Check this out as one cool example  – WPF in VB6 anyone?!)   If you don’t […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/5993","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/users\/260"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/comments?post=5993"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/5993\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media\/8818"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media?parent=5993"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/categories?post=5993"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/tags?post=5993"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}