ساخت جدول ضرب با Function

[karem2074]

دوستان من میخوام یک جدول ضرب بسازم.منظورم اینکه جدول رو تو یک textbox برام چاپ کنه.اگه یک کلیک زدم توی Textbox چاپ بشه.گفتن باید از توابع Function استفاده کنی اما من چیزی متوجه نشدم.ممنون میشم راهنمایی کنین.

[joker_pok]

منظورت همینه ؟

[setroyd]

Private Sub Command1_Click()
For a = 1 To 10
For b = 1 To 10
c = a * b
If Len(c) = 2 Then
c = c & Space(3)
ElseIf Len(c) = 1 Then
c = c & Space(5)
End If
Text1.Text = Text1.Text & c
Next
Text1.Text = Text1.Text & vbNewLine & vbNewLine
Next
End Sub

یه textbox بزار و multiline رو true کن و یه command بزار رو فرم برای این از if استفاده کردم که بجاش از تابع sendmessage استفاده نکنم برای tab stop هام اینو گفتم که گنگ نشی . موفق باشی

[karem2074]

Private Sub Command1_Click()
For a = 1 To 10
For b = 1 To 10
c = a * b
If Len(c) = 2 Then
c = c & Space(3)
ElseIf Len(c) = 1 Then
c = c & Space(5)
End If
Text1.Text = Text1.Text & c
Next
Text1.Text = Text1.Text & vbNewLine & vbNewLine
Next
End Sub

یه textbox بزار و multiline رو true کن و یه command بزار رو فرم برای این از if استفاده کردم که بجاش از تابع sendmessage استفاده نکنم برای tab stop هام اینو گفتم که گنگ نشی . موفق باشی
داداش ممنونم ولی کد کار نکرد.راستی میخوام کد رو طوری تنظیم کنی که بتونی جدول ضرب رو محدود کنی.مثلا از 1تا 7 و یا از 1تا 9 جدول رو نشون بده.
با تشکر

[setroyd]

با تنظیم for ها میتونی این کارو بکنی کدی که دوستمون بالا گذاشتن بهتره چون vb من میشکل داره نمیشه با vbtab کار کرد در بالا فقط کافیه مقدار حلقه رو کم و زیاد کنی تا به مقداری که میخوای برسی