Вывод государственных флагов стран - VB
Формулировка задачи:
Разработайте программу для вывода государственных флагов стран. Выбор страны осуществляется с помощью элемента управления переключатель, а вывод столицы – с помощью элемента управления флажок
Россия
Греция
Норвегия Франция
Решение задачи: «Вывод государственных флагов стран»
textual
Листинг программы
Option Explicit
Option Compare Text
Dim f$
Private Sub Combo1_Click()
Image1.Picture = LoadPicture(f & Combo1.Text)
End Sub
Private Sub Form_Load()
Dim ff$, v
f = App.Path & "\Flags\"
With CreateObject("scripting.filesystemobject")
With .GetFolder(f)
For Each v In .Files
If InStr(1, v, ".ico", 1) Then Combo1.AddItem v.Name
Next
Combo1.Text = "RUS.ICO": Combo1_Click
End With
End With
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д