كامپيوتر79

Monday, June 16, 2008

●

برای بازکردن فرم دوم بصورت دیالوگ در فرم ، متغییری به این صورت تعریف می کنیم:

Dim f2 as new Form2
f2.ShowDialog()

واگر بخواهیم دکمه ای درفرم دوم باعث بسته شدن این فرم نشود، خاصیت DialogResult مربوط به دکمه را برابر None قرار دهیم

□ نوشته شده در ساعت 6/16/2008 06:28:00 PM توسط Babak

........................................................................................

Saturday, June 14, 2008

●

برای محدود کردن TextBox به اینکه فقط عدد بگیرد از کد زیر نیز می توان در رویداد KeyPress مربوط به آن استفاده کرد:

Dim b As String = "0123456789" 'String Definition
If e.KeyChar > Chr(26) Then
If InStr(b, e.KeyChar) = 0 Then
e.Handled = True
End If
End If

□ نوشته شده در ساعت 6/14/2008 12:19:00 PM توسط Babak

........................................................................................

Wednesday, June 11, 2008

●

اگر بخواهیم تمام TextBox های موجود در فرم اعم از داخل GroupBox یا خارج آن، مقدار خصوصیت Text اش پاک شود کد زیر بکار می آید:

Public Sub ResetForm1(ByVal m as Control) 'My Sub

For Each ctrl As Control In m.Controls
Select Case ctrl.GetType().ToString() 'All Ctrl
Case "System.Windows.Forms.TextBox"
ctrl.Text = String.Empty
Case "System.Windows.Forms.GroupBox"
ResetForm1(ctrl) 'Call Sub again
End Select
Next

end Sub

□ نوشته شده در ساعت 6/11/2008 04:21:00 PM توسط Babak

●

اگر بخواهیم در TextBox فقط مجاز به نوشتن عدد باشیم،
کد زیر را در رویداد KeyPress مربوط به TextBox وارد می کنیم:

e.Handled = OnlyNumeric(Asc(e.KeyChar))

البته تابع OnlyNumeric را خودمان می نویسیم:

Public Function OnlyNumeric( ByVal Key as String ) As Boolean
if ( Key>=48 And Key<=57 ) Or Key=8 Then

OnlyNumeric = False

else

OnlyNumeric = True

End If

End Function

□ نوشته شده در ساعت 6/11/2008 03:41:00 PM توسط Babak

●

برای تغییر زبان صفحه کلید در VB.NET می توانیم کد زیر را به کار ببریم:

For Each lng As InputLanguage In InputLanguage.InstalledInputLanguages

If lng.LayoutName = "Farsi" Then

InputLanguage.CurrentInputLanguage = lng

End If

□ نوشته شده در ساعت 6/11/2008 03:34:00 PM توسط Babak

●

اگر بخواهیم با زدن مثلا دکمه F4 روی فرم، Focus به یک TextBox منتقل شود:
ابتدا خصوصیت KeyPreview مربوط به Form را True می کنیم
سپس در رویداد KeyDown فرم کد زیر را می نویسیم:

if e.KeyCode = Keys.F4 then

TextBox1.Focus

□ نوشته شده در ساعت 6/11/2008 03:26:00 PM توسط Babak

........................................................................................

Home

لينكهاى مورد علاقه
خورشيد خانم
احسان
وبلا گ هاى باحال كامپيوترى
رد هت دات كام
آلفا
سكتورصفر
حامد بنايي دات كام
پنجره پشتى
وبلاگ تخصصى كامپيوتر
طراح وب
از كامپيوتر چه خبر؟
دريا و کوه
كلاه سيـاه
كامپيوترستان
PcOnline
Technical Experience

ایمیل من babak_baroonzade ات yahoo

HTML يادگيرى
به زبان فارسى

فرستادن نظرات

صفحه اصلی

آرشيو