مشکل با API EnumFont

[Reza,M]

با سلام
API EnumFont در vb6 مشکلی نداره ولی نمیدونم چرا در vb.net نمیتونم ازش استفاده کنم
نمونه کد vb6 و vb.net را ضمیمه کردم

[xxnagin]

سلام
این کد vb6 باید تبدیل بشه به vb.net
تازه خیلی راحت هم تبدیل نمیشه
تبدیل کردن کد این نیست که بیای عین کد را بنویسی و خطاهای کد رو برطرف کنی مثلا تو vb6 کلمه new زیاد کاربرد نداره ولی اینجا (در بعضی جاها ) باید از new استفاده کنید

اگه شما میخواین فونت ها رو تو list نشون بدین این راه خیلی ساده تر هستش


PrivateSub AddFonts()
Dim allFonts AsNew Drawing.Text.InstalledFontCollection


Dim fontFamilies() AsFontFamily = allFonts.Families()
ForEach fo AsFontFamilyIn fontFamilies
ListBox1.Items.Add(fo.Name)


Next
EndSub

[Reza,M]

نه دوست عزیز میخوام از API استفاده کنم

[xxnagin]

وقتیvb.net کار را راحت کرده چرا کار خودتو سخت میکنی
http://www.codeproject.com/Articles/2699/FontComboBox-a-font-listing-combo-box-for-NET
اینم یه لینک دیگه که به زبان سی شارپ هستش ولود فرم لازم به تبدیل داشت که برات تبدیل هم کردم که فقط یه dll داره که به فرمت اضافه کنی
اینم کد که تو فرم و دکمه میذاری

'load form
fontComboBox1.Populate(False)
fontComboBox2.Populate(True)
'button
textBox1.Font = New Font(fontComboBox1.Text,10)
textBox2.Font = New Font(fontComboBox2.Text,10)

[Reza,M]

هیچ راهی نیست که با API بشه انجام داد ....

[xxnagin]

این کد باید تبدیل بشه به vb.net یعنی مجبورید
vb.net کار رو راحت کرده شما مجبور نیستی از api استفاده کنید وقتی به این راحتی با دو تا خط کد میشه کار میکنه
چرا از خط های زیاد استفاده میکنی

[Reza,M]

این کد باید تبدیل بشه به vb.net یعنی مجبورید
vb.net کار رو راحت کرده شما مجبور نیستی از api استفاده کنید وقتی به این راحتی با دو تا خط کد میشه کار میکنه
چرا از خط های زیاد استفاده میکنی
میخوام با api انجام بدم :متفکر:
اگه میشه تبدیلش کرد لطفا این کار رو انجام بدید آخه من تبدیل کردم جواب نداده

[Reza,M]

با سلام
API EnumFont در vb6 مشکلی نداره ولی نمیدونم چرا در vb.net نمیتونم ازش استفاده کنم
نمونه کد vb6 و vb.net را ضمیمه کردم

در کد vb.net به EnumFonts(Me.hDC, vbNullString, AddressOf EnumFontProc, 0) خطا میگیره

[xxnagin]

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

اول DelegateFunction EnumFontProc(....)as integer
بعدش باید
dim proc as new EnumFontProc(AddressOf EnumFontProc)EnumFonts(Me.hDC, vbNullString, AddressOf EnumFontProc, 0)

تو قسمت قرمز رنگ که تو Module خط اولت باید EnumFontProc بنویسی به جای integer

نمونه http://stackoverflow.com/questions/2463395/addressof-vb6-to-vb-net

[Reza,M]

درست دوست من راهش همین Delegate ولی چطور باید ازش استفاده کرد :گریه:

[Reza,M]

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

اول DelegateFunction EnumFontProc(....)as integer
بعدش باید
dim proc as new EnumFontProc(AddressOf EnumFontProc)EnumFonts(Me.hDC, vbNullString, AddressOf EnumFontProc, 0)

تو قسمت قرمز رنگ که تو Module خط اولت باید EnumFontProc بنویسی به جای integer

نمونه http://stackoverflow.com/questions/2463395/addressof-vb6-to-vb-net


این کارها رو کردم ولی بازم جواب نداد . هنوز خطا میگیره ؟؟؟

[xxnagin]

vb6

Sub SYNCPROC(ByVal handle As Long, ByVal channel As Long, ByVal data As Long, ByVal user As Long)
'CALLBACK FUNCTION !!!
End Sub

vb.net

Delegate Sub SYNCPRO(ByVal handle As Long, ByVal channel As Long, ByVal data As Long, ByVal user As IntPtr)
dim proc as New Un4seen.Bass.SYNCPROC(AddressOf SyncEndProc)

Public Sub SyncEndProc(ByVal handle As Integer, ByVal channel As Integer, ByVal data As Integer, ByVal user As IntPtr)
Me.Invoke(New System.Windows.Forms.MethodInvoker(AddressOf MusicEnd))
End Sub
Public Sub MusicEnd()
End Sub

این کد برای mp3 player هستش
که میگه اهنگ داره تموم میشه

کد بالا را نگاه کن
در ضمن تو فرم یک به جای hdc از handle خود فرم باید استفاده بکنی
و تو MusicEnd که کارش repeat shuffle اهنگ ها هستش
شماباید اینجوری بنویسی نصفش را خط های قرمز رو می بینی
کلا من نتونستم کاری بکنم
از دوستان دیگه کمک بگیر که بیشتر از من میدونن
حالا نمیشه بی خیال بشی

[Reza,M]

ضمن تشکر از xxnagin سایر دوستان و اساتید محترم نظری ندارند ؟:اشتباه: