РАБОТА С МАССИВАМИ
СВОЙСТВА DATAGRIDVIEW
ColumnCount количество столбцов
ColumnHeadersVisible отображается ли строка заголовка столбца
Columns коллекция, содержащая все столбцы в элементе управления
CurrentCell возвращает активную ячейку
CurrentRow возвращает строку, содержащую текущую ячейку.
DataSource источник данных, данные которого отображает
DataMember имя списка или таблицы в источнике данных.
СВОЙСТВА DATAGRIDVIEW
NewRowIndex Получает индекс строки для новых записей.
RowCount число строк, отображаемых в элементе
Rows коллекция, содержащая все строки в элементе управления
SortedColumn столбец, по которому выполняется сортировка
SortOrder. как сортируются элементы (Ascending, Descending, None)
Это свойство используется для указания, типа сортировки, появляется когда столбец, определенный свойством SortedColumn имеет значение свойства SortMode=Automatic.
ЗАПОЛНЕНИЕ DATAGRIDVIEW
Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim i As Integer
Dg1.RowCount = 5
Dg1.ColumnCount = 4
For i = 0 To 4
|
Dg1.Columns(i).HeaderText = Str(i + 1) |
Next
End Sub
ЗАПОЛНЕНИЕ DATAGRIDVIEW
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
For i = 0 To 4
For j = 0 To 3
Dg1.Rows(i).Cells(j).Value = Str(Int(Rnd() * 10))
Next j, i
End Sub
ЗАПОЛНЕНИЕ DATAGRIDVIEW
Private Sub Button2_Click(sender As Object, e As… Dim R As New Random
Dim Matrix(10, 10) As Integer
Dim Dt As New DataTable
For X As Integer = 0 To 9
Dt.Columns.Add("X" & X + 1)
For Y As Integer = 0 To 9
|
If Dt.Rows.Count <> 10 Then Dt.Rows.Add() |
|
Matrix(Y, X) = R.Next(100, 101) |
|
Dt(Y)(X) = Matrix(Y, X) |
|
Next |
Next
DataGridView1.DataSource = Dt
End Sub
ОБРАБОТКА СТРОК
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim s As String
s = T1.Text
Dim a As Array
a = Split(s)
For i = 0 To UBound(a)
|
T1.Text += vbCrLf + a(i) |
Next
End Sub
РАБОТА СО СПИСКОМ
Private Sub ComboBox1_KeyDown(ByVal sender As Object..
If e.KeyCode = Keys.Enter Then
If Not ComboBox1.Items.Contains(ComboBox1.Text) Then
ComboBox1.Items.Add(ComboBox1.Text)
MessageBox.Show("Новый элемент добавлен в список")
ComboBox1.DroppedDown = True
Else
MessageBox.Show("Такой элемент уже существует")
End If
End If
TextBox3.Text = ComboBox1.Text + vbCrLf + ComboBox2.Text + vbCrLf + ComboBox3.Text
End Sub
КАЛЕНДАРЬ
ldate.Text = Choose(k, DateTimePicker1.Value.ToLongDateString, Date
TimePicker1.Value.ToShortDateString)
LTime.Text = Choose(k, DateTimePicker1.Value.ToLongTimeString, DateTimePicker1.Value.ToShortTimeString)
MonthCalendar1.MinDate = Today
ПОСТРОЕНИЕ ГРАФИКОВ ФУНКЦИЙ
If btn_dec.Checked Then
For x = fmin To fmax Step stepper
y = Math.Tanh(x)
graph.DrawEllipse(pen1, x * 70, y * 70, 1, 1) Next x
End If
If btn_pol.Checked Then
For t = fmin To fmax Step stepper
r = 3 * Math.Cos(t) Math.Cos(3 * t) x = r * Math.Cos(t)
y = r * Math.Sin(t)
graph.DrawEllipse(pen1, x * 108, y * 108, 1, 1)
Next t
End If