Private Declare Function SetFilter Lib "StreamReader.dll" (ByVal PID As Integer, ByVal ReadDataFunction As Long, ByVal CallBackTyp As Long, ByVal Size As Long, ByVal filter_num As Long) As Boolean
Public Function ReadDataFunction(ByVal buff As Byte, ByVal ILen As Long) As Long
'A2 = buff
'A1 = ILen
End Function
Private Sub Command1_Click()
Caption = SetFilter(532, AddressOf ReadDataFunction, 2, 1, 0)
End Sub
فکر کنم مشکل اینه که AddressOf رو نمیشه مستقیم ریخت توی یک فانکشن.به نقل از emad86_20011 :
خوب اين هم فانكشنش سراسريه ديگه Public تعريف شده!! من اينو تويه يك module هم گذاشتم نشد!!به نقل از balabala :
این جوریبه نقل از emad86_20011 :
Function FnPtrToLong (ByVal lngFnPtr As Long) As Long
FnPtrToLong = lngFnPtr
End Function
Private Sub Command1_Click()
Dim lngPtr as Long
lngPtr=FnPtrToLong(AddressOf ReadDataFunction)
Caption = SetFilter(532, lngPtr, 2, 1, 0)
End Subكد رو امتحان كردم!! فرقي نكرد!!به نقل از balabala :این جوری
کد:Function FnPtrToLong (ByVal lngFnPtr As Long) As Long FnPtrToLong = lngFnPtr End Function Private Sub Command1_Click() Dim lngPtr as Long lngPtr=FnPtrToLong(AddressOf ReadDataFunction) Caption = SetFilter(532, lngPtr, 2, 1, 0) End Sub
نه بابا! نمی خواستم کلکش بزنمبه نقل از emad86_20011 :كد رو امتحان كردم!! فرقي نكرد!!
vb زرنگ تر از اين حرفاست!! ميخواستي با پيچ دادن كدها كلكش بزني ولي نشد
دقيقا همون error قبلي رو داد!! و بهتر بگم با اين جمله مشكل داره AddressOf ReadDataFunction
ميشه از روشي ديگه رفت كه اصلا نياز به استفاده از AddressOf نباشه؟؟
ممنون again
، راهش همین!
چی؟! درست شد؟ پس چی میگفتی؟ دیدی گفتم...به نقل از emad86_20011 :الان گذاشتم تو يه ماژول همه چي درست شد!! ممنون! خدا عمرت بده جوون
مرسی آقا، از سفارشای شماست دیگه.به نقل از شايان :balabala جان مبارك باشه آقا
سوال : يه برنامه ميخوام كه ليست DLL هاي استفاده شده تو يه پروژه VB رو بده ... خيلي دقيق و درست حسابي ! از اين برنامه نميدونم چي چي ( اسمش يادم رفته ) كه تو خود VB هست هم نميخوام استفاده كنم !
چون اولا VB من اين رو نداره ! دوما شنيدم گاهي اشتباه ميده.
برنامه مطمئن و درست حسابي سراغ داريد ؟ ( يه مقدار فوري )
و يه چيز ديگه ... ليست DLL هايي رو ميخوام كه تو خود XP هست ( وقتي نصب ميشه ) كه ديگه توي Setup ام نذارمشون.
ممنون.
MSVBVM60.DLL
COMCAT.DLL
stdole2.tlb
asycfilt.dll
olepro32.dll
oleaut32.dllچطور؟ توی سی دی ویژوال استودیو 6 حتما هستش. باید بری Add Remove ش یک نگاه به آپشن ها بنداز، حتما ننصبیدی!به نقل از شايان :
آره بجزبه نقل از شايان :
که برای خوده ستاپ وی بی هست و برای ستاپ های دیگه لازم نیست بقیش رو XP داره.
هم مشکوک میزنه. بهتره که باشه. و البته ocx و dll های برنامت.
به نقل از شايان :VB6STKIT.DLL رو كه همونطور گفتي ... هيچي ! چون من نميخوام از اين ستآپ استفاده كنم . اين stdole2.tlb هم ببينم چيه ... شايد ماله خودم بوده اسمش رو عوض كردم
فکر نکنم.به نقل از شايان :
