02-10-12, 04:26 PM
جرب هذا الكود
1-ضع واحد تكست بوكس
2-تايمر و اجعل interval=1
ثم ضع هذا الكود في التايمر
Dim a As Integer
a = Len(Text1.Text)
Text1.Width = a * 50
1-ضع واحد تكست بوكس
2-تايمر و اجعل interval=1
ثم ضع هذا الكود في التايمر
Dim a As Integer
a = Len(Text1.Text)
Text1.Width = a * 50
