There are no fonts installed

[mohamadpk]

آقا این دیالوگ فونت تا دیروز باز میشد. حالا وقتی تو برنامم صداش می کن. میگه
"There are no fonts installed. Open the Fonts Folder from the Control Panel to install fonts."!

خوب میگه که من فونت نصب ندارم. برای نصب فونت از کنترل پنل فولدر فونت ها رو باز کنم.
این یعنی چی ؟. چرا زده به سرش. من تا حالا این مشگل رو نخورده بودم. تو یاهو و گوگل هم سرچ کردم . نتیجه نداشت. خلاصه یه کمکی کنین این فونته راه بیوفته.

متشکرم.

[PEA]

امکانش هست سورس (یا نمونه سورس) رو بگذارید؟
شاید واقعا مشکل از سیستم عامل شما باشد...

[mohamadpk]

کد:

With cdlg
          .Flags = cdlCFBoth
          .FontName = Text1.FontName
          .FontSize = Text1.FontSize
          .ShowFont
      End With

[mohamadpk]

خیلی جالبه . من نیومدم اصلا فونت رو دستی بنویسم . مثلا بنویسم "Tahoma" اومدم از یه تکس باکس که فونت رو داره مثل آدم نشون میده گرفتم . اما باز میگه فونتت وجود نداره. این یعنی چی ؟. به حق چیز های ندیده. تا دیشب درست بود ها.

[PEA]

من دقیقا همین کد رو تست کردم، مشکلی وجود نداره،
ظاهرا مشکل از سیستم عامل شماست...

[mohamadpk]

منم میگم که . دیشب همین رو نوشتم . اصلا دیشب چیه . یه عمر اینطوری دارم دیالوگ فونت باز میکنم. نمی دونم چشه. حالا یه حرکتی روش میزنیم ببینیم چی میشه.

[PEA]

خب حالا چرا اطلاعات رو به صورت دستی و بدون کد وارد نمی کنید؟

[mohamadpk]

خب حالا چرا اطلاعات رو به صورت دستی و بدون کد وارد نمی کنید؟

وارد کردم عزیزم مشگل از سیستم عامل هست. چون تو چند تا سیستم دیگه تست کردم درست بود.