فونتهای برنامه [بایگانی]

com12151337

پنج شنبه 12 مرداد 1391, 16:02 عصر

سلام دوستان
یک برنامه که نوشته میشه با فونتهای موجود آن کامپیوتر طراحی میشه و اگر روی یک کامپیوتر دیگری آن برنامه نصب بشه و آن فونتها را نداشته باشه به یک صورت دیگر دیده میشه راه حلی هست ؟

RESMAILY

پنج شنبه 12 مرداد 1391, 17:59 عصر

به نام خدا
با سلام ازاين نمونه مي توانيد استفاده كنيد. مثلا ماكرويي بنويسيد كه پس از نصب اين روال را اجرا كند و سپس خودش غير فعال شود. در ضمن اين برنامه متعلق به اقاي دستجردي است.

Abbas Amiri

پنج شنبه 12 مرداد 1391, 19:35 عصر

با تشکراز آقای اسماعیلی عزیز
من قبلا به یک روش طولانی تر اینکار را میکردم و با توجه فایل فوق پیشنهاد بنده اینست که کد های زیر دریک ماژول کپی شود ودر ماکروی AutoExec فانکشن زیر فراخوانی شود.البته قبل از اینکار درپوشه جاری برنامه یک فولدر بنام Fonts ایجادشود وفونتهای موردنیاز درآن کپی شود ، چون فانکشن زیر درآن پوشه به دنبال فونت ها میگردد.

Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long

Function InstallFonts() As Boolean
On Error GoTo Err_FontInstall
Dim MyFontPath As String, FontNam As String
MyFontPath = CurrentProject.Path & "\Fonts\"
FontNam = Dir(MyFontPath & "*.ttf")
Do While FontNam <> ""
AddFontResource MyFontPath & FontNam
FontNam = Dir()
Loop
InstallFonts = True
Exit Function
Err_FontInstall:
MsgBox "Install fonts failed Error number : " & Err.Number
End Function

com12151337

جمعه 13 مرداد 1391, 13:10 عصر

سلام به همگی
جناب امیری نام مدول باید InstallFonts باشد یا نه چون بنده بنام Module4 معرفی کردم ولی خطا میگیرد و فایل موجود نمی باشد را اعلام میکند و این خط را خطا میگیرد Function InstallFonts() As Boolean یک پوشه بنام fonts در درایو c ایجاد کردم

Abbas Amiri

جمعه 13 مرداد 1391, 13:55 عصر

نام ماژول مهم نیست . پوشه Fonts را در همان مکانی که فایل شما وجود دارد ایجادکنید و فونتهای موردنیاز را درداخل آن قراردهید.
برای ماکروهم ازتصویر زیر کمک بگیرید
90671

com12151337

دوشنبه 16 مرداد 1391, 17:44 عصر

سلام وقت بخیر
جناب امیری در رفرنس هم چیزی میخواهد که تیک بخورد

Abbas Amiri

دوشنبه 16 مرداد 1391, 20:52 عصر

چه خطایی میگیرد؟

com12151337

سه شنبه 17 مرداد 1391, 11:37 صبح

اول شروع برنامه زمان پسورد خواستن the expression you has afunction that microsoft access cant find این خطا را میگیره

Abbas Amiri

سه شنبه 17 مرداد 1391, 17:53 عصر

ایا تابع را درسطح ماژول ایجاد کرده اید؟
در ماکرو AutoExec نام تابع را صحیح نوشته اید؟
اگر مثبت است یک کپی از فایل تان (فقط محتوی ماکرو ،تابع و ماژول مربوط باشد وبقیه را پاک کنید.رمزراهم بردارید) آپلود کنید تابررسی شود

com12151337

سه شنبه 17 مرداد 1391, 21:56 عصر

جواب مثبت است

Abbas Amiri

سه شنبه 17 مرداد 1391, 22:41 عصر

دوست عزیز نام ماژول ها نباید با نام توابع یکی باشد