[nabil.1710]

عرض صورة فى مسار محدد

كود :

 Try
               PictureBox1.Load(رابط_لوجو_الفورمComboBox.Text)
           Catch ex As Exception
               Me.PictureBox1.Image = My.Resources.لوجو
           End Try

---

الفرق بين وقتين ( 10:45:30 )

كود :

  Dim Difference As TimeSpan = TimeSpan.Parse(TextBox1.Text) - TimeSpan.Parse(TextBox2.Text)

       If TimeSpan.Parse(TextBox1.Text) < TimeSpan.Parse(TextBox2.Text) Then
           Difference = TimeSpan.Parse("24") + Difference
       End If

       TextBox3.Text = Strings.Right("0" & Difference.Hours, 2) & ":" & Strings.Right("0" & Difference.Minutes, 2) & ":" & Strings.Right("0" & Difference.Seconds, 2)

---

نقل بيانات من جريد فيو الى جريد فيو

كود :

Imports System.Data
Imports System.Data.OleDb
--------------------------------------------
 Dim Ole As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Button.mdb")
---------------------------------------------

  Try
           Me.ButtonDataSet.الكمية_المقدرة.Clear()
           For indexrow As Int16 = 0 To Me.DataGridView2.RowCount - 2
               Dim dr As DataRow
               dr = Me.ButtonDataSet.الكمية_المقدرة.NewRow

               dr("كود المنيو") = Me.DataGridView2.Rows(indexrow).Cells(1).Value
               dr("كود") = Me.DataGridView2.Rows(indexrow).Cells(2).Value
               dr("الخامة") = Me.DataGridView2.Rows(indexrow).Cells(3).Value
               dr("سعر شراء") = Me.DataGridView2.Rows(indexrow).Cells(4).Value
               dr("الكمية_المستخدمة") = Me.DataGridView2.Rows(indexrow).Cells(5).Value
               dr("اسم_المقر") = Me.DataGridView2.Rows(indexrow).Cells(6).Value
               dr("عنوان المقر") = Me.DataGridView2.Rows(indexrow).Cells(7).Value
               dr("تليفون_المقر") = Me.DataGridView2.Rows(indexrow).Cells(8).Value

               dr("حقل_الحذف") = TextBox1.Text

               Me.ButtonDataSet.الكمية_المقدرة.Rows.Add(dr)
           Next
       Catch ex As Exception
           MsgBox(ex.Message, MsgBoxStyle.Critical)
       End Try

       Ole.Open()
       Dim cmd As New OleDbCommand("الكمية_المقدرة_ازرار_حذف", Ole)
       cmd.CommandType = CommandType.StoredProcedure
       cmd.Parameters.Add(New OleDbParameter("حقل_الحذف", TextBox1.Text))
       cmd.ExecuteNonQuery()
       Ole.Close()


       MsgBox("Update", MsgBoxStyle.DefaultButton1, "ogy soft")

       Me.Validate()
       Me.الكمية_المقدرةBindingSource.EndEdit()
       Me.TableAdapterManager.UpdateAll(Me.ButtonDataSet)

       Close()