کمکم کن رفییییییییییییییییییییییی ییییییییییییییق

[سونامی]

(( vb6)) چگونه حروف رادر text box یا inputbox بنویسیم که هنگام play کردن اریب بنویسد
خودم تا یک مرحلهای رفتم اما گیر کردم اگر امکان دارد سورسش را بنویس تا با سورس خودم چک کنم
ونواقصش را برطرف کنم:10:

[Ar@m]

نه اگه امكان داره تو سورس خودت رو بذار ما چكش كنيم!
انقدرم هي اسم تاپيك هاتو نذار كمك !

[eng.mehrdad]

نه اگه امكان داره تو سورس خودت رو بذار ما چكش كنيم!
انقدرم هي اسم تاپيك هاتو نذار كمك !

حالا این که چیزی نیست ، تاپیک گزاشته با نام : طرز درست کردن آتش!
گفتم شاید یه انسان نخستین تو انجمن داریم ! نگو برا بچه های مولتی مدیا و رندر کاری و اینا تاپیک زدن!

[سونامی]

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

[سونامی]

Private Sub Command1_Click()
a = Text1
AutoRedraw = True
MyPrint a

End Sub
Private Sub MyPrint(ByVal Text As String)
Dim Pos As Long
For Pos = 1 To Len(Text1)
CurrentX = Pos * 120
CurrentY = Pos * 120
Print Mid(Text, Pos, 1); Spc(16)
Next Pos
End Sub

[Ar@m]

تو كه كدت مسئله اي نداره كه!
يه دو تا تغيير خيلي جرئي:


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید