دو سؤال در رابطه با تکست

[Hassan2500]

سؤال

1- من میخوام داخل تکست1 در ابتداش این متن نوشته شود (جواب: ) و قابل پاک شدن هم نباشد و یا چیزی روش پیست نشه و اگر خواستم داخل تکست1 چیزی بنویسیم بعد از (جواب: ) نوشته شود یعنی اگه فوکوس داخل (جواب: ) بود چیزی تایپ یا پیست نشه و اگه فوکوس بعد جواب: قرار گرفت بشه نوشت و یا پیست کرد بعدش اگه خواستم متنی داخل تکست1 ظاهر بشه بره بعده (جواب: ) کدش چی میشه

2- من میخوام حروف تکست1 و تکست2 با هم امتزاج پیدا کنند کدش چی میشه
مثال
تکست1: ا ب ج د ه
تکست2: و ز ح
تکست3: ا و ب ز ج ح د ه

مثال
تکست1: ا ب ت ث
تکست2: ا ی ق غ
تکست3: ا ا ب ی ت ق ث غ

[just4froum]

در رابطه با سوال دومت :
ولی بهتر بود یکم روش فکر می کردی و خودت می نوشتیش.

Private Sub TextChange()
Dim max As Long, x As Long
If Len(Text1.Text) > Len(Text2.Text) Then
max = Len(Text1.Text)
Else
max = Len(Text2.Text)
End If

Text3.Text = Empty

For x = 1 To max
Text3.Text = Text3.Text & Mid(Text1.Text, x, 1) & " "
Text3.Text = Text3.Text & Mid(Text2.Text, x, 1) & " "
Next x

End Sub

Private Sub Text1_Change()
Call TextChange
End Sub

Private Sub Text2_Change()
Call TextChange
End Sub

[just4froum]

در رابطه با سوال اولت هم میشه چنین کاری رو کرد ولی کدش یکم زیاد میشه و ممکنه چیزی رو فراموش کنی.

بهترین راهش اینه که دوتا textbox بگذاری روی فرمتو و بچسبونیشون به هم بعد borderstyle جفتشونو none کنی اگرم Border برات مهمه یه picturebox بگذاری پشتش .
توی textbox اولی بنویسی جواب : و Lock رو True کنی.

[Hassan2500]

من کارم برنامه نویسی نیست و فقط بلدم استفادشون کنم بعدش میخوام حروف تکست3 یه فاصله بین هر حرف باشه در این حالت دوتا دوتا حرفا بهم میچسبن

[Hassan2500]

فقط میخوام یه تکست باشه

[just4froum]

من کارم برنامه نویسی نیست و فقط بلدم استفادشون کنم بعدش میخوام حروف تکست3 یه فاصله بین هر حرف باشه در این حالت دوتا دوتا حرفا بهم میچسبن

کد ویرایش شد

[Veteran]

سلام.
کد زیر رو بررسی کنید .
سوال 1-
برای یک تکست باکس/

Private Sub Form_Load()
Text1.Alignment = 1
Text1 = ": جواب"
End Sub
Private Sub Text1_Change()
Dim Mystr As String
If Right(Text1.Text, 6) <> ": جواب" Then
For i = 1 To Len(Text1)
Mystr = Mid(StrReverse(Text1), i, 1)
If Mystr = ":" Then
Text1 = Replace(Text1, Right(Text1, i), ": جواب")
Exit Sub
End If
Next
End If
End Sub