امروز درسی رو که استاد اقا رضی سر کلاس رشته نرم افزار در دانشگاه علمی کاربردی واحد سر دفتران و دفتران تدریس کرده بود در این مطلب قرار دادم تا دوستان هم استفاده کنن. نام درس مباحث ویژه 1 درس برنامه نویسی با ویژوال بیسیک.
برنامه ای بنوسید که با کلیک کردن روی صفه رنگ فرم به زرد و با دابل کلیک کردن روی فرم به قرمز تعغیر پیدا کند.
برای این کار روی یک قسمت از فرم کلیک می کنیم و از قسمت راست بالای فرم گزینه کلیک را انتخواب می کنیم و کد زیر را در قسمت باز شده وارد می کنیم.
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
Me.BackColor = Color.Red
End Sub
قسمت های رنگی شده قسمت هایی هستند که ما کد ان را در برنامه وارد می کنیم.
و بار دیگر روی گزینه دابل کلیک کلیمی کنیم و کد های زیر را وارد می کنیم.
Private Sub Form1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.DoubleClick
Me.BackColor = Color.Yellow
End Sub
سه باتن روی قرار دهید کدی را وارد کنید که نوشته روی هر کلید را به ترتیب ابی قرمز و سبز قرار دهد.
برای این کار ابتدا سه باتم به فرم اضافه می کنیم سپس در فضای خالی از فرم کلیک می کنیم و کد های زیر را در رویداد لود فرم وارد می کنیم .
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = “قرمز “
Button2.Text = “ابی”
Button3.Text = “زرد”
End Sub
End Class
برنامه ای بنوسید که وقتی روی فرم سوال قبل کلیک کردیم رنگ هر باتم با توجه به نوشته روی ان تعغیر پیدا کند .
برای این کار ابتدا روی باتم زرد رنگ کلیک می کنیم و کد زیر را در قسمت رویداد کلیک وارد می کنیم.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BackColor = Color.Red
End Sub
سپس روی کلید مربوط به رنگ ابی کلیک می کنید و کد زیر را در رویداد کلیک مربوط وارد می کنیم .
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BackColor = Color.Blue
End Sub
بعد از ان روی باتن مربوط به رنک زرد کلیک می کنیم و مانند مراحل قبل کد زیر را در ان وارد می کنیم.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.BackColor = Color.Yellow
End Sub
در سوال قبلی کدی را وارد کنید تا وقتی روی یک باتم کلیک کردیم دو باتم بعد غیر فعال شوند.
برای این کار ابتدا روی باتن 1 کلیک و کد زیر را در ان وارد می کنیم.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BackColor = Color.Red
Button2.Enabled = False
Button3.Enabled = False
سپس روی دکمه دوم کلیک کرده و کد زیر را وارد می کنیم
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BackColor = Color.Red
Button1.Enabled = False
Button3.Enabled = False
End Sub
و به همین ترتیب کلیک باتن 3 را ویرایش می کنیم.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.BackColor = Color.Red
Button1.Enabled = False
Button2.Enabled = False
End Sub
در سوال قبل کلیدی را روی فرم قرار دهید تا با کلیک کردن ان کلید های غیر فعال شده مجدد فعال شوند.(بر روی کلید هم درج شود فعال سازی)
برای این کار ابتدا روی قسمت خالی فرم دابل کلیک کنید و کد زیر را در آن وارد کنید.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = “قرمز “
Button2.Text = “ابی”
Button3.Text = “زرد”
Button4.Text = “فعال سازی”
End Sub
سپس روی باتم 4 کلیک کنید و کد زیر را برای فعال سازی کلید های غیر فعال شده وارد کنید.
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button1.Enabled = True
Button2.Enabled = True
Button3.Enabled = True
یک کلید دیگر روی فرم قرار دهید و متن روی ان را خروج بگذارید .
برای این کار روی فضای خالی فرم کلیک کنید و کد زیر را وارد کنید.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Text = “قرمز “
Button2.Text = “ابی”
Button3.Text = “زرد”
Button4.Text = “فعال سازی”
Button5.Text = “خروج”
کدی برای کید 5 بنوسید تا وقتی روی کلید 5 کلیک کردیم از برنامه خارج شویم.
برای این کار کد زیر را بر روی رویداد کلیک 5 وارد می کنیم.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End
End Sub
End Class
کد
End
باعث می شود که از برنامه خارج شویم.
اگر شاگرد استاد رضی هستید نظر یادتون نره .