Потребителски панел
Запомни
Реклама

Програма за преглеждане на снимки | Автор: R3sp3k7 на 27:08:2009 в 01:14:23
Здравейте,
в този урок ще научите как може да направите програма за преглеждане на снимки с няколко екстри:
-Зареждане на снимки (inputbox)
-Раздел за грешки

GUI(графична среда)
Ето и GUI

Какво ви трябва
1 Command Button:
-Име: cmdLoad
-Надпис: Load
2 Picture Box:
-Име: Picture1
-Без надпис

Код
Добавете този код в Общите декларации, преди да добавите други кодове:
Код:
  1. Dim Error1 As Integer
    

  2. Dim Pic As String

Сега можете да добавите този код:
Код:
  1. Private Sub cmdLoad_Click()
    

  2. Pic = InputBox("What would you like to load?", "Yes?")
    

  3.  
  4. On Error GoTo Error
    

  5.  
  6. Picture1.Picture = LoadPicture(Pic)
    

  7.  
  8.  
  9. Error:
    

  10. Select Case Err.Number
    

  11. Case 53
    

  12. Error1 = MsgBox("Sorry, File not found! Please try again!", _
    

  13. vbCritical + vbOKOnly, _
    

  14. "File not found!")
    

  15. Case Else
    

  16. MsgBox (Err.Number & ", " & Err.Description)
    

  17. End Select
    

  18.  
  19. End Sub


Това е пълният код, сега следва обяснението.

Обяснение на кода
Код:
  1. Private Sub cmdLoad_Click()

Основно значение за кода е след изпълнението на този ред.

Код:
  1. Pic = InputBox("What would you like to load?", "Yes?")

Кара да се появи поле(InputBox).
Запомнете: Въведете местоположението на снимката в пространството, дадено в InputBox!

Код:
  1. On Error GoTo Error

Този код казва на VB да отиде в "Error" (Което е името на раздела за грешки).

Код:
  1. Picture1.Picture = LoadPicture(Pic)

Просто зарежда файла от местоположението което е написано от потребителя в InputBox полето.

Код:
  1. Error:
    

  2. Select Case Err.Number
    

  3. Case 53
    

  4. Error1 = MsgBox("Sorry, File not found! Please try again!", _
    

  5. vbCritical + vbOKOnly, _
    

  6. "File not found!")
    

  7. Case Else
    

  8. MsgBox (Err.Number & ", " & Err.Description)
    

  9. End Select
    

  10.  
  11. End Sub


Този код показва часта, където VB трябва да отиде ако се появи проблем с местоположението на файла. Основно, това което прави е, когато VB срещне грешка, тази част преминава в действие и ви дава съобщение гласящо, че файла не е намерен или другo съобщение. Предимствата на този метод са, че ако се натъкне на грешка то ще затвори програмата! Недостатъци са, че той изисква допълнително кодиране.

Това беше урока :)
Урока е преведен специално за www.dev-bg.eu от www.codecall.net

Още от категория: Visual Basic | Добави като любим
Коментари
Име:
Коментар:
Въведи кода*:
Категории
Реклама
Статистика
  • Уроци: 40
  • Проекти: 2
  • Коментари: 31
  • Потребители: 67
  • Общо онлайн: 5
  • Общо теми: 41
  • Общо мнения: 135