با سلام و خدا قوت
من چند روز پیش یه تاپیک داشتم که توی اون در مورد قلم نرم پرسیده بودم.(که کسی جواب نداد)
خودم خواستم کدشو بنویسم.به این صورت:
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
که نمی دونم چرا با اینکه GDI.Dll رو از اینترنت دانلود کردم و در \:C گذاشتم باز VB پیغام میده که این فایل رو پیدا نکرده؟
در ضمن دو شاخه System و System32 رو هم امتحان کردم یعنی این فایل رو در این دو شاخه گذاشتم و تعریف تابع رو بدون آدرس GDI.Dll آوردم.باز هم کار نکرد؟
البته برام مهم نیست که حتما از این راه به قلم لبه نرم(با ضد پلگی) برسم.اگه کسی راهی برام سراغ داره لطفا راهنماییم کنه!ممنون..
پاسخ با نقل قول