منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مطلوب فكرة لتطوير هذه اللعبة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=11183)

مطلوب فكرة لتطوير هذه اللعبة - سعود - 19-01-15


بطبيعة هذه الاكواد فاللعبة تحتاج دقة في اختيار مكان الاداة فهل يمكن التعديل بحيث تكون اللعبة اسهل؟


RE: مطلوب فكرة لتطوير هذه اللعبة - mohamdser - 19-01-15

هل يمكن ان تضع المشروع بVB2010 من فضلك
لانه لايعمل عندى

RE: مطلوب فكرة لتطوير هذه اللعبة - سعود - 19-01-15

(19-01-15, 05:53 PM)mohamdser كتب : هل يمكن ان تضع المشروع بVB2010 من فضلك
لانه لايعمل عندى

الحل هنا اخي الكريم
http://www.youtube.com/watch?v=HI36kZbbNUc

RE: مطلوب فكرة لتطوير هذه اللعبة - mohamdser - 21-01-15

شكرا لك اخى سعود ولقد عملت معى وارى فكرتك رائعة ولقد قمت الان ببعض الاضافات وان شاء الله اقدر اساعد
يارب تعجبك Heart

RE: مطلوب فكرة لتطوير هذه اللعبة - سعود - 21-01-15

اشكر مساعدتك اخي الكريم
لعلي ادقق عليه لاحقا ان شاءالله لاني لاحظت انه يختلف عن مثالي ايضا وجدت استخدام savefiledialog
شكرا مرة اخرى

RE: مطلوب فكرة لتطوير هذه اللعبة - mohamdser - 22-01-15

(21-01-15, 07:13 AM)سعود كتب : اشكر مساعدتك اخي الكريم
لعلي ادقق عليه لاحقا ان شاءالله لاني لاحظت انه يختلف عن مثالي  ايضا وجدت استخدام savefiledialog
شكرا مرة اخرى

savefiledialog ????????
أين ؟ لم اضعها ابدا التغيير كان فى الاكواد أخى !

عموما شكرا جدا

RE: مطلوب فكرة لتطوير هذه اللعبة - سعود - 22-01-15

تاكد من المرفق ربما وضعت مرفق خطا
كود :
Public Class Form1

    'Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '

    'End Sub

    'Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

    'End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a
        Dim i As Integer
        Dim b()
        a = InputBox("ادخال السطر المطلوب", , 1)
        If Val(a) >= 1 And Val(a) <= TextBox1.Lines.Length And TextBox1.Text <> "" Then
            b = Split(TextBox1.Text, vbNewLine)
            TextBox1.Clear()

            For i = 0 To UBound(b)
                If i + 1 = a Then
                Else
                    TextBox1.Text &= b(i) & vbNewLine
                End If

            Next
            SaveFileDialog1.ShowDialog()
            SaveFileDialog1.FileName.Insert(1, TextBox1.Text)
        Else
            MsgBox("try again", MsgBoxStyle.Critical)
        End If
    End Sub
End Class
هذا هو الكلاس للمثال اللي رفعت

RE: مطلوب فكرة لتطوير هذه اللعبة - mohamdser - 22-01-15

فعلا Blush 
لا اعرف كيف حدث هذا Huh 

RE: مطلوب فكرة لتطوير هذه اللعبة - سعود - 22-01-15

الصراحة اذهلني التعديل.
ماشاء الله تبارك الله