Программное создание объекта "Image" - VB

Формулировка задачи:

Не работает т.к. я не знаю как указать путь к картинке.
Option Explicit
Dim bonus As TextBox
 
Private Sub Command3_Click()
Set bonus = Me.Controls.Add("VB.Image", "Image1", Me)
bonus.Visible = (True) 'ÄåëГ*ГҐГ¬ îáúåêò âèäèìûì
Call bonus.Move(100, 100, 5000, 285) 'ÓêГ*çûâГ*ГҐГ¬ ïîçèöèè
End Sub

Код к задаче: «Программное создание объекта "Image" - VB»

textual
Dim aPath As String, sImgName As String
  aPath = App.Path: If Right$(aPath, 1) <> "\" Then aPath = aPath & "\"
  sImgName = aPath & <имя файла>
  bonus.Picture = LoadPicture(sImgName)

11   голосов, оценка 4.273 из 5


СОХРАНИТЬ ССЫЛКУ