نمونه کد های کوچک و کاربردی VB.Net

[ravegoat]

بخش اول اين كد جالب، زمانی كه فرم در حال بسته شدن است مختصات فرم و اندازه ی آن را در رجيستری ذخيره می كند. بخش دوم كد نيز زمانی كه فرم در حال بار گذاری است، مختصات و اندازه ی ذخيره شده در رجيستری را دريافت می كند و آن ها را روی فرم برنامه اعمال می نمايد.

كد زير را در رويداد Form_Load برنامه قرار دهيد:

 Location =  New Point(GetSetting(Application.ProductName,  "FormSet", "LocX", Location.X),  GetSetting(Application.ProductName, "FormSet", "LocY", Location.Y))
          Size = New  Size(GetSetting(Application.ProductName, "FormSet", "SizeX", Size.Width),  GetSetting(Application.ProductName, "FormSet", "SizeY", Size.Height))

كد زير را در رويداد From_FormClosing برنامه قرار دهيد:

  SaveSetting(Application.ProductName, "FormSet", "LocX", Location.X)
          SaveSetting(Application.ProductName, "FormSet", "LocY", Location.Y)
          SaveSetting(Application.ProductName, "FormSet", "SizeX", Size.Width)
          SaveSetting(Application.ProductName, "FormSet", "SizeY", Size.Height)