Создание портативной программы - 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
Похожие ответы