16-06-16, 01:39 PM
21-09-16, 09:32 PM
مشكور اخي والله يوفقك
15-10-16, 12:35 PM
جميل جدا .. ياريت تكون الفكرة بربط عن طريق سيريال البورد او بالتاريخ ... شكرا للاستفادة ..
29-01-18, 11:30 PM
في كود ( جعل البرنامج تجريبي )
كيف أحدد مدة الأشتراك ؟
كيف أحدد مدة الأشتراك ؟
30-01-18, 08:15 AM
السلام عليكم أحببت المشاركة بهذا الكود البسيط لصنع ملصق QR من برنامجك
بالتوفيق
PHP كود :
Private Function QRCodeGeneratorOnline(ByVal txt As String) As Image
Dim data As Array = New System.Net.WebClient().DownloadData("http://chart.apis.google.com/chart?cht=qr&chs=200x200&chl=" & txt)
Return Image.FromStream(New IO.MemoryStream(TryCast(data, Array)))
End Function
بالتوفيق
01-02-18, 01:34 PM
كيف أحدد المدة في الكود الخاص لجعل برنامجك تجريبي
28-02-18, 02:45 AM
شكرا جدا على الاكواد 
.. ننتظر منك اكواد جديدة 
.. ننتظر منك اكواد جديدة 10-03-18, 04:56 PM
جزاك الله خيرى الدنيا والاخرة واكثر من امثالك
19-06-18, 03:21 PM
عرض صورة فى مسار محدد
الفرق بين وقتين ( 10:45:30 )
نقل بيانات من جريد فيو الى جريد فيو
كود :
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()19-10-18, 12:31 AM
جميل الله
يباركلك
يباركلك