آموزش ويژوال بيسيک 6

: مقدمه
مبناي اصلي ويژوال بر پايه آموزشي بنا شده است و براي کساني که مي خواهند برنامه نويسي را تازه شروع کنند قابل فهم مي باشد

: محيط کار
محيط کار ويژوال بيسيک به صورتي ساده و گرافيکي مي باشد که شامل نوار ابزار نوار استاندارد و منوها مي باشد

: ايجاد يک پروژه
براي ايجاد يک پروژه در ويژوال بيسيک بر روي آن دابل کليک مي کنيم پنجره اي گشوده مي شودکه شامل ويزاردها اکتيوايکس ها واستاندارد و غيره مي شود که ما روي گزينه استاندارد دابل کليک مي کنيم.اکنون وارد محيط ويژوال بيسيک شده ايم

: vb آشنايي با محيط
ما براي کد نويسي و قرار دادن اشکال در تول باکس احتياج به يک مکان قرار گيري داريم که اين مکان در وسط صفحه قرار دارد که به آن فرم مي گويند مانند زير

Form

براي کد نويسي کافي است درون آن دابل کليک کرد و در همان قسمتي که ظاهر مي شود کد مربوط به فرم را نوشت

قسمت ديگر برنامه قسمت خاصيت ها مي باشداز جمله
وغيره که مانند شکل زير مي باشد:backcolor،enabled،width،height،caption

Properties

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

ToolBox جعبه ابزار

پروژه-طرح : ما در برنامه ویژوال بیسیک تنها با یک فرم کار نمی کنیم وگاهی اوقات ما یک برنامه ای را طراحی می کنیم که از دو الی چند فرم تشکیل شده است که در این صورت برای جابجایی بین فرم ها احتیاج به یک کنترل کننده داریم

که در اینجااز پنجره ای به نام Project کمک می گیریم

Project

آرایش : قسمت دیگر آن جاینمایی است که در آن پنجره مکان و آرایش فرمها را نشان می دهد که در گوشه پایین صفحه و در سمت راست قرار دارد که به شکل

زیر می باشد

Form Layout

نواری است که از ابزارهای پرکاربرد تشکیل شده است :Standard نوار ابزار

در این نوار ابزار می توان برنامه خود را اجرا کرده و مشاهده کنیم همچنین می توانیم یک فرم و یا یک پروژه جدید ایجاد کنیم و می توانیم فایل خود را باز یا ذخیره کنیم

Standard نوار ابزار

تااینجا ما با محیط ویژوال آشنایی پیدا کرده ایم اکنون می خواهم به معرفی ابزارهابپردازم

Tool Box

هم اکنون ما با محیط ویژوال آشنایی کامل پیدا کرده ایم

: کد نویسی در برنامه

Private Sub Form_Load()

در این مکان باید کد مربوطه را نوشت

me.caption="Bia2ZibA"

End Sub

: خاصیت ها
استفاده می شود Back Color برای تغییر رنگ زمینه فرم ازخاصیت

Private Sub Form_Load()
'Background Color
Me.BackColor = vbRed
End Sub

استفاده می شود ForeColor برای تغییر رنگ اشیاء روی فرم از کد : ForeColor

Private Sub Form_Load()
'ForeColor Color
Me.ForeColor = vbRed
End Sub

: BorderStyle

 

مخفی می شوند Minimize , Maximize , Close فرم بدن کادر می شود و دکمه های : None

فعال است و می توان برای آن هابرنامه نویسی Minimize , Maximize , Closeدر این حالت فرم سه دکمه های : Sizable
    کرد
مانند زیر

قرار گیرد از دو   Normal یا در حالت عادی Maximzie , Minimize برای اینکه بخواهیم فرم ما در زمان اجرا در حالت
روش می توان استفاده کرد.

روش اول

را انتخاب می کنیم Normal , Minimized , Maximized یکی از خواص  Properties>WindowState در پنجره

روش دوم

  یکی از کدهای زیر را وارد کنیمForm_Load در رویداد

Private Sub Form_Load()

'اجرا می شود Normal فرم  در زمان اجرا به صورت'
Me.WindowState = vbNormal ' معمولی
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'اجرا می شود Minimize فرم در زمان اجرا به صورت'
Me.WindowState = vbMinimized ' کمینه کردن
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'اجرا می شود Maximize فرم  در زمان اجرا به صورت'
Me.WindowState = vbMaximized 'بیشینه ساختن‌

End Sub

این خاصیت عنوان شیء و فرم  را نشان می دهد و حداکثر کاراکتر های آن 255 می باشد به صورت زیر : Caption

 

Private Sub Form_Load()

Me.Caption = "This Is a Test"

End Sub

  می توان درج کردProperties>Caption آن را هم در پنجره


  به کار می رود که اگر مقدار آنMinimize , Maximize , Close  این خصیصه برای حذف دکمه های : ControlBox
      کنیم آن دکمه ها حذف می شوند در غیر این صورت دکمه ها در جای خود باقی می مانند False را برابر

باشد شیء مورد نظر فعال  True برای فعال یا غیر فعال کردن شیء به کار میرود که اگر مقدار آن : Enabled
باشد شیء مورد نظر غیر فعال می شود به صورت زیر False می شود و اگر مقدار آن را برابر

به دو روش می توان انجام داد


روش اول

True Or False  می توان آن را فعال یا غیرفعال کرد Properties>Enabled در پنجره

روش دوم

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

Private Sub Form_Load()

Me.Enabled = False 'غیر فعال کردن شیء
'''''''''''''''''''''''''''''''''''
Me.Enabled = True ' فعال کردن شیء

End Sub

Private Sub Command1_Click()

Text1.Enabled = False ' غیر فعال کردن جعبه متن
Text1.Enabled = True ' فعال کردن جعبه متن

End Sub

مثال
مثلا می خواهیم برنامه ای طراحی کنیم که حاوی یک جعبه متن و یک دکمه باشد که اگر جعبه متن فعال باشد
آن را غیر فعال ولی اگر جعبه متن غیر فعال باشد آن را فعال می کند

Private Sub Command1_Click()

If Text1.Enabled = False Then ' اگر جعبه متن غیر فعال بود
Text1.Enabled = True ' آن را فعال می کند
Else ' در غیر این صورت
Text1.Enabled = False ' جعبه متن را غیر فعال

End If ' پایان شرط
End Sub

Private Sub Form_Load()

Command1.Caption = "Test"
Text1.FontName = "tahoma"
Text1.FontSize = 12
Text1.Width = 3855
Text1.Height = 1215
me.caption="Test1"

End Sub

مثال دیگر
برنامه ای را ساخته که در صورت درست TextBox , CommandButton , CheckBox

در این مثال می خواهم
و جعبه متن را غیر فعال مند False و در صورت استباه بودن شرط پیغامی مبنا True درآمدن شرط پیغامی مبنا بر
کدهای برنامه

Private Sub Command1_Click()

If Check1.Value Then
Text1.Enabled = True
Text1.Text = "The proviso Is True"
Else
Text1.Enabled = False
Text1.Text = "The proviso Is False"
End If
End Sub

Private Sub Form_Load()

Check1.Font.Name = "tahoma"
Check1.Caption = "Accept"
Command1.Caption = "Answer"
Text1.FontName = "tahoma"
Text1.FontSize = 12
Text1.Text = "Write Your Proviso Here"
Text1.Width = 3855
Text1.Height = 1215
me.caption="Test2"

End Sub

برای تغییر ظاهر قلم ، تغییر اندازه قلم ، و توپر کردن و... از آن استفاده می شود  : Font

Private Sub Form_Load()

Text1.FontName = "نام قلم"
Text1.FontSize = 12 ' اندازه قلم
Text1.FontItalic = True 'مورب کردن متن
Text1.FontBold = True 'توپر کردن متن
Text1.FontStrikethru = True ' انداختن یک خط در وسط متن
Text1.FontUnderline = True ' انداختن خط زیر متن

End Sub 

Load مثلاً مي خواهيم در زمان اجراي برنامه نوع قلم سايز قلم و... تغيير کند : براي اين کار در رويداد
کدهاي زير را وارد مي کنيم

 

Private Sub Form_Load()

Text1.FontName = "Tahoma"
Text1.FontSize = 14
Text1.FontItalic = True
Text1.FontBold = True
Text1.FontUnderline = True

End Sub

 

نکته

مي باشد MS Sans Serif فونت شيء در حالت پيش فرض
اگر نام فونت را اشتباه وارد کرديده باشيد پيامي مبنا بر خطا روبرو مي شويد ويا آينکه برنامه به صورت
 قرار مي دهد Arial خودکار فونت آن را

براي تعيين ارتفاع يک شيء استفاده مي شود به صورت زير  : Height
از دو روش مي توان آن را تعيين کرد

روش اول
 آن را مقدار دهي کرد Properties > Height در پنجره 

روش دوم
در زمان اجراي برنامه آنرا مقدار دهي کرد مانند مثال زير

 

Me.Height=2000
Form2.height=3600
text1.height=250
Command1.height=300

اين خاصيت براي تعيين پهناي يک شيء يا فرم استفاده مي شود از دو روش   : Width
 
اين خاصيت همانند خاصيت بالا به دو روش مي توان تعيين کرد که عبارت است از
پنجره خاصيت ها و تعيين پهناي شيء
در زمان اجراي برنامه آنرا مقدار دهي کرد همانند مثال زير

Me.Width=3000
Form2.Width=3468
text1.Width=3720
Command1.Width=1815