کدهای ضروری جهت افراد مبتدی به درد بخور

[kariminets]

چند تا کد به درد بخور برا افراد مبتدی مث خودو گذاشتم خیلی کار راه اندازن امیدورام به درتون بخوره و دعای برام بکنید

فراخوانی پوشه ها از یک مسیر خاص
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Dim p As Array = IO.Directory.GetFiles("F:\")
For Each item In p
ListBox1.Items.Add(Mid(item, 4))
Next
End Sub


تعریف تقویم فارسی برای برنامه
Public Function tarikh() As String
Dim d As Date = Date.Now
Dim t As New Globalization.PersianCalendar
tarikh = t.GetYear(d) & "/" & t.GetMonth(d) & "/" & t.GetDayOfMonth(d)

End Function
فیلتر کردن بانک اطلاعاتی از طریق تکست
Private Sub TextBox4_TextChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
BankBindingSource.Filter = "sp like'" & TextBox4.Text & "%'"
End Sub


جمع یک رکورد در بانک اطلاعاتی
BankBindingSource.MoveFirst()
For i = 0 To BankBindingSource.Count - 1
b1 += BankBindingSource.Current("g1")
BankBindingSource.MoveNext()
Next


محدود کردن تکست به عدد
Private Sub TextBox5_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress
If e.KeyChar = Chr(8) Then
Exit Sub
End If
If IsNumeric(e.KeyChar) = False Then
e.KeyChar = ""
End If
End Sub


روش جستجو در بانک اطلاعاتی از طریق تکست
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
BankBindingSource.Position = BankBindingSource.Find("sp", TextBox1.Text)
End Sub




استفاده از دکمه اینتر بجای تب
If e.KeyChar = Chr(13) Then
e.Handled = True
SendKeys.Send("{TAB}")
End If


پیدا کردن درایو فلش جدید
Dim u As String
u = My.Computer.FileSystem.GetDriveInfo("p").DriveType
If u = "2" Then
MessageBox.Show("ok")
End If


خاموش کردن کامپیوتر
System.Diagnostics.Process.Start("Shutdown.exe", "-r -t 20 ")


کشیدن فرم بدون سر برگ
Dim w As Integer
Dim t As Integer
Dim down As Boolean
Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
down = True
w = e.Y
t = e.X
End Sub
Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
If down = True Then
Me.Top += e.Y - w
Me.Left += e.X - t
End If
End Sub
Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
down = False
End Sub


فارسی کردن زبان نگارش برنامه
Dim z As New Globalization.CultureInfo("fa-ir")
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(z)


چک کردن اتصال اینترنت
If My.Computer.Network.IsAvailable = True Then
MessageBox.Show("ok")
Else
MessageBox.Show("er")
End If


مقیاس موس
Me.Text = e.X & "---" & e.Y

'
قرار دادن اطلاعات در کمبو باکس
ComboBox1.Items.Clear()
Me.OleDbDataAdapter1.Fill(Data1)
Me.KharidBindingSource.MoveFirst()
For i = 0 To Me.KharidBindingSource.Count - 1
ComboBox1.Items.Add(Me.KharidBindingSource.Current ("nam"))
Me.KharidBindingSource.MoveNext()
Next i


جستجو در پایگاه داده
KharidBindingSource.Position = Me.KharidBindingSource.Find("id", TextBox2.Text)
TextBox4.Text = KharidBindingSource.Current("nam")


پرینت فرم
PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
PrintForm1.Print()


محدود کردن تکست به عدد یا شماره
If Char.IsNumber(e.KeyChar) = False Then
e.KeyChar = System.Convert.ToChar(0)
End If



دریافت اطلاعات از بانک اطلاعاتی
Data1.Clear()
OleDbDataAdapter1.Fill(Data1)
End Sub


رفته به اولیه سطر
Me.KharidBindingSource.MoveFirst()


رفته به آخر یه سطر
Me.KharidBindingSource.MoveLast()


رفته به سطر قبلی
Me.KharidBindingSource.MovePrevious()


رفته به سطر بعدی
Me.KharidBindingSource.MoveNext()


ذخیره اطلاعات در بانک
Me.OleDbDataAdapter1.Update(Data1)


'پاک کردن اطلات موجود در دیتا گرید

Data1.Clear()
محاسبه تعداد سطرهای ذخیره شده
Me.OleDbDataAdapter1.Fill(Data1)
TextBox2.Text = Me.KharidBindingSource.Count


'قرار دادن اطلاعات در کمبو باکس
ComboBox1.Items.Clear()
Me.OleDbDataAdapter1.Fill(Data1)
Me.KharidBindingSource.MoveFirst()
For i = 0 To Me.KharidBindingSource.Count - 1
ComboBox1.Items.Add(Me.KharidBindingSource.Current ("nam"))
Me.KharidBindingSource.MoveNext()
Next i


'جمع ارقام یک ستون
Dim s As Integer
Me.KharidBindingSource.MoveFirst()
For i = 0 To Me.KharidBindingSource.Count - 1
TextBox5.Text = Me.KharidBindingSource.Current("nam")
s = TextBox5.Text + s
Me.KharidBindingSource.MoveNext()
Next
TextBox5.Text = s


روش جستجو در لیست باکس
ListBox1.SelectedIndex = (1)
For i = 2 To ListBox1.Items.Count - 1
ListBox2.SelectedIndex = (1)
For j = 2 To ListBox2.Items.Count - 1
ListBox3.SelectedIndex = ListBox3.FindString(TextBox1.Text)
If ListBox3.SelectedItem = True Then
Exit Sub
End If


ListBox2.SelectedIndex = j
Next
ListBox1.SelectedIndex = i
Next

MsgBox("no")


روش جمع یک ستون در دیتا گرید
Dim s As Integer = 0

For i = 0 To DataGridView1.RowCount - 1
s += DataGridView1.Item(1, i).Value
Next
TextBox1.Text = s


تغییر نام کلیه کنترلهای روی صفحه
For Each m In Controls
If m.tag = "1" Then میتوانیم از قابلیت تگ و نام گذاری آن جهت متمایز کردن کنترلها استفاده کنیم
m.text = ""
End If
Next


تولیدات اعداد راندوم یا تصادفی
me.TEXT = Rnd() * 2500000