mahdi.manian
شنبه 10 فروردین 1392, 14:15 عصر
با سلام.
این کد را ببینید:
Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 999
Text1 = i
Next
End Sub
ببینید دوستان این کارشو درست انجام میده اما مشکل اینکه که چون توی تکست 1 چاپ می کنه، نمی تونه زیر هم چاپ کنه و فقط آخری که 999 هست را چاپ می کنه.
یادم هست استادمون یک کد می نوشت و یک اسکرول بار می گذاشت که این مشکل حل می شد و زیر هم چاپ میشد و با اسکرول بار میشد همه را دید. اما یادم نیست چکار می کرد!
ممنون میشم دوستان راهنمایی کنند.
با تشکر.
این کد را ببینید:
Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 999
Text1 = i
Next
End Sub
ببینید دوستان این کارشو درست انجام میده اما مشکل اینکه که چون توی تکست 1 چاپ می کنه، نمی تونه زیر هم چاپ کنه و فقط آخری که 999 هست را چاپ می کنه.
یادم هست استادمون یک کد می نوشت و یک اسکرول بار می گذاشت که این مشکل حل می شد و زیر هم چاپ میشد و با اسکرول بار میشد همه را دید. اما یادم نیست چکار می کرد!
ممنون میشم دوستان راهنمایی کنند.
با تشکر.