GHOST2010

كما قال الأخ أحمد يوسف ,, إستخدم For Each For Each ctrl As Control In Me.Controls If TypeOf ctrl Is CheckBox Then MsgBox(CType(ctrl, CheckBox).Checked.ToString) End If Next

لا أعلم ما فائدة ذلك ,, لكن تم التعديل على المرفقات MDIProject.rar

السلام عليكــم ورحمـة الله وبركاتــه ،، هذا الكود يقوم بقراءة ملف سطر سطر ويكتبه فى ملف آخر Private Sub Command1_Click() Dim fn As Integer fn = FreeFile Dim fn2 As Integer Dim s As String Open "C:\test.txt" For Input As #fn fn2 = FreeFile Open "C:\test_out.txt…

السلام عليكــم ورحمـة الله وبركاتــه ،، أنا أستخدم برنامج InstallAware وهو برنامج رائع جدا ويوفر لى كل ما أحتاج إليه حاول أن تجربه :blush:

لو جربت الكود السابق لوجدت الرد على سؤالك هذه هى فائدة التايمر الذى قمنا بإضافته على الفورم

جارى النظر فى المرجع :blink: بالمناسبة يا إكس ,, عايز رابط أحمل منه آخر إصدار IDA

وعليكــم السـلام ورحمة الله وبركاتـه.. لإضافة التاريخ ضع أى أداة لعرض النصوص وليكن Label وإسمه Label1 ثم اكتب الكود التالى Private Sub Form_Load() Me.Label1.Caption = Date End Sub لإضافة الوقت قم بإضافة Label جديد باسم Label2 وأضف أداة Timer غير خاصية Interval…

أخى الكريم ,, كيف يوضع تاريخ فى متغير من نوع Int ?! هل تقصد أنك تريد مثلا إزالة الفواصل من التاريخ وضم قيم التاريخ مع بعضها مثلا 17/09/1986 -> 1791986 إذا كان كذلك فهو سهل بإذن الله أما غير ذلك فأرجو توضيح الفكرة أكثر

الكود يعمل معى بطريقة جيدة كما طلبت ,, إذا كنت تواجه مشكلة فقم بإرفاق المشروع ليتم مراجعة الكود

السلام عليكــم ورحمـة الله وبركاتــه ،، أولا يجب عليك فتح الملف للقراءة باستخدام هذا الكود Dim fn As Integer fn = FreeFile Open "C:\test.txt" For Input As #fn لقراءة 6 محارف من الملف Dim s As String s = Input(6, fn) غير 6 إلى عدد المحارف الذى تريد قراءته لقراء…

لماذا؟ :huh:

السلام عليكــم ورحمـة الله وبركاتــه ،، أنظر إلى هذا الرابط http://www.dreamincode.net/forums/showtopic46483.htm

غير الكود إلى هذا الشكل Public Class Form1 Dim cx, cy As Integer Dim moving As Boolean Private Sub OnPicMouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown, PictureBox2.MouseDown If e.Button = …

وعليكــم السـلام ورحمة الله وبركاتـه.. جرب هذا الكود Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then Return End If Dim item As ListViewItem Dim selIndex A…

السلام عليكــم ورحمـة الله وبركاتــه ،، يوجد حدث خاص بالتري فيو اسمه AfterSelect يتم إطلاقه عند اختيار Node فى الترى وستجد النود الذى تم اختياره فى الخاصية e.Node أو TreeView1.SelectedNode فى هذا الحدث يمكنك كتابة الكود الذى تريد

السلام عليكــم ورحمـة الله وبركاتــه ،، لاحظت بعض الأوامر الغريبة بالنسبة لى لأنى تحت الصفر فى الأسمبلى :wacko: :wacko: فقلت أسأل أهل الخبرة فى المنتدى وياريت الرد بسرعة :angry: :angry: :angry: الأوامر دى: LOOPD - MOVZX - MOVSX - CMPS - REPE وكمان كنت عايز أعر…

والله يا إكس كل ما استخدمها البرنامج يضرب ويطلع الريبورت بتاع مايكروسوفت (Send - Don't Send) ممكن مثال صغير كده عليها بمناسبة الامتحان :wink: ؟؟

هل المطلوب شئ كهذا ؟ Public Class Form1 Dim cx, cy As Integer Dim moving As Boolean Private Sub OnPicMouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown, PictureBox2.MouseDown If e.Button = Win…

لم أفهم المطلوب بالتحديد عموما إذا كان المطلوب هو كيفية عمل Drag-Drop فقد يفيدك هذا الموضوع /index.php?showtopic=196311 أما بالنسبة للذى فهمته من السؤال فهذا هو الكود ولا أعلم إذا كان هو المطلوب أم لا Public Class Form1 Dim cx, cy As Integer Dim moving As Bool…

المشكلة إن مفيش ملف فعلا اسمه data.mdb قاعدة البيانات data.accdb افتح قاعدة البيانات باستخدام Access 2007 وبعدين احفظها بتنسيق Access 2002-2003 والمشكلة تنتهى :blush: