15-11-12, 04:20 PM
السلام عليكم...
في كود إجراء الزر ضع هذا الكود:
بدل هذا الكود:
* ملاحظة: قد يبدو الكود الأول مقلوباً عند عرضه هنا (بسبب وجود نص عربي)، و لكن التاء المربوطة هي الأولى و الهاء هي الثانية
نرجو الاستفادة و السلام.
في كود إجراء الزر ضع هذا الكود:
كود :
MyText = Trim(Replace(Text1.Text, "ة", "ه"))بدل هذا الكود:
كود :
MyText = Trim(Text1.Text)* ملاحظة: قد يبدو الكود الأول مقلوباً عند عرضه هنا (بسبب وجود نص عربي)، و لكن التاء المربوطة هي الأولى و الهاء هي الثانية
نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
