Презентация Visual Basic 2010 Создание меню Работа с файлами и таблицами онлайн
На нашем сайте вы можете скачать и просмотреть онлайн доклад-презентацию на тему Visual Basic 2010 Создание меню Работа с файлами и таблицами абсолютно бесплатно. Урок-презентация на эту тему содержит всего 22 слайда. Все материалы созданы в программе PowerPoint и имеют формат ppt или же pptx. Материалы и темы для презентаций взяты из открытых источников и загружены их авторами, за качество и достоверность информации в них администрация сайта не отвечает, все права принадлежат их создателям. Если вы нашли то, что искали, отблагодарите авторов - поделитесь ссылкой в социальных сетях, а наш сайт добавьте в закладки.
Оцените презентацию от 1 до 5 баллов!
- Тип файла:ppt / pptx (powerpoint)
- Всего слайдов:22 слайда
- Для класса:1,2,3,4,5,6,7,8,9,10,11
- Размер файла:1.65 MB
- Просмотров:72
- Скачиваний:1
- Автор:неизвестен
Слайды и текст к этой презентации:
№1 слайд
Содержание слайда: Visual Basic 2010
Создание меню
Работа с файлами и таблицами.
№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 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)
№20 слайд
Содержание слайда: For i = 0 To n - 1
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
№21 слайд
Содержание слайда: DataGridView1.DataSource = dt
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
№22 слайд
Содержание слайда: Private Sub mnuSaveAS_Click(sender As Object, e As System.EventArgs) Handles mnuSaveAS.Click
Dim a(n, n) As Single, i As Integer, j As Integer, filename1 As String, stroka As String
Dim file1 As Object
Dim dt As New DataTable
SaveFileDialog1.ShowDialog()
filename1 = SaveFileDialog1.FileName
file1 = New System.IO.StreamWriter(filename1)
file1.WriteLine(CStr(n))
dt = DataGridView1.DataSource
For i = 0 To n - 1
stroka = ""
For j = 0 To n - 1
a(i, j) = dt.Rows.Item(i).Item(j)
stroka = stroka + CStr(a(i, j)) + " "
Next j
file1.WriteLine(stroka)
Next i
file1.Close()
End Sub
End Class
Скачать все slide презентации Visual Basic 2010 Создание меню Работа с файлами и таблицами одним архивом:
