Caption فرم

[Tender]

سلام دوستان

میخواستم بدونم چطوری میتونم کپشن فرمم رو طوری طراحی کنم که یک نام بطور پشت سرهم کاراکتر به کاراکتر چاپ بشه

ممنون

نمونه میزارم تا قشنگ متوجه بشین

Tender Program

[Scorpion]

سلتم
خوب نمونت همین کارو میکنه ذیگه منظورتون چیه ؟

[Tender]

آره اینکارو میکنه ولی یکبار من میخوام وقتی اون کلمه تموم شد کپشن پاک شه و دوباره از اول شروع کنه

[babyy]

آره اینکارو میکنه ولی یکبار من میخوام وقتی اون کلمه تموم شد کپشن پاک شه و دوباره از اول شروع کنه

کد:

Private Sub Timer1_Timer()
intstart = intstart + 1
        If intstart > Len(strFCaption) Then
            'Timer1.Enabled = False
            Me.Caption = ""
            strSentence = ""
            intstart = 1
        End If
strSentence = strSentence + Mid(strFCaption, intstart, 1)
Form1.Caption = strSentence
End Sub

Vb بلدین ؟؟

[Tender]

آره دوسته عزیز بلدم اینکارو هم انجام دادم ولی من میخوام وقتی کپشن میره اون T نباشه ولی هست

البته از کمکت ممنون

[babyy]

آره دوسته عزیز بلدم اینکارو هم انجام دادم ولی من میخوام وقتی کپشن میره اون T نباشه ولی هست

البته از کمکت ممنون

خواهش میکنم ؛
به اول strFCaption ؛ یه space اضافه کن ،

[Tender]

راهه دیگه ای نداره

مثلا چرا نمیشه Intstart=0 باشه؟

ممنون

[babyy]

راهه دیگه ای نداره

مثلا چرا نمیشه Intstart=0 باشه؟

ممنون

چون کمترین مقداری که mid از اونجا شروع میکنه ، میتونه یک باشه نه صفر

[Tender]

یعنی هیچ راهی نداره که Space نزنیم ولی اون از T شروع نکنه؟

[babyy]

یعنی هیچ راهی نداره که Space نزنیم ولی اون از T شروع نکنه؟

شروع نکنه ؛ یا بکنه ؟؟
------
چرا راه نداره ! یکم دستکاری میخواد ؛

[ajlajlajl]

فک کنم:

کد:

Private Sub Timer1_Timer()
intstart = intstart + 1
        If intstart > Len(strFCaption) Then
            strSentence = ""
            intstart = 0
        Else
            strSentence = strSentence + Mid(strFCaption, intstart, 1)
        End If
Form1.Caption = strSentence
End Sub