+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] محتاج مساعدة في كود في datagirdviwe (/showthread.php?tid=23439)
محتاج مساعدة في كود في datagirdviwe - saudisgames - 20-01-18
السلام عليكم ورحمة الله وبركاته
محتاج كود في مشروعي وانا اتعامل مع datagirdviwe مباشرة
واكون له من الشاكرين
ابي عامود المسافة ينحسب تلقائيا عن طريق
كود :
xx = العمود x - العمود x2
yy = العمود y - العمود y2
المسافة = ((xx ^ 2) + (yy ^ 2)) ^ (1 / 2)وابي رسالة تطلع له في العامود x , y لو كتب حروف او ارقام ليست بين 400و -400
)""تاكد من الاحداثيات المدخلة ""(
RE: محتاج مساعدة في كود في datagirdviwe - HASAN6.0 - 20-01-18
PHP كود :
Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
If e.ColumnIndex = 1 Or e.ColumnIndex = 2 Or e.ColumnIndex = 3 Or e.ColumnIndex = 4 Then
If Not IsNothing(DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value) Then
Dim b = DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value
If IsNumeric(b) Then
If b > 400 Or b < -400 Then
MsgBox("يرجى ادخال رقم بين 400 و -400")
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = 0
End If
Else
MsgBox("يرجى ادخال ارقام فقط")
DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Value = 0
End If
End If
Calculate(e.RowIndex)
End If
End Sub
Sub Calculate(i As Integer)
Dim x As Double = Val(DataGridView1.Rows(i).Cells(1).Value)
Dim y As Double = Val(DataGridView1.Rows(i).Cells(2).Value)
Dim x2 As Double = Val(DataGridView1.Rows(i).Cells(3).Value)
Dim y2 As Double = Val(DataGridView1.Rows(i).Cells(4).Value)
Dim xx = x - x2
Dim yy = y - y2
DataGridView1.Rows(i).Cells(5).Value = ((xx ^ 2) + (yy ^ 2)) ^ (1 / 2)
End Sub
RE: محتاج مساعدة في كود في datagirdviwe - saudisgames - 20-01-18
تسلم يالغالي
كود :
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
For Each row As DataGridViewRow In DataGridView1.Rows
Dim x As Double
Dim y As Double
Dim n As Double
x = (row.Cells("Column4").Value) - (row.Cells("Column2").Value)
y = (row.Cells("Column5").Value) - (row.Cells("Column3").Value)
n = ((x ^ 2) + (y ^ 2)) ^ (1 / 2)
row.Cells.Item("sss").Value = Math.Round(CType(n, Double), 1)
Next
End Subشكرا لك انا استخدمت هذا الكود وهو بسيط جدا ونفع معاي
لكن باقي كيف اقيد textbox انه مايدخل الا بين 400و-400
او مايتركه فاضي