https://vb-6.professora.ir وب سايت شخصی استاد مرتضی عباسی fa-ir Thu, 08 Jan 2015 12:50:15 +0000 Thu, 08 Jan 2015 12:50:15 +0000 https://vb-6.professora.ir/cat-0/category/news-5212/ https://vb-6.professora.ir/cat-0/category/news-5212/ این جزوه که خودم تایپ کرده ام با سرفصل و تدریس های استاد عبدالهی جمع بندی و تدوین نموده ام امیدوارم برای شما مفید باشد با تشکر از استاد سرکار خانم عبدالهی زاد دانشجویان عزیز موفق و موید باشید . دانلود جزوه ویژوال بیسیک برگرفته شده از UnitAzad.Ir Thu, 08 Jan 2015 12:50:15 +0000 https://vb-6.professora.ir/cat-0/category/news-5211/ https://vb-6.professora.ir/cat-0/category/news-5211/ خوب با استفاده از تيکه کد زير در فرم اصلي برنامه تان مي توانيد از اجراي مجدد Duplicate برنامه جلوگيري کنيد Private Sub Form_Load If App.PrevInstance = True Then Dim Result As Integer Result = MsgBox برنامه در حال اجراست vbInformation Warnnig Unload Me End If End Sub Thu, 08 Jan 2015 12:48:04 +0000 https://vb-6.professora.ir/cat-0/category/news-5210/ https://vb-6.professora.ir/cat-0/category/news-5210/ این برنامه به درخواست یکی از دوستان بوده که نشان می دهد چگونه فرم هایی بصورت دایره و یا بیضی در ویژوال بیسیک طراحی کنیم . خوب ایتدا به فراخوانی توابع مورد نیاز ویندوز می پردازیم Private Declare Function SendMessage Lib USER32 Alias SendMessageA ByVal hWnd As Long ByVal wMsg As Long ByVal wParam As Long lParam As Any As Long Private Declare Function ReleaseCapture Lib USER32 As Long Private Declare Function CreateEllipticRgn Lib gdi32 _ ByVal X1 As Long ByVal Y1 As Long ByVal X2 As Long _ ByVal Y2 As Long As Long Private Declare Function SetWindowRgn Lib USER32 _ ByVal hWnd As Long ByVal hRgn As Long _ ByVal bRedraw As Boolean As Long خوب اکنون کد زیر را در رویداد Event مربوط به لحظه ای که کلید موس را بروی فرم فشردیم قرار می دهیم تا بتوانیم با فشردن موس در هر جای فرم به راحتی آن را جابجا کنیم . Private Sub Form_MouseDown Button As Integer Shift As Integer X As Single Y As Single MousePointer = 15 Call ReleaseCapture Call SendMessage hWnd amp HA1 2 0 amp MousePointer = 1 End Sub حال تابع SetWindowRgn را مقدار دهی میکنیم . این قطعه کد را در رویداد Form_Load بنویسید SetWindowRgn hWnd CreateEllipticRgn 0 0 200 200 True مثلا مقادیر 200 و 200 شکل فرم بصورت دایره در می آید برای شکل بیضی شما میتوانید این مقادیر را 200 و 300 اختیار کنید . بهتر است که خاصیت boarderStyle را 0-None در نظر بگیرید Thu, 08 Jan 2015 12:47:46 +0000 https://vb-6.professora.ir/cat-0/category/news-5209/ https://vb-6.professora.ir/cat-0/category/news-5209/ Beginning Visual Basic 2005 by Thearon Willis Bryan Newsome ISBN 0-7645-7401-9 November 2005 799 pages Download Thu, 08 Jan 2015 12:46:05 +0000 https://vb-6.professora.ir/cat-0/category/news-5208/ https://vb-6.professora.ir/cat-0/category/news-5208/ جزوه برنامه نویسی ویژوال بیسیک استاد صابری دانشگاه آزاد تهران مرکز برای دانلود آموزش تصویری ویژوال بیسیک دانلود جزوه برنامه نویسی ویژوال بیسیک منبع دانلود جزوه برنامه نویسی ویژوال بیسیک - سیویلتکت Thu, 08 Jan 2015 12:43:30 +0000