[حل شده] متن راهنما در تکست باکس

[kazem1359]

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

[میثم مقدم نیا]

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

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

1- TextBox1_Enter

2- TextBox1_Exit

3- UserForm_Activate

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

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 

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

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



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

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

[kazem1359]

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

1- textbox1_enter

2- textbox1_exit

3- userform_activate

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

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 

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

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

[ATTACH=CONFIG]24155[/ATTACH]

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

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

ممنون ولی خطا میده در کدهای:
"كد ملي"
&h8000000c
""
اگر لطف کنید در فایل اکسل بذارین ممنون میشم شاید بشه علت خطا را پیدا کرد. سپاس

[میثم مقدم نیا]

ممنون ولی خطا میده در کدهای:
"كد ملي"
&h8000000c
""
اگر لطف کنید در فایل اکسل بذارین ممنون میشم شاید بشه علت خطا را پیدا کرد. سپاس

سلام

من چک کردم

مشکلی نداشت

فایل پیوست را چک کنید ببینید باز مشکل وجود دار

[kazem1359]

سلام

من چک کردم

مشکلی نداشت

فایل پیوست را چک کنید ببینید باز مشکل وجود دار

سپاس فراوان تشکر فراوان