محدود کردن کارکتر

[0636124]

من می خوام در این برنامه text3 به غیر 511 از هفت رقم بیشتر نباشد که با 511 می شود 10 رقم

Private Sub Command1_Click()
a = 511
b = 9000000
Text1 = a
Text2 = Int(Rnd * b)
Text3 = Text1 + Text2
Label1 = Text3
End Sub

[hamalous]

نمی گم اینی که من می گم راه درستشه ولی خاصیت maxlenght توی properties ، تکست 3 رو روی 10 قرار بده

[amir2844]

سلام. تو میتونی بعد از جمع کردن text1 و text2 و ریختن اونها توی Text3. تکست 3 رو به کارکتر تبدیل کنی. فکر میکنم دستور cstr باشه. بعد بیای با دستور Left$ تعداد 10 کارکتر رو جدا کنی و توی یه متغیر بریزی. بعد از اون با تبدیل به عدد اون رو جایگزین کنی که میشه 10 رقمی که خواستی به همین سادگی


Private Sub Command2_Click()
a = 511
b = 900000000
Text1.Text = a
Text2.Text = Int(Rnd * b)
Text3.Text = Text1.Text + Text2.Text
Label1.Caption = Left$(Text3.Text, 10)
End Sub