PDA

View Full Version : تبدیل کد از VB2005 به VB6


(سیدشریفی)
سه شنبه 05 مهر 1384, 16:26 عصر
با سلام به دوستان عزیز

میخواستم کد زیر را که در VB2005 نوشته شده به VB6 تبدیل کنم لطفا راهنمایی کنید



Dim colort As GLSColorTblClass = New ColorTblLib.GLSColorTblClass
Dim bmp As Bitmap = New Bitmap(PictureBox1.Image)
colort.EnumColors(bmp.GetHbitmap.ToInt64, "file1.clr")
(سیدشریفی)
پنج شنبه 07 مهر 1384, 22:17 عصر
لطفا راهنمایی کنید
(سیدشریفی)
یک شنبه 10 مهر 1384, 08:39 صبح
کسی بلد نیست ؟
حامد مصافی
یک شنبه 10 مهر 1384, 10:26 صبح
سلام
دوست عزیز تبدیل این کد مستلزم بازنویسی فضای اسمی GLSColorTblClass و کلاس Bitmap است
(سیدشریفی)
دوشنبه 11 مهر 1384, 06:05 صبح
جناب حامد مصافی از جوابی که دادید ممنون
منظور من از تبدیل کد این است که مثلا معادل bmp.GetHbitmap.ToInt64 در VB6 چه کدی است

لطفا راهنمایی کنید
حامد مصافی
دوشنبه 11 مهر 1384, 09:30 صبح
سلام علی خان

همونطوری که قبلاً هم گفتم نمیشه برای هر خط یک دستور معادل در نظر گرفت!
برای مثال همین دستور bmp.GetHbitmap.ToInt64 یک هنودل از یک کلاس Bitmap بر می گردونه. توجه کنید که این تابع هیچ معادلی در VB6 نداره

اما اگه شما می خواهید کل رنگ های یک تصویر رو به دست بیارید می تونید اونو در یک کنترل تصویر لود کنید و سپس به ترتیب شروع کنید به خوندن رنگ نقاط مختلف این تصویر و در یک فایل با نام file1.clr ذخیره کنید
(سیدشریفی)
سه شنبه 12 مهر 1384, 17:40 عصر
پس من چطوری از این DLL استفاده کنم