Вывод государственных флагов стран - 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

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

14   голосов , оценка 3.786 из 5
Похожие ответы