+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] مكتبة الاكواد :) (/showthread.php?tid=10530)
RE: مكتبة الاكواد :) - محمد سالم المحترف - 16-06-16
مشكوورورورورورورر اخى
RE: مكتبة الاكواد :) - رامي ابو ناصر - 21-09-16
مشكور اخي والله يوفقك
RE: مكتبة الاكواد :) - startqw17 - 15-10-16
جميل جدا .. ياريت تكون الفكرة بربط عن طريق سيريال البورد او بالتاريخ ... شكرا للاستفادة ..
RE: مكتبة الاكواد :) - YousefOkasha - 29-01-18
في كود ( جعل البرنامج تجريبي )
كيف أحدد مدة الأشتراك ؟
RE: مكتبة الاكواد :) - أبو عمر - 30-01-18
السلام عليكم أحببت المشاركة بهذا الكود البسيط لصنع ملصق 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
بالتوفيق
RE: مكتبة الاكواد :) - YousefOkasha - 01-02-18
كيف أحدد المدة في الكود الخاص لجعل برنامجك تجريبي
RE: مكتبة الاكواد :) - lovable22 - 28-02-18
شكرا جدا على الاكواد
.. ننتظر منك اكواد جديدة 
RE: مكتبة الاكواد :) - refaey55 - 10-03-18
جزاك الله خيرى الدنيا والاخرة واكثر من امثالك
RE: مكتبة الاكواد :) - nabil.1710 - 19-06-18
عرض صورة فى مسار محدد
كود :
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()RE: مكتبة الاكواد :) - اسامه الهرماوي - 19-10-18
جميل الله
يباركلك