CommonDialog - VB

Формулировка задачи:

Помогите реализовать открытие файла чтобы юзер мог выбрать файл и программа стала работать.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Initialize()
   Dim Z As String
   FileName = CurDir + "\BaseTest\MashT.txt"
   Z = LoadCode(FileName)
   FileName = "C:\Windows\Temp\test.txt"
   Open FileName For Binary As #1
   Put #1, , Z
   Close #1
   I = 1
   
   Open FileName For Input As #1
   Call resetForm
   Call info           ' вывод информации о тесте
   Call getLevel       ' чтение информации об оценках
 
   Form1.ScaleMode = vbPixels
   Command1.Tag = 0
   
   Label1.WordWrap = True
   Label1.AutoSize = True
    
   End Sub

Решение задачи: «CommonDialog»

textual
                            Листинг программы 
                        
  Kill FileName

Оцени полезность:

9 голосов , оценка 3.778 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы