Создание портативной программы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д