بطبيعة هذه الاكواد فاللعبة تحتاج دقة في اختيار مكان الاداة فهل يمكن التعديل بحيث تكون اللعبة اسهل؟
هل يمكن ان تضع المشروع بVB2010 من فضلك
لانه لايعمل عندى
شكرا لك اخى سعود ولقد عملت معى وارى فكرتك رائعة ولقد قمت الان ببعض الاضافات وان شاء الله اقدر اساعد
يارب تعجبك
اشكر مساعدتك اخي الكريم
لعلي ادقق عليه لاحقا ان شاءالله لاني لاحظت انه يختلف عن مثالي ايضا وجدت استخدام savefiledialog
شكرا مرة اخرى
(21-01-15, 07:13 AM)سعود كتب : [ -> ]اشكر مساعدتك اخي الكريم
لعلي ادقق عليه لاحقا ان شاءالله لاني لاحظت انه يختلف عن مثالي ايضا وجدت استخدام savefiledialog
شكرا مرة اخرى
savefiledialog ????????
أين ؟ لم اضعها ابدا التغيير كان فى الاكواد أخى !
عموما شكرا جدا
تاكد من المرفق ربما وضعت مرفق خطا
كود :
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
هذا هو الكلاس للمثال اللي رفعت
الصراحة اذهلني التعديل.
ماشاء الله تبارك الله
