'Записує в нього всі дані
Write # 1, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i), maz (i)
Next i
Close # 1 'Закриває файл "data1"
Command2.Enabled = False 'Робить кнопку запису даних у файл недоступною після запису
Command3.Enabled = True 'Робить доступною кнопку переходу в ін форму
End Sub
В
Private Sub Command3_Click ()
Form1.Hide 'Приховує 1 форму
Form2.Show 'Показує 2 форму
Command1.Enabled = True 'Робить доступною кнопку знаходження середніх значень
В
End Sub
Private Sub Dir1_Change ()
File1 = Dir1 ' Відображає в FileListBox файли, що містяться в DirListBox
End Sub
В
Private Sub Drive1_Change ()
ChDrive Drive1 ' Міняє диск
Dir1 = Drive1 ' Відображає в DirListBox каталоги диска, зазначеного в DriveListBox
ChDir Dir1 ' Міняє каталог
End Sub
В
Private Sub File1_Click ()
Command2.Enabled = True 'Робить кнопку запису даних у файл доступною
End Sub
В
Private Sub Form_Load ()
Label14.Visible = False ' Робить невидимою мітку з повідомленням
Dir1.Enabled = False ' Робить недоступним DirListBox
Drive1.Enabled = False ' Робить недоступним DriveListBox
File1.Enabled = False ' Робить недоступним FileListBox
Command2.Enabled = False 'Робить кнопку запису даних у файл недоступною
Command3.Enabled = False 'Робить недоступною кнопку переходу в ін форму
MsgBox "Привіт! Ласкаво просимо в Visual Basic! "'Видає повідомлення ' Видає вітальне повідомлення
End Sub
В
Private Sub Text1_Change ()
Text1.Enabled = False 'Робить текстове поле недоступним
End Sub
В
Private Sub Text2_Change ()
Text2.Enabled = False 'Робить текстове поле ...
