+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكله فى الكود (/showthread.php?tid=20942)
الصفحات:
1
2
مشكله فى الكود - نبيل كونكت - 06-07-17
كود :
Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Dim q As Integer
'For q = 0 To dgvprodac.Rows.Count - 1
' If Convert.ToInt32(dgvprodac.Rows(q).Cells("qty").Value < dgvprodac.Rows(q).Cells("talab").Value) Then
' dgvprodac.Rows(q).Cells("qty").Style.BackColor = Color.Red
' End If
'Next
For i = 0 To dgvprodac.Columns.Count - 1
dgvprodac.Columns(i).SortMode = DataGridViewColumnSortMode.NotSortable
Next
Dim da As New OleDb.OleDbDataAdapter("select label from tab_pro", con)
Dim dt As New DataTable
pd = Me.BindingContext(dt)
da.Fill(dt)
Dim itms = dt.Rows.Cast(Of DataRow).Select(Function(x) x("label").ToString).ToArray
Dim gh As New AutoCompleteStringCollection()
gh.AddRange(itms)
txtlabel.AutoCompleteCustomSource = gh
txtlabel.AutoCompleteMode = AutoCompleteMode.SuggestAppend
txtlabel.AutoCompleteSource = AutoCompleteSource.CustomSource
Try
con.Open()
sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
cmd = New OleDbCommand(sqlstr, con)
txtnamper.Text = cmd.ExecuteScalar()
' الكود ده مش بيتفعل غير لما اضغط على زر الفورم والفورم بيفتح اصلا اول مفتح البرنامج
TXTGNAME.Text = fullname
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End SubTXTGNAME.Text = fullname
RE: مشكله فى الكود - silverlight - 06-07-17
أن الحقيقة مش فاهم الكود الخاص بك
لكن هل تقصد أن الكود لا يتم تنفيذه الا عند الضغط بالماوس علي الفورم
RE: مشكله فى الكود - نبيل كونكت - 06-07-17
بالظبط
هو اصلا بيفتح مع تشغيل البرنامج بس الكود ده TXTGNAME.Text = fullname
مبيشتغلش غير لما اضغط على الزار الخاص بالفورم
RE: مشكله فى الكود - silverlight - 06-07-17
واضح انك تقوم بتغيير شئ في الوان او تكست بأسلوب ما
الفورم بيرسم نفسه أول ما بيفتح بناء علي بيانات مبدئية يقرأها من Properties الخاصة به
وغالبا الفورم بينفذ الأوامر الموجودة في الحدث Load قبل ما يرسم نفسه
وبالتالي لن يقوم بتنفيذ تغيرات لها علاقة بعملية الرسم إالا إن تم التعامل مع الفورم بواسطة الماوس
وهناك حالات اخري قد يقوم الفورم فيها برسم نفسه مثل عندما يتعارض مع نافذة اخري مفتوحة
وبالتالي عندما تقوم بعمل Activate للفورم سوف تحصل التغييرات التي تريدها
ان كان هذا ما يحدث معك عليك أن تجبر الفورم لي رسم نفسه باستخدام الأمر Refresh يحيث تكتبه بعد الانتهاء من تنفيذ الأوامر الموجودة في الحدث Load
PHP كود :
Me.Refresh
أضف السطر هذا كأخر سطر في الحدث Load
RE: مشكله فى الكود - نبيل كونكت - 06-07-17
اضافته ولكن مفيش لسه المشكله موجوده
RE: مشكله فى الكود - silverlight - 06-07-17
حاول توضح الهدف من الكود الخاص بك
أحيانا Performlayout قد تحل المشكلة
RE: مشكله فى الكود - نبيل كونكت - 06-07-17
الكود كله شغال عدا ان التيسكت دى TXTGNAME.Text
= fullname وده متغير على موديول على مستوى المشروع
والفورم ده بيفتح اول ما المشروع بيفتح بس التيكست ده بيكون فاضى
لو ضغطت على زار فتح الفورم بياخد قيمته الى هى الFULLNAME
مقدر مجهود حضرتك معايا بجد وشاكر جداا لحضرتك
RE: مشكله فى الكود - silverlight - 06-07-17
فهمت المشكلة تقريبا أنت تقوم بتخصيص متغير باستخدام Ref
وعملية تخصيص القيمة لا يتم تمريرها الي property مثلا أو الي دالة معينة في موديول بالشكل المناسب و تخصل غالبا علي Nothing
اكتب الدالة الموجودة في الموديول
وان كنت لا تريد كتابتها هنا ارسلها لي علي الخاص
RE: مشكله فى الكود - نبيل كونكت - 06-07-17
هو انا بجد مش فاهم تقصد ايه علشان مبتدئ
بس انا عامل متغير على الموديول عادى
Public fullname As String
وقيمته بياخدها من فورم تسجيل الدخول وبيشتغل عادى على الفورم ده وغيره اول ما بضغط على زرار الفروم بس الفورم ده بيفتح اول ما البرنامج بيفتح بس قيمته بتكون فاشيه وهى دى المشكله
RE: مشكله فى الكود - silverlight - 06-07-17
اكتب الكود التالي في الموديول
PHP كود :
Public Sub GetString(s As String, ByRef result As String)
If Not String.IsNullOrEmpty(s) Then
result = s
End If
End Sub
و عليك فقط بتمرير القيم لها كالتالي
PHP كود :
Dim fullNameresult As String = Nothing
PHP كود :
GetString(fullname, fullNameresult)
القيمة fullNameresult ستاخذ القيمة الأصلية التي تريدها
في المرفقات ستجد مثالا مختلف قليلا عن الكود أعلاه
سيوضح لك كيف تمرر البيانات الي الموديول