问题描述
IfDir("C:res_font_1_.ttf")=""ThenDimvar_res_font_AsStream=File.Create("C:res_font_1_.ttf")var_res_font_.Write(My.Resources.res_font_1_,0,My.Resources.res_font_1_.Length)var_res_font_.Close()DoLoopUntil("C:res_font_1_.ttf").Length=My.Resources.res_font_1_.LengthEndIfDimvar_fontcollection_AsPrivateFontCollection=NewPrivateFontCollectionvar_fontcollection_.AddFontFile("C:res_font_1_.ttf")Dimvar_fontfamily_AsFontFamily=NewFontFamily("方正喵呜体",var_fontcollection_)这是一段能在程序里使用自己资源文件的字体的代码,但是最后那句中不填入字体文件对应的字体名称就会出错。我想在这个代码的基础上让用户可以自定义程序字体,这样就得获取字体文件的详细信息中的标题信息,所以该怎么获取。顺便一问有没有办法能直接使用资源文件中的字体而不需要把它移到本地磁盘在使用。
解决方案
解决方案二:
My.Computer.FileSystem.GetFileInfo(filestr)或者引用MicrosoftShellControlsandAutomation
时间: 2024-09-21 06:31:23