
btnClickMe دارید و میخواهید با کلیک کردن بر روی آن پیامی را نشان دهید:Private Sub btnClickMe_Click(sender As Object, e As EventArgs) Handles btnClickMe.Click
MessageBox.Show("سلام، دنیا!")
End Sub
btnClickMe_Click: نام تابع است که به رویداد کلیک دکمه پاسخ میدهد.MessageBox.Show: برای نمایش یک پیام به کاربر استفاده میشود.Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
Dim userInput As String = txtUserInput.Text
MessageBox.Show("شما وارد کردهاید: " & userInput)
End Sub
txtUserInput.Text: متن وارد شده در جعبه متن را میگیرد.&: برای ترکیب (concatenate) رشتهها استفاده میشود.
Dim age As Integer = 20
If age >= 18 Then
MessageBox.Show("شما بالغ هستید.")
Else
MessageBox.Show("شما هنوز بالغ نشدهاید.")
End If
For i As Integer = 1 To 5
MessageBox.Show("شماره: " & i)
Next
Try
Dim result As Integer = 10 / 0 ' خطا (تقسیم بر صفر)
Catch ex As DivideByZeroException
MessageBox.Show("خطای تقسیم بر صفر!")
End Try
Function AddNumbers(a As Integer, b As Integer) As Integer
Return a + b
End Function
Dim result As Integer = AddNumbers(10, 5)
MessageBox.Show("نتیجه: " & result)
Dim connection As New SqlConnection("ConnectionString")
Dim command As New SqlCommand("SELECT * FROM Users", connection)
Dim reader As SqlDataReader
connection.Open()
reader = command.ExecuteReader()
While reader.Read()
MessageBox.Show(reader("UserName").ToString())
End While
connection.Close()