مطلوب كود يفرق بين الاحرف العربية مثل ( ه ل ا ) بدلاً من (هلا)

مرحباً أخي الكريم:

أنشئ فورم ضع فيه مربع نص text1 و زر تحكم command1 ثم اكتب الكود التالي في الفورم بعد إزالة أي كود مكتوب فيه(الكود جاهز):

Dim word As String

Dim textword As String

Dim pressed As Boolean

Private Sub Command1_Click()

MsgBox word

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

textword = Text1.Text

Text1.Text = ""

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

a = Text1.Text

If Val(Text1.Text) > 0 Or Text1.Text = "0" Then

Text1.Text = textword + a

word = word + a

Exit Sub

End If

Text1.Text = textword & a

word = word & " " & a

End Sub

شكراً لك اخي الكريم ولكن للأسف تخرج لي خطأ ، ولا تسير الكلمات بالشكل المطلوب ولكن تخرج لي في مسج بوكس

نرجو توضيح المطلوب اكثر ومالفائدة من هذا الامر حتى نفهم اكثر

وهل تريد التفريق اثناء الكتابة ام عندك نص تريد تفريقه وغير ذلك

شكراً على تعاونكم اخواني

انا لدي برنامج مصمم على الاكسس وقمت بأدخال الأكواد على محرر الفيجوال بيسك والمطلوب هو

لدي فورم للبحث عن ارقام سيارات وتتكون لوحات السيارات من حروف وأرقام مثل ( هـ ل ا 123) أو ( ش ر ق 123)

المطلوب اريد عندما ادخل رقم اللوحة في التكست بوكس تتفرق الارقام بدون أن اضغط على زر المسافة

وللجميع شكري وتقديري

هوا المشكلة في عملية الحفظ ، لكن يجب أولاً عليك فصل الحروف عن بعضها أولاً ومن ثم يتم إجراء حفظ للبيان المدخل ، أنظر الكود التالي :

Private Sub cmdSave_Click()
	Dim logLoop As Long
	Dim strChar As String
	Dim strCode As String

	For logLoop = 1 To Len(txtCode.Text)
		strChar = Mid(txtCode, logLoop, 1)
		If (InStr("0123456789", strChar) = 0) Then
			strCode = strCode & strChar & " "
		Else
			strCode = strCode & strChar
		End If
	Next
	strCode = Trim(strCode)

	txtCode.Text = strCode
End Sub

وشكراً

أخواني الكرام

اشكرك كل من قدم لي الدعم والمساعدة

ارفق لكم مثال بالأكسس ، والمطلوب كود فيجوال بيسك يوضع في التكست بوكس1

db1.rar

للرفع

سلام

أهلا أبو وسيم

- في الحقيقة أنت لست بحاجة إلى شفرة لعمل هذا!!

- أنت بحاجة لأن ترى هذه الأحرف مفرقة فقط!! بمعنى ليس المهم هل أدخلت مفرقة أو مجتمعة. المهم أن يرها المستخدم متفرقة وأن تظهر حال الطباعة مفرقة. أليس كذلك.

- لا أتذكر إن كان في VB6 دالة Input Mask، إذا كانت موجودة اضبطها على الحروف واترك بين القناع فراغ. فهذه الدالة تمكنك من إدخال بيانات متفرقة.

- أو استخدم دالة Format فهذه الدالة تمكنك من إظهار الحروف متفرقة ، إذا أخلت مجتمعة. وهذا في نظري أحسن من الخيار الأول

أرجو أن تكون هذه المعلومات مفيدة لك

القحم

اخي الكريم

السلام عليكم ورحمة الله

ارجو ان تضع الكود التالي في الفورم

Private Sub Text1_KeyPress(KeyAscii As Integer)
 If KeyAscii > 58 Then
	SendKeys " "
 End If

End Sub

وان شاء الله ستحصل على المطلوب

ماشاء الله,ما بيطلعلنا معك يا أخي الكريم...!

الاخ طــارق

فعلاً أتيت بالحل بارك الله فيك ، فـ لك مني جزيل الشكر والعرفان

والشكر موصول لجميع الأخوان الذين قدموا لي الحلول