Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Работа с массивамиЛ8.pptx
Скачиваний:
6
Добавлен:
01.04.2015
Размер:
84.85 Кб
Скачать

РАБОТА С МАССИВАМИ

СВОЙСТВА 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