متن راهنما در تکست باکس

**میثم مقدم نیا** · 2022/12/02, 09:59

نوشته اصلی توسط kazem1359

سلام یک کدvba می خوام که یک متن راهنما در تکست باکس قرار بده. ممنون می شم راهنمایی کنید. با سپاس

سلام
برای انجام این کار شما باید از درUser Form خود از کد های زیر استفاده کنید.

1- TextBox1_Enter

2- TextBox1_Exit

3- UserForm_Activate

کد PHP:

Private Sub TextBox1_Enter()     If TextBox1.Value = "كد ملي" Then         TextBox1.Value = ""         TextBox1.ForeColor = &H80000008         TextBox1.TextAlign = fmTextAlignLeft     End If End Sub

کد PHP:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)     If TextBox1.Value = "" Then         TextBox1.Value = "كد ملي"         TextBox1.ForeColor = &H8000000C         TextBox1.TextAlign = fmTextAlignRight     End If End Sub

کد PHP:

Private Sub UserForm_Activate()     TextBox1.Value = "كد ملي"     TextBox1.ForeColor = &H8000000C     TextBox1.TextAlign = fmTextAlignRight     TextBox1.SetFocus ' اگر تكست باكس دومي داريد - از اين خط استفاده كنيد ، اگر نه - ست فوكوس را روي چيز ديگري تنظيم كنيد(كامبوباكس/كامندباتن و غيره)ا '    TextBox2.SetFocus     Com.SetFocus End Sub

در آخر هم این میشه نتیجه کار

امید وارم که مشکل شما دوست عزیزم حل شده باشه و به کار سایر دوستان هم بیاد.

با تشکر میثم مقدم نیا

**kazem1359** · 2022/12/03, 21:15

نوشته اصلی توسط میثم مقدم نیا

سلام
برای انجام این کار شما باید از درuser form خود از کد های زیر استفاده کنید.

1- textbox1_enter

2- textbox1_exit

3- userform_activate

کد PHP:

private sub textbox1_enter()     if textbox1.value = "كد ملي" then         textbox1.value = ""         textbox1.forecolor = &h80000008         textbox1.textalign = fmtextalignleft     end if end sub

کد PHP:

private sub textbox1_exit(byval cancel as msforms.returnboolean)     if textbox1.value = "" then         textbox1.value = "كد ملي"         textbox1.forecolor = &h8000000c         textbox1.textalign = fmtextalignright     end if end sub

کد PHP:

private sub userform_activate()     textbox1.value = "كد ملي"     textbox1.forecolor = &h8000000c     textbox1.textalign = fmtextalignright     textbox1.setfocus ' اگر تكست باكس دومي داريد - از اين خط استفاده كنيد ، اگر نه - ست فوكوس را روي چيز ديگري تنظيم كنيد(كامبوباكس/كامندباتن و غيره)ا '    textbox2.setfocus     com.setfocus end sub

در آخر هم این میشه نتیجه کار

[ATTACH=CONFIG]24155[/ATTACH]

امید وارم که مشکل شما دوست عزیزم حل شده باشه و به کار سایر دوستان هم بیاد.

با تشکر میثم مقدم نیا