ریست کردن برنامه

[emad2010]

کدی میخوام که برای Command1 قرار بدم تا با فشردن دکمه کلیک بر روی Command1 برنامه ریست بشه و صفحه اصلی به همون جزییات اولیه برگرده .

[bitasoft.ir]

کدی میخوام که برای Command1 قرار بدم تا با فشردن دکمه کلیک بر روی Command1 برنامه ریست بشه و صفحه اصلی به همون جزییات اولیه برگرده .

برای هر بخشی از برنامه باید از یک دستور خاص استفاده کنین.

مثلا اگر گزارش است بستگی به نوع دریفات اطلاعات از دیتابیس باید از Refresh یا Requry استفاده بشه.
اگه فرم معمولی با Close هم میشه.
فکر کنم اگه دقیقتر بنویسین که می خواهین کدوم بخش ریست بشه بهتر بشه راهنمائیتون کرد.:کف:

[xxxxx_xxxxx]

Property هايي از فرم كه در طول برنامه تغيير مي كنند رو در متغيرها ذخيره كنيد و زماني كه لازم داشتيد دوباره اونها رو روي فرم اعمال كنيد.

[emad2010]

فکر کنم اگه دقیقتر بنویسین که می خواهین کدوم بخش ریست بشه بهتر بشه راهنمائیتون کرد.

با ریست شدن میخوام دو تا کار تو برنامه انجام بشه :
1. تمام TextBox ها به حالت اول ( متن خالی ) برگردن .
2. تمام اشیای قابل حرکت به مکان اولیشون برگردن .

ممنون میشم اگه کمکم کنید ، در ضمن از کد هایی که داده بودید ( requry , refresh , close ) نوشتم ولی کاری انجام نداد .

[Babak.Hassanpour]

این واسه پاک کردن تکست باکس ها


Dim txtbx As Control
For Each txtbx In Me.Controls
If TypeOf txtbx Is TextBox Then
txtbx.Text = ""
End If
Next

اما برای اشیای قابل حرکت:
شما باید خاصیت Top , Left اونها رو در ابتدای یه جا ذخیره کنید تا بعد از حرکت دادنشون بتونید سرجاشون برگردونیدشون.
فرضا یه تکست باکس دارید با این خواص:
text1.left =100
text1.top =200
شما باید این کد رو در فرم لود برنامه بنویسید



TxtTop = Text1.ToolTipText
TxtLeft = Text1.Left

این هم در جایی که توی کل برنامه قابل دسترس باشه (متغیر عمومی)


Dim TxtTop, TxtLeft

بعد برای بر گردوندن به جای اول عکسشو می نویسید


Text1.ToolTipText = TxtTop
Text1.Left = TxtLeft