(( vb6)) چگونه حروف رادر text box یا inputbox بنویسیم که هنگام play کردن اریب بنویسد
خودم تا یک مرحلهای رفتم اما گیر کردم اگر امکان دارد سورسش را بنویس تا با سورس خودم چک کنم
ونواقصش را برطرف کنم:10:
Printable View
(( vb6)) چگونه حروف رادر text box یا inputbox بنویسیم که هنگام play کردن اریب بنویسد
خودم تا یک مرحلهای رفتم اما گیر کردم اگر امکان دارد سورسش را بنویس تا با سورس خودم چک کنم
ونواقصش را برطرف کنم:10:
نه اگه امكان داره تو سورس خودت رو بذار ما چكش كنيم!
انقدرم هي اسم تاپيك هاتو نذار كمك !
حالا این که چیزی نیست ، تاپیک گزاشته با نام : طرز درست کردن آتش!نقل قول:
گفتم شاید یه انسان نخستین تو انجمن داریم ! نگو برا بچه های مولتی مدیا و رندر کاری و اینا تاپیک زدن!
مشکل من این است که سورسش را کاملا اشتباه نوشتم به معلمم نشان دادم امروز .وگفت کاملا اشتباه است
می دونم که باید از تابع 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
تو كه كدت مسئله اي نداره كه!
يه دو تا تغيير خيلي جرئي:
کد:Option Explicit
Private Sub Command1_Click()
Dim a As String
a = Text1.Text
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