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

[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