پرچم تشریفات با کیفیت بالا و قیمت ارزان
پرواز از نگاه دکتر ماکان آریا پارسا
دکتر علی پرند فوق تخصص جراحی پلاستیک
تجهیزات و دستگاه های کلینیک زیبایی
سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را تقویت کند؟
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
تعداد کل بازدیدها :
1850258528
نقشه جغرافیایی جهان با ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: نقشه جغرافیایی جهان با ویژوال بیسیک the_king 21 بهمن 1386, 00:26در این برنامه نقشه جغرافیایی 30 کشور جهان به همراه قابلیت جستجو و Zoom کردن ارائه شده است. کد کامل برنامه به همراه فایل اجرایی ضمیمه این پست می باشد. uu99 21 بهمن 1386, 11:18سلام من این برنامه رو دانلود کردم . دست شما درد نکنه . خیلی عالیه! قسمتی از این برنامه به این شکل نوشته شده: Private Sub Form_Load() AddCountry "IRAN", 912, 409, 400 AddCountry "IRELAND", 80, 155, 150 AddCountry "UNITED KINGDOM", 144, 104, 200 AddCountry "DENMARK", 396, 120, 100 AddCountry "FRANCE", 187, 228, 250 AddCountry "SPAIN", 110, 363, 250 AddCountry "PORTUGAL", 54, 425, 150 AddCountry "MOROCCO", 49, 509, 250 AddCountry "MAURITANIA", 0, 688, 250 AddCountry "SENEGAL", 0, 868, 130 AddCountry "GUINEA", 37, 919, 150 AddCountry "LIBERIA", 86, 995, 100 AddCountry "NIGERIA", 290, 879, 250 AddCountry "CAMEROON", 374, 935, 200 AddCountry "MALI", 75, 717, 300 AddCountry "NIGER", 255, 714, 300 AddCountry "ALGERIA", 110, 492, 400 AddCountry "LIBYA", 378, 531, 350 AddCountry "CHAD", 421, 750, 300 AddCountry "CENTRAL AFRICAN REP.", 481, 885, 250 AddCountry "SUDAN", 572, 760, 350 AddCountry "ETHIOPIA", 760, 834, 300 AddCountry "EGYPT", 626, 590, 250 AddCountry "YEMEN", 896, 777, 250 AddCountry "SAUDI ARABIA", 806, 583, 350 AddCountry "IRAQ", 856, 513, 200 AddCountry "SYRIA", 808, 506, 150 AddCountry "PAKISTAN", 1206, 503, 300 AddCountry "AFGHANISTAN", 1199, 470, 250 AddCountry "INDIA", 1198, 544, 500 Caption = Caption & " (" & CStr(CountryCount) & " countries)" ShowMap "IRAN" End Sub اصلا به برنامه گفته نشده این نوشته ها را در چه کنترلی باید اضافه کنه با تشکر the_king 21 بهمن 1386, 15:09AddCountry که یک فرمان استاندارد VB نیست، تابعی است که خودم تعریف کردم تا موقعیت مکانی کشور ها را به لیست اضافه کنه. Private Sub AddCountry(ByVal Title As String, ByVal X As Long, ByVal Y As Long, ByVal Width As Long) ReDim Preserve CountryList(0 To CountryCount) With CountryList(CountryCount) .Title = Title .X = X .Y = Y .Width = Width End With CountryCount = CountryCount + 1 List.AddItem Title End Sub همانطور که در کد بالا می بینید، پارامتر اول نام کشور است و پارامتر دو موقعیت X در نقشه و پارامتر سوم موقعیت Y آن و پارامتر چهارم طول ناحیه ای که آن کشور اشغال می کند. چون نسبت طول به عرض نقشه ثابت است، نیازی به درج عرض کشور نیست و از روی طول آن محاسبه می شود. List.AddItem Title این همان کدی است که شما دنبالش می گردید، نام کشور را به کنترل لیست (ListBox) به نام List اضافه می کند. آخرین کد در تابع AddCountry.
این صفحه را در گوگل محبوب کنید
-