PDA

View Full Version : کمک در افزایش عدد در لیبل توسط یک دکمه



ir-security
سه شنبه 20 مهر 1395, 14:29 عصر
سلام کدی میخوام که با زدن روی دکمه عدد صفری که روی labelمون هست بشه 1 و دوباره دکمه رو بزنیم لیبل بشه دو و همین طور سیر صعودی رو با هر بار زدن دکمه پیش ببره ممنونم ازتون اگه راهنمایی کنید

gilsoft
سه شنبه 20 مهر 1395, 18:24 عصر
سلام کدی میخوام که با زدن روی دکمه عدد صفری که روی labelمون هست بشه 1 و دوباره دکمه رو بزنیم لیبل بشه دو و همین طور سیر صعودی رو با هر بار زدن دکمه پیش ببره ممنونم ازتون اگه راهنمایی کنید

سلام دوست عزیز

روش اول:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Static n As Integer
n += 1
Label1.Text = n.ToString
End Sub

روش دوم:
Dim I As Integer = 0

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
I += 1
Label1.Text = I
End Sub

موفق باشید .....