چگونه حرف اول text بزرگ بشه ؟

[sinashahab]

:تشویق::تشویق:

[mahmood3d]

شما مي تونيد از رشته خود يك رقم جدا كرده و حروف اونو به حروف بزرگ تبديل كنيد سپس دوباره به رشته قبلي الصاق كنيد . مثلا اگر ما يك Text Box به نام Text1 داشته باشيم به اين صورت مي توانيم اين كار را انجام دهيم :




dim a as string, b as string
a=Left(Text1.Text,1)
b=Mid(Text1.Text,2)
a=UCase(a)
Text1.Text=a & b

[vbhamed]

سلام
با استفاده از حالت دوم Mid هم راحت ميشه


Dim s$
s = Text1
Mid$(s, 1, 1) = UCase$(Left$(s, 1))
Text1 = s

[Armin060]

اينا كد رو زياد مي كنه. يه تابعی بود كه مستقيم اين كار رو انجام مي داد. الآن يادم نيست چی بود. من برم ببينم چی بود. فهميدم ميگم.

[r0ot$harp]

اينا كد رو زياد مي كنه. يه تابعی بود كه مستقيم اين كار رو انجام مي داد. الآن يادم نيست چی بود. من برم ببينم چی بود. فهميدم ميگم.


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


مهم اینه که کار به خوبی انجام بشه .


درست تعداد خط هم مهم هست ولی زیاد توفیقی ندارد .




باتشکر احسان

[Armin060]

در حجم برنامه خيلی توفيق داره. هر كاراكتر كد بيش از يك بايت. خودتون حساب كنيد.