شیمی دبیرستان

1- گشودن یک فایل مثله Test1.Txt از مسیری که برنامه از اونجا اجرا شد.

("System.Diagnostics.Process.Start(Application.StartPath & "\Test1.txt

2- تغییر تاریخ ویندوز(دقت کنید این کد تاریخ سیستم رو تغییر میده)

(Today = DateSerial(2006, 10, 16

3- تغییر ساعت ویندوز(دقت کنید این کد ساعت سیستم رو تغییر میده)

((TimeString = CStr(TimeSerial(10, 10, 10

4- گشودن یک صفحه وب :

(System.Diagnostics.Process.Start(http://www.kharaee.com

5- گشودن یک ایمیل با برنامه outelook :

("System.Diagnostics.Process.Start("MailTo:kharaee_com@yahoo.com

بالاخره بعد از مدتی همون طور که از قبل گفته بودم می خوام توی وبلاگم آموزش برنامه نویسی رو بزارم

این کد به زبان Vb.Net هست و برای اینه که در یک TextBox فقط اعداد 1 تا 9 و دکمه BackSpace قابل استفاده باشه؛ یعنی توی TextBox فقط بشه عدد وارد کرد و یا اونا رو پاک کرد.

اول باید این متغیر رو تعریف کنید:

Dim nonnumberentered As Boolean

بعد، در KeyDown مربوط به TextBox این کد رو بنویسید:

nonnumberentered = False

If e.KeyCode < Keys.D0 OrElse e.KeyCode > Keys.D9 Then

If e.KeyCode < Keys.NumPad0 OrElse e.KeyCode > Keys.NumPad9 Then 

If e.KeyCode <> Keys.Back Then  

Nonnumberentered = True   

End If  

End If 

End If

سپس در نهایت توی KeyPress مربوط به TetxBox این کد رو وارد کنید :

If nonnumberentered = True Then

  e.Handled = True   

End If