پرتال تخصصی کامپیوتر
مرجع مقالات شبکه و برنامه نویسی و دانستنی های کامپیوتری و مطالب آموزشی ، طراحی وب
درباره وبلاگ


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

اولین پایگاه آموزشی شهرستان گچساران با 5 سال سابقه فعالیت

این وب سایت ، فضایی است برای انتشار لینک‌های مفید؛ معرفی هرچه که خواندنی، دیدنی یا شنیدنی ا‌ست. این وب سایت به هدف آگاهی‌رسانی و بازتاب‌دادنِ مطالب خواندنی در فضای رایانه‌ای شکل گرفته است. "گچساران18"‌ یک نهاد یا یک کانون نیست؛ تنها یک "وب سایت اموزشی" ‌است و کم‌ترین تعهدی به هیچ‌یک از نهادها، گروه‌ها، اشخاص و تفکرها ندارد. این وبلاگ، به‌طور مستقل و بدون صافی عمل می‌کنند و طبیعی است که هر کس سلیقه‌ی خود را در انتخاب مطالب در پیش گیرد. این کار ، نماینده‌ی هیچ تشکّل و اندیشه ویژه‌ی سیاسی، فرهنگی یا قومی نیست. فقط معرف شهر گچساران به بازدید کننده است .

___________________________

انجام كلیه پروژه های دانشجوی در حداقل زمان ممکن

سفارش برنامه نویسی (دانشجویی ، كاربردی ) پذیرفته می شود .

پیشرفته ، متوسط ، مقدماتی


سفارش حضوری :
آدرس: شهرستان گچساران/ بلوار ولی عصر(خیابان شیراز)/ پاساژ گلستان/ مركز رایانه آرمیتا

سفارش تلفنی :
همراه : ۰۹۳۶۶۴۰۲۱۶۸
2230505 - 0742

سفارش اینترنتی :
Esmail.hahsemi@gmail.com
Esmail.hashemi@yahoo.com


با کمال تشکر مدیریت گچساران 18 (اسماعیل هاشمی - دانشجوی كامپیوتر دانشگاه آزاد گچساران)

مدیر وبلاگ : اسماعیل هاشمی
نویسندگان
آمار وبلاگ
  • کل بازدید :
  • بازدید امروز :
  • بازدید دیروز :
  • بازدید این ماه :
  • بازدید ماه قبل :
  • تعداد نویسندگان :
  • تعداد کل پست ها :
  • آخرین بازدید :
  • آخرین بروز رسانی :

امروز می خواهم درباره ظاهر شدن منو وقتی که روی فرم یا هر چیز کلیک می کنیم ظاهر شود صحبت کنم .

خوب ابتدا توسط Menu Editor منو و تعدادی SubMenu (زیر منو) ایجاد کرده و خاصیت Visible منو (فقط منو) را غیر فعال میکنیم .

حالا فرض میکنیم که می خواهیم منو را برای هنگامیکه بر روی فرم راست کلیک کردیم ظاهر کنیم , کد زیر را در Event (ٍرویداد) MouseDown می نویسیم :

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
   
'Button = 1 :::>>> For LeftClick
   
'Button = 2 :::>> For RightClick
    If Button = 2
Then
        PopupMenu MnuFile
    End
If
    
End Sub

توضیح : عبارت If Button = 2 Then یعنی این که اگر کلیک راست شد ، دستور Popup Menu mnufile اجرا می شود . اگر می خواهید کاربر وقتی کلیک چپ کرد ، این منو برای آن ظاهر شود ، از دستور If Button = 1 استفاده می کنیم .

توضیح 2 : MnuFile که توپر مشخص شده است ، نام منویی است که می خواهیم وقتی کاربر کلیک کرد ، ظاهر شود است .

حالا برنامه را Run کنید و بر روی فرم راست کلیک کنید می بینید که فرم ظاهر میشود

خوب شما می توانید منوی کلیک راست رو برای هر عنصری که رویداد MouseDown رو داره پیاده سازی کنید .





نوع مطلب : ویژوال بیسیك، سورس رایگان، رفع اشكال/سخت افزار / نرم افزار، دانلود كتاب و جزوه رشته كامپیوتر، 
برچسب ها : MouseDown، ایجاد منو برای کلیک راست، ویژوال بیسیك، VB.6،
لینک های مرتبط :

       نظرات
جمعه 18 دی 1388
اسماعیل هاشمی

سیستم اطلاعاتی 118 به وسیله ویژوال بیسیك

 

سیستم اطلاعاتی 118 به وسیله ویژوال بیسیك

پروژه كامل به همراه كد های باز قابل تغییر

بانك اطلاعاتی آماده

تصویر سازی و محیط آماده

جستجو در بانك

حذف واضافه نمودن مشترك جدید

و ....

 

سیستم اطلاعاتی 118 به وسیله ویژوال بیسیك دریافت پروژه





نوع مطلب : پروژه برنامه نویسی، ویژوال بیسیك، سورس رایگان، نمونه كار برنامه نویسی، دانلود كتاب و جزوه رشته كامپیوتر، 
برچسب ها : پروژه آماده، دانلود، ویژوال بیسیك،
لینک های مرتبط :

       نظرات
سه شنبه 15 دی 1388
اسماعیل هاشمی

سیستم فروشگاه الكترونیكی به وسیله ویژوال بیسیك

 

سیستم فروشگاه الكترونیكی به وسیله ویژوال بیسیك

 

طراحی و پیاده سازی سیستم فروشگاه الكترونیكی به وسیله ویژوال بیسیك با تمامی قابلیت های مورد نیاز

 به همراه بانك اطلاعاتی آماده 

سورس كد آماده

 


  هرگونه برداشت جهت استفاده در پروژه ها، سمینارها و تحقیقات دانشجویی و...  فقط با ذكر منبع  " آیاپیر دات كام "  و نام نویسنده مجاز می باشد.

سیستم فروشگاه الكترونیكی به وسیله ویژوال بیسیك دریافت فایل





نوع مطلب : پروژه برنامه نویسی، ویژوال بیسیك، سورس رایگان، نمونه كار برنامه نویسی، دانلود كتاب و جزوه رشته كامپیوتر، 
برچسب ها : پروژه آماده، دانلود، ویژوال بیسیك،
لینک های مرتبط :

       نظرات
سه شنبه 15 دی 1388
اسماعیل هاشمی