محبوبترینها
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
سیگنال در ترید چیست؟ بررسی انواع سیگنال در ترید
بهترین هدیه تولد برای متولدین زمستان: هدیه‌های کاربردی برای روزهای سرد
در خرید پارچه برزنتی به چه نکاتی باید توجه کنیم؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1828720438
نقشه جغرافیایی جهان با ویژوال بیسیک -
واضح آرشیو وب فارسی:سایت ریسک: نقشه جغرافیایی جهان با ویژوال بیسیک 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.
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 557]
-
گوناگون
پربازدیدترینها