ها ؟
شما 2 تا ایراد داری

1 از کی تا حالا مایکروسافت میاد و کتابخونه هاش رو تو شاخه درایو C میزاره؟
2 از کی تا حالا کتابخانه GDI32 تغییر نام پیدا کرده به GDI؟

نقل قول نوشته شده توسط mbshareat
Private Declare Function CreateFont Lib "C:\GDI.dll" (ByVal H As Integer, _
ByVal W As Integer, _
ByVal E As Integer, _
ByVal O As Integer, _
ByVal W As Integer, _
ByVal I As Integer, _
ByVal U As Integer, _
ByVal S As Integer, _
ByVal C As Integer, _
ByVal OP As Integer, _
ByVal CP As Integer, _
ByVal Q As Integer, _
ByVal PAF As Integer, _
ByVal F As String) As Integer
Private Sub Command1_Click()
'DEFAULT_CHARSET
'DRAFT_QUALITY
Font = CreateFont(11, 0, 0, 0, 500, False, False, False _
, ARABIC_CHARSET, OUT_DEFAULT_PRECIS _
, CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH _
, "Tahoma")
End Sub

اصلاح شده


Private Declare Function CreateFont Lib "gdi32" Alias "CreateFontA" (ByVal H As Long,_

 ByVal W As Long,_

 ByVal E As Long,_

 ByVal O As Long,_

 ByVal W As Long,_

 ByVal I As Long,_

 ByVal u As Long,_

 ByVal S As Long,_

 ByVal C As Long,_

 ByVal OP As Long,_

 ByVal CP As Long,_

 ByVal Q As Long,_

 ByVal PAF As Long,_

 ByVal F As String)_

 As Long

Private Sub Command1_Click()

    'DEFAULT_CHARSET

    'DRAFT_QUALITY

    Font = CreateFont(11, 0, 0, 0, 500, False, False, False _

    , ARABIC_CHARSET, OUT_DEFAULT_PRECIS _

    , CLIP_DEFAULT_PRECIS, PROOF_QUALITY, DEFAULT_PITCH _

    , "Tahoma")

End Sub



که نمی دونم چرا با اینکه GDI.Dll رو از اینترنت دانلود کردم و در \:C گذاشتم باز VB پیغام میده که این فایل رو پیدا نکرده؟
در ضمن دو شاخه System و System32 رو هم امتحان کردم یعنی این فایل رو در این دو شاخه گذاشتم و تعریف تابع رو بدون آدرس GDI.Dll آوردم.باز هم کار نکرد؟
البته برام مهم نیست که حتما از این راه به قلم لبه نرم(با ضد پلگی) برسم.اگه کسی راهی برام سراغ داره لطفا راهنماییم کنه!ممنون..
شما نیازی نداری که این کتابخانه رو دانلود کنی، این کتابخانه بصورت پیشفرض همراه با ویندوز شما نصب میشه (از ویندوز 98 به بعد)
مگر اینکه بخوای برنامهت رو خارج از محیط ویندوز اجرا کنی مثلا داس یا مکینتاش و ... که بازم نمیتونی چون ویبی فقط تحت ویندوز اجرا میشه
کدی که برات گزاشتم رو امتحان کن ببین چی میشه خبرشو بهم بده

موفق باشید