[ Visual Basic 6 ] طلب [ كود وضع اكثر من سطر ]

[Mr.WesSsam]

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته .,~

بدخل في الموؤوضوؤع ,.

[طلب] كوؤد وضع أكثر من سطر في تيكست
عأإرف دي النقطة [ Multie = true ]

بس اللي ابيه بالضبط

عملت فورم .
وضعت فيه زر + إثنين تكست .,
ابي لما اضغ ع الزر يضيف الكلام اللي في تيكست 1 الى تيكست 2
ولما اضغط مرة ثانية يضع الكلام اللي في تيسكت 1 في تيكست 2 لاكن في سطر جديد
بدون مايمسح الكلمة القديمة اللي في السطر الأول :27:

تعقدتوا صح .,~ أدري مإأعرف اوضح أو أشرح مشكلتي بسكل أكبر من كذا .,~
ههههه

اللي يعلمني له أحلى تقييم​

 

[DrZer0]

رد: طلب [ كود وضع اكثر من سطر ]

ان شاء الله الاعضاء يفيدونك

ما عندي خبرة على هذه الاشياء
​

 

[Dr.hac]

رد: طلب [ كود وضع اكثر من سطر ]

أوكي أخوي شوف مو صعبه وبدون كود

نزل TextBox
ومن الخصائص اختار قيمة ال MultiLine
وبدال ما هي False خليها True

اذا افدتك قيمني ^_^

 

[Mr.WesSsam]

رد: طلب [ كود وضع اكثر من سطر ]

• • شكلكـ مافهمتني [ تم شرحها بوضوؤح أكثر ع الإيميل ]​

​

 

[Dr.hac]

رد: طلب [ كود وضع اكثر من سطر ]

ههههههه اوكي هاد الرد قبل ما تشرحه على الايميل

 

[Dr.hac]

رد: طلب [ كود وضع اكثر من سطر ]

تمام الحل يا مان:

نزل 2 TextBox
+ 1 command

التكست الأول سيبه زي ما هو
التكست التاني خليه من الخصائص MultiLine
خليها True

تمام الحين فوت على الكومند واكتب الكود التالي :

Private Sub Command1_Click()
Text2 = Text2.Text & vbNewLine & Text1.Text
End Sub
​

هلا اذا افدتك قيمني

 

[DrZer0]

رد: طلب [ كود وضع اكثر من سطر ]

إقتباس من : dr.hac

تمام الحل يا مان:

نزل 2 textbox
+ 1 command

التكست الأول سيبه زي ما هو
التكست التاني خليه من الخصائص multiline
خليها true

تمام الحين فوت على الكومند واكتب الكود التالي :

private sub command1_click()
text2 = text2.text & vbnewline & text1.text
end sub
​

هلا اذا افدتك قيمني

خبير انت ما شاء الله عليك

الى الامام
​

 

[Dr.hac]

رد: طلب [ كود وضع اكثر من سطر ]

إقتباس من : DrZer0

خبير انت ما شاء الله عليك

الى الامام
​

مشكور عزيزي ^_^

 

[Mr.WesSsam]

رد: طلب [ كود وضع اكثر من سطر ]

أبوؤسمعأإآت
المرة الجأإية معؤوض ​

 

[Mr.WesSsam]

رد: طلب [ كود وضع اكثر من سطر ]

طيب اخوؤي Dr.hac
انا ابي كوؤد : -
تكلمة للكود الأولي
يعني اللي عطيتني اياه يقوؤم بإضافة سطر جديد في تيكت وكذا طيب
ابي كود اخر يقؤوم بوضعسطر معين في تيكست آخر

يعني انا استعملت الاكود الاولي تبعكـ
واضفة 5 سطور في كل سطر كلمة والسطر الثالث فيه كلمة dr.hac
واضفت تيكست اخر
وزر اخر
ابي كود اضعه في الزر بحيث يقرأ السطر الثالث في التيكست
ويضع الكلمة الموجودة في السطر الثالث في التيكست الجديد والكلمة هي dr.hac



أتوؤقع مافهمتني بس ادا تبي توضيح اكثر قوؤل لي ​

 

[Capter]

رد: طلب [ كود وضع اكثر من سطر ]

بلنسبة للطلب الاخير


وضح اكثر ... تراك توهتني


عشان اساعدك يلا بسرعة

 

[Mr.WesSsam]

رد: طلب [ كود وضع اكثر من سطر ]

هههه أدري مإأعرف أشرح اضفتكـ وبفهمكـ
........أدري
.......... أدري​

 

[Dr.hac]

رد: طلب [ كود وضع اكثر من سطر ]

مع كامل أسفي لم افهم ولا اشي

 

[Mr.WesSsam]

رد: طلب [ كود وضع اكثر من سطر ]

يالله .,~ كلمني مسن ​

 

[Dr.hac]

رد: طلب [ كود وضع اكثر من سطر ]

طبعا سوري على التأخير بس كنت طالع مشوار عند صاحبي لما رديت عليك ههههه
الحين روحت واتفضيتلك هاي برمجتلك البرنامج كامل مع الشرح بس يا رب ايكون هاذ الي تبيه واذا مو هو
قيمني على تعبي
--------------------------------------------------------------------------------------------------------------------
المهم بالنسبه لسؤالك شو تعمل اعمل التالي:

اول شي نزل اتنين تيكست بوكس وزر كومند واحد
طيب شو طيب كمل ...

اجعل من الخصائص لكل من text1 & text2
ما يلي:

multiline = true
ScrollBars = 3- Both

حلو وبعدين خلي اسم الكومند مثلا بحث

افتح شاشه الكود وامحي كل شي وانسخ الكود التالي والصقه زي ما هو :

Private Sub Command1_Click()
Dim Search, Where
Search = InputBox("ادخل النص المراد البحث عنه :")
Where = InStr(Text1.Text, Search)
If Where Then
Text1.SetFocus
Text1.SelStart = Where - 1
Text1.SelLength = Len(Search)
Clipboard.Clear
Clipboard.SetText (Text1.SelText)
Text2.Text = Clipboard.GetText

Else
MsgBox "النص غير موجود."
End If
End Sub
--------------------------------------------
Private Sub Form_Load()
Text1.Text = "Hi World " & vbCrLf & _
"My Name Dr.hac" & vbCrLf & _
"If you want to search me" & vbCrLf & _
"Do not tire yourself , you will find me live in Dev-point.com/vb"
End Sub

​

الكلام الي بالاحمر غيره للي تبيه هاذ الكود على الي افهمته من شرحك بالرد
ارجوا ان اكون افدتك

البرنامج رفعته على زي ما برمجته نزله وعدل عليه على راحتك :
http://www.mediafire.com/?euxf8qd118cqhfb

اكيد لا تنسى التقيم ولا اتقول أبوؤسمعأإآت مو مستعجل اليوم اتقيمني ، عادي لبكرا ههههههه
​

 

[Mr.WesSsam]

رد: طلب [ كود وضع اكثر من سطر ]

جاري التجربة + جاري محاولت دعس ابو سمعات دعس
بس مإتوقع إلي أبيه <~ هيه تفأإئل بالخير تجده
لأن اللي ابيه مو بحث ,~ ابي تحديد سطر في تكست .~ لاكن مو بالكلمة لأ بالسطر
يعني كود مثل هذا طبعا بكتبه عربي وانت ترجمه بالفيجوال
في كوماند :-
كود
انسخ السطر الثالث في تكست 1
وضعه في تكست 2
فهمتني ​

 

[Mr.WesSsam]

رد: طلب [ كود وضع اكثر من سطر ]

جربته طلع نفس الفكرة لاكن يقوؤم بالبحث عن كلمة ووضعها في تكست
انا ابيه ينسخ اي كلمة لاكن بالسطر يعني بدل ما احدد كلمة Dr.Hac احدد سطر 3 فهمت ترا بديت أتعقد ​

 

[Mr.WesSsam]

رد: طلب [ كود وضع اكثر من سطر ]

يجب أن تضع للبعض سمعات قبل إعطائها إلى Dr.hac مرة أخرى.​

• لسة في [ هوشة ] معه .,.
• شكلها [ بتوصل ] للدماء ,’~

​

 

[Dr.hac]

رد: طلب [ كود وضع اكثر من سطر ]

اوكي وسام شوف هالكود اكتب رقم السطر بنقله للتسكت الثاني بس المشكله بدون ما ايحدد السطر بالتكست الاول يعني بنسخه للتكست 2 بدون ما يعمل تحديد عليه بالتكست 1

مشي حالك عليه لعند ما الاقي حل واكتبه بالرد القادم

الكود كالتالي:

Private Sub Form_Load()
Text1.Text = "Hi World " & vbCrLf & _
"My Name Dr.hac" & vbCrLf & _
"If you want to search me" & vbCrLf & _
"Do not tire yourself , you will find me live in Dev-point.com/vb"
End Sub
----------------------------------------------------------------------------------------
Private Sub Command1_Click()

Dim Search
X1 = "Hi World"
X2 = "My Name Dr.hac"
x3 = "If you want to search me"
x4 = "Do not tire yourself , you will find me live in Dev-point.com/vb"

Search = InputBox("Enter the Number of line to copy to text2:")
If Search = 1 Then
Search = X1
Text2.Text = Search
End If

If Search = 2 Then
Search = X2
Text2.Text = Search
End If

If Search = 3 Then
Search = x3
Text2.Text = Search
End If

If Search = 4 Then
Search = x4
Text2.Text = Search
End If

End Sub
​

بالتوفيق

 

[Mr.WesSsam]

رد: طلب [ كود وضع اكثر من سطر ]

مستنيكـ + مشكوؤر وماتقصر جاري التقييم ​