Содержание
- 2. СОЗДАНИЕ МЕНЮ
- 19. Программный код Public Class Form1 Dim n As Integer Private Sub mnuExit_Click(sender As Object, e As
- 20. For i = 0 To n - 1 stroka3 = "" stroka = file1.ReadLine() dlin =
- 21. DataGridView1.DataSource = dt For j = 1 To n dt.Columns.Add(New DataColumn(CStr(j), GetType(String))) Next j For i
- 23. Скачать презентацию
Слайд 2
СОЗДАНИЕ МЕНЮ
СОЗДАНИЕ МЕНЮ
Слайд 3
Слайд 4
Слайд 5
Слайд 6
Слайд 7
Слайд 8
Слайд 9
Слайд 10
Слайд 11
Слайд 12
Слайд 13
Слайд 14
Слайд 15
Слайд 16
Слайд 17
Слайд 18
Слайд 19
Программный код
Public Class Form1
Dim n As Integer
Private Sub mnuExit_Click(sender
Программный код
Public Class Form1
Dim n As Integer
Private Sub mnuExit_Click(sender
As Object, e As System.EventArgs) Handles mnuExit.Click
End
End Sub
Private Sub mnuOpen_Click(sender As Object, e As System.EventArgs) Handles mnuOpen.Click
Dim filename1 As String
Dim file1 As Object
Dim stroka As String, i As Integer, a(,) As Single, dlin As Integer, k As Integer
Dim stroka2 As String, simv As String, stroka3 As String
Dim dt As New DataTable
OpenFileDialog1.ShowDialog()
filename1 = OpenFileDialog1.FileName
file1 = New System.IO.StreamReader(filename1)
stroka = file1.ReadLine()
ListBox1.Items.Add(stroka)
n = CInt(stroka)
ReDim a(0 To n - 1, 0 To n - 1)
End
End Sub
Private Sub mnuOpen_Click(sender As Object, e As System.EventArgs) Handles mnuOpen.Click
Dim filename1 As String
Dim file1 As Object
Dim stroka As String, i As Integer, a(,) As Single, dlin As Integer, k As Integer
Dim stroka2 As String, simv As String, stroka3 As String
Dim dt As New DataTable
OpenFileDialog1.ShowDialog()
filename1 = OpenFileDialog1.FileName
file1 = New System.IO.StreamReader(filename1)
stroka = file1.ReadLine()
ListBox1.Items.Add(stroka)
n = CInt(stroka)
ReDim a(0 To n - 1, 0 To n - 1)
Слайд 20
For i = 0 To n - 1
stroka3 = ""
stroka3 = ""
stroka = file1.ReadLine()
dlin = Len(stroka)
k = 0
stroka2 = ""
For j = 1 To dlin
simv = Mid(stroka, j, 1)
If simv <> " " Then
stroka2 = stroka2 + simv
Else
a(i, k) = CSng(stroka2)
stroka2 = ""
stroka3 = stroka3 + CStr(a(i, k)) + " "
k = k + 1
End If
Next j
a(i, k) = CSng(stroka2)
stroka3 = stroka3 + CStr(a(i, k)) + " "
ListBox1.Items.Add(stroka3)
Next i
dlin = Len(stroka)
k = 0
stroka2 = ""
For j = 1 To dlin
simv = Mid(stroka, j, 1)
If simv <> " " Then
stroka2 = stroka2 + simv
Else
a(i, k) = CSng(stroka2)
stroka2 = ""
stroka3 = stroka3 + CStr(a(i, k)) + " "
k = k + 1
End If
Next j
a(i, k) = CSng(stroka2)
stroka3 = stroka3 + CStr(a(i, k)) + " "
ListBox1.Items.Add(stroka3)
Next i
Слайд 21
DataGridView1.DataSource = dt
For j = 1 To n
dt.Columns.Add(New
DataGridView1.DataSource = dt
For j = 1 To n
dt.Columns.Add(New
DataColumn(CStr(j), GetType(String)))
Next j
For i = 0 To n - 1
dt.Rows.Add(New String() {a(i, 0), a(i, 1), a(i, 2), a(i, 3), a(i, 4)})
Next i
file1.Close()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
ColorDialog1.ShowDialog()
Button1.BackColor = ColorDialog1.Color
End Sub
Next j
For i = 0 To n - 1
dt.Rows.Add(New String() {a(i, 0), a(i, 1), a(i, 2), a(i, 3), a(i, 4)})
Next i
file1.Close()
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
ColorDialog1.ShowDialog()
Button1.BackColor = ColorDialog1.Color
End Sub
Следующая -
Московские Князья