نوشته ثابت داخل تکست باکس

[m.4.r.m]

می خوام تو تکست باکس یه نوشته ثابت داشته باشم که پاک نشه مثل این عکس

[سید حمید حق پرست]

سلام علیکم
تکست باکس انتخاب کنید و از منوی Properties تغییرات زیر انجام بدید :
BorderStyle = 0-None
Enabled : False
موفق باشید

یا علی (ع)

[m.4.r.m]

من منظورمو بد رسوندم ، می خوام اون نوشته باقی بمونه کاربر نتونه پاک کنه و کاربر بعد از اون بتونه ورودی وارد کنه . ممنون میشم راهنمایی کنید .

[SlowCode]

Private Sub Text1_KeyPress(KeyAscii As Integer)
txt = "Username: "
ln = Len(txt)
If Left(Text1, ln) <> txt Then
Text1 = txt
End If
Text1.SelStart = Len(Text1)
End Sub

[PMTornado]

اين يه خط رو هم به كد هاي محسن جان اضافه كني تكميله .


Private Sub Text1_Change()
If Len(Text1) <= 10 And Text1 <> "Username: " Then Text1 = "Username: "
End Sub

[vbhamed]

سلام
راههاي مختلفي براي اين كار هست، يكيش اينه كه اون كارهايي كه سید حمید حق پرست عزيز تو پست 2 گفته رو انجام بدي، بعد يك ليبل هم كنارش بزاري با پس زمينه هم رنگ TextBox و با shape هم يك قاب كلي دور هر دوشون بكشي
البته اگر تعداد TextBox هات زياده مي‌توني يك اكتيوايكس هم براي اينكار بنويسي