مشکل در TextBox

[vb6_man]

سلام دوستان من نمیدونم چهطور میشه در زمان اجرا هر چیز که در Caption فرم قرار داره رو بریزیم تو TextBox

اصلا این کار شدنیه؟

( وقتی برنامه بالا اومد، هرچی که در Caption فرم هست منظورم تکست هست، در TextBox قرار بگیره )

[IamOverlord]

Private Sub Form_Load()
Text1.Text = Me.Caption
End Sub

[vb6_man]

چه عجب نگفتی Google it

این چیزارو بچه ها خوب جواب می دن
ولی یکم حرفه ای بشه فقط تماشا می کنن
:عصبانی++:

[Mr'Jamshidy]

چه عجب نگفتی Google it

این چیزارو بچه ها خوب جواب می دن
ولی یکم حرفه ای بشه فقط تماشا می کنن
:عصبانی++:

خیلی خندیدم دوست عزیز:قهقهه:
ولی در کل این بحث ها آخرش دعواست از من گفتن بود

اینو بررسی کن دوست عزیز

'Private Sub Text1_KeyPress(KeyAscii As Integer)
' If Not IsValidChar(KeyAscii) Then
' KeyAscii = 0
' End If
'End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not IsValidChar(KeyAscii) Then
Text1.SetFocus
SendKeys "{BS}"
End If

End Sub

Function IsValidChar(CharCode As Integer) As Boolean
IsValidChar = True
If CharCode = 8 Or CharCode = 32 Then Exit Function
Select Case Chr$(CharCode)
Case "ش"
Case "س"
Case "ب"
Case "ل"
Case "ا"
Case "آ"
Case "ت"
Case "ن"
Case "م"
Case Else
IsValidChar = False
End Select
End Function

[vb6_man]

آره منم خندیدم وقتی ایشون به سوال من گفت Google it
خب اگه می خواستم Search کنم نیاز به اینجا اومدنم نبود
اصلا مگه Search کردن هوش می خواست؟ که به ذهن ایشون رسید ولی به ذهن من نرسید:متعجب:

حالا این کدی که گذاشتی چیه؟
من هدفم از ایجاد این تاپیک اصلا این بود که به اینجا برسم!
که این سایت به درد حرفه ای ها نمی خوره
فقط واسه اونایی خوبه که مشکل تو Caption یا Textbox و ... دارن
وگرنه جوابایی که داده می شه یا Google it هست یا اصلا جوابی داده نمی شه!

[_behnam_]

چه عجب نگفتی Google it

این چیزارو بچه ها خوب جواب می دن
ولی یکم حرفه ای بشه فقط تماشا می کنن
:عصبانی++:
شما دیگه کم کم دارید میشید عضوی از بچه های بخش ویژوال بیسیک , زشته که بخوای سر چیزای الکی با بچه ها بحث کنید!!!!:لبخندساده:


موفق باشید

[IamOverlord]

چه عجب نگفتی Google it

این چیزارو بچه ها خوب جواب می دن
ولی یکم حرفه ای بشه فقط تماشا می کنن
:عصبانی++:

سلام دوست عزیز،
من فکر کردم بچه تر از خودم گیر آوردم، گفتم جواب بدم.

سوالی داری اگه بلد بودم در خدمتم.
اونم گفتم که وقتتو تلف نکنی، گوگل پیدا نکنی کجا می خوای پیدا کنی؟!

[Mr'Jamshidy]

آره منم خندیدم وقتی ایشون به سوال من گفت Google it
خب اگه می خواستم Search کنم نیاز به اینجا اومدنم نبود
اصلا مگه Search کردن هوش می خواست؟ که به ذهن ایشون رسید ولی به ذهن من نرسید:متعجب:

حالا این کدی که گذاشتی چیه؟
من هدفم از ایجاد این تاپیک اصلا این بود که به اینجا برسم!
که این سایت به درد حرفه ای ها نمی خوره
فقط واسه اونایی خوبه که مشکل تو Caption یا Textbox و ... دارن
وگرنه جوابایی که داده می شه یا Google it هست یا اصلا جوابی داده نمی شه!

ببین دوست من جوابای حرفه ای هم پیدا میشه اینجا اما باید
1. صبر داشته باشی
2. سوال درست رو بپرسی

خود من:
من نمیگم برنامه نویس حرفه ای هستم اما در حد خودم خیلی بلدم
هر چیزی هم که بلدم تو همین فروم یاد گرفتم (البته چیزای پایه رو تو کتاب هنرستان یاد گرفتم)

اینجا جای خیلی خوبیه اما باید بلد باشی که چطور از اینجا استفاده کنی
مثل تجهیزات عکاسی، بلد نباشی باهاشون کار کنی بعد بگی اینا بدرد نمیخورن!

موفق باشید

[vb6_man]

ببین دوست من جوابای حرفه ای هم پیدا میشه اینجا اما باید
1. صبر داشته باشی
2. سوال درست رو بپرسی

خود من:
من نمیگم برنامه نویس حرفه ای هستم اما در حد خودم خیلی بلدم
هر چیزی هم که بلدم تو همین فروم یاد گرفتم (البته چیزای پایه رو تو کتاب هنرستان یاد گرفتم)

اینجا جای خیلی خوبیه اما باید بلد باشی که چطور از اینجا استفاده کنی
مثل تجهیزات عکاسی، بلد نباشی باهاشون کار کنی بعد بگی اینا بدرد نمیخورن!

موفق باشید

باش
پس نتیجه می گیریم که اگه جواب نمی دن
یا اگه می گن Google it
یعنی بنده سوالاتم درست نیست
یا اونی نیست که دوستان دوست دارند من بپرسم:بامزه: