سلام دوستان
میخواستم بدونم چطوری میتونم کپشن فرمم رو طوری طراحی کنم که یک نام بطور پشت سرهم کاراکتر به کاراکتر چاپ بشه
ممنون
نمونه میزارم تا قشنگ متوجه بشین
Tender Program
سلتم
خوب نمونت همین کارو میکنه ذیگه منظورتون چیه ؟
آره اینکارو میکنه ولی یکبار من میخوام وقتی اون کلمه تموم شد کپشن پاک شه و دوباره از اول شروع کنه
(۰۷-دى-۱۳۸۸, ۱۸:۰۲:۵۰)Tender نوشته است: [ -> ]آره اینکارو میکنه ولی یکبار من میخوام وقتی اون کلمه تموم شد کپشن پاک شه و دوباره از اول شروع کنه
کد:
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 بلدین ؟؟
آره دوسته عزیز بلدم اینکارو هم انجام دادم ولی من میخوام وقتی کپشن میره اون T نباشه ولی هست
البته از کمکت ممنون
(۰۷-دى-۱۳۸۸, ۲۳:۱۹:۲۳)Tender نوشته است: [ -> ]آره دوسته عزیز بلدم اینکارو هم انجام دادم ولی من میخوام وقتی کپشن میره اون T نباشه ولی هست
البته از کمکت ممنون
خواهش میکنم ؛
به اول strFCaption ؛ یه space اضافه کن ،
راهه دیگه ای نداره
مثلا چرا نمیشه Intstart=0 باشه؟
ممنون
(۰۷-دى-۱۳۸۸, ۲۳:۵۳:۰۵)Tender نوشته است: [ -> ]راهه دیگه ای نداره
مثلا چرا نمیشه Intstart=0 باشه؟
ممنون
چون کمترین مقداری که mid از اونجا شروع میکنه ، میتونه یک باشه نه صفر
یعنی هیچ راهی نداره که Space نزنیم ولی اون از T شروع نکنه؟
(۰۸-دى-۱۳۸۸, ۰۱:۱۳:۱۶)Tender نوشته است: [ -> ]یعنی هیچ راهی نداره که Space نزنیم ولی اون از T شروع نکنه؟
شروع نکنه ؛ یا بکنه ؟؟
------
چرا راه نداره ! یکم دستکاری میخواد ؛
فک کنم:
کد:
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