الكتاب الشامل في الفيجولا بيزيك 2005

الكتاب الشامل في الفيجولا بيزيك 2005 ا
كبر مكتبه للاكواد الفبجول بيزيك
قريبــــــــــــــــــــــــــــــــــا
في الاوائل في الياضيلت

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'كود السجل الأول

Me.Table1BindingSource.MoveFirst()

End Sub





Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'كود السجل السابق

Me.Table1BindingSource.MovePrevious()



End Sub



Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

'كود السجل التالي

Me.Table1BindingSource.MoveNext()





End Sub



Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

'كود السجل الاخير

Me.Table1BindingSource.MoveLast()





End Sub



Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Me.Table1BindingSource.AddNew()

'كود الاضافة

End Sub



Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Me.Table1BindingSource.AddNew()

End Sub



Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

'كود الحفظ

Me.Validate()

Me.Table1BindingSource.EndEdit()



Me.Table1TableAdapter.Update(Me.Db2DataSet11.Table1)



End Sub



Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

If Trim(Me.TextBox20.Text) = String.Empty Then

Me.Table1BindingSource.Filter = String.Empty

Else

Me.Table1BindingSource.Filter = "City = '" & Me.TextBox20.Text & "'"

End If



End Sub



Private Sub Table1BindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Table1BindingSource.CurrentChanged



End Sub

End Class

وهذا الكود لفتح اي برنامج علي الجهاز من خلال (فتح)
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try 'كود لفتح اي ملف من الجهاز اي كان نوع الملف
Dim OFD As New OpenFileDialog
If OFD.ShowDialog() Then
System.Diagnostics.Process.Start(OFD.FileName)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "SASASASA")
End Try
End Sub




End Class