Создание портативной программы - VB

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

Возможно ли создать портативную программу, в которой значения выпадающих списков или других элементов будут храниться в таблице данных? Я чайник, который знаком только с реестром и другими вариантами...

Код к задаче: «Создание портативной программы - VB»

textual
Private Sub Command1_Click() 'добавление позиции и сохранение
Dim Ff As Long
      Combo1.ListIndex = Combo1.ListCount - 1
      If Combo1.ListIndex >= 0 Then Combo1.AddItem (Text2.Text)
      Ff = FreeFile
   Open App.Path & "\111.txt" For Output As Ff
      For i = 0 To Combo1.ListCount - 1
          Combo1.ListIndex = i
          Print #Ff, Combo1
      Next
   Close #Ff
End Sub
 
Private Sub Command2_Click() 'удаление позиции и сохранение
Dim Ff As Long
      If Combo1.ListIndex >= 0 Then Combo1.RemoveItem Combo1.ListIndex
      Ff = FreeFile                                                                                              
   Open App.Path & "\111.txt" For Output As Ff
      For i = 0 To Combo1.ListCount - 1
          Combo1.ListIndex = i
          Print #Ff, Combo1
      Next
   Close #Ff
End Sub
 
Private Sub Form_Load() 'загрузка списка из файла .txt
Dim StTemp As String
Dim Ff As Long
      Ff = FreeFile
      Open App.Path & "\111.txt" For Input As Ff
          Do Until EOF(Ff)
          Line Input #1, StTemp
          Combo1.AddItem StTemp
          Loop
      Close Ff
End Sub

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

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

6   голосов, оценка 4.667 из 5


СОХРАНИТЬ ССЫЛКУ