ник: ddi
1.4 как добавить собствиную картинку дапустим (у меня так) картинка лежит в папке temp а эта папка рядом с програмой
саздаём Модуль в ней пишем
Public Function getAppPath() As String
getAppPath = Left(CurrentDb.name, Len(CurrentDb.name) _
- Len(dir(CurrentDb.name))) ' априделаем место нашей програмы
End Function
и
Sub pic(imageID As String, ByRef image) 'image callback
Set image = LoadPicture(getAppPath & "temp\" & imageID) ' и дабавлаем картинку
End Sub
но можно дабавть только .BMP .GIF .JPG но так не красиво и собствено отредактируем код
Sub pic(imageID As String, ByRef image) 'image callback
Set image = LoadPictureGDIP(getAppPath & "temp\" & imageID)
End Sub
и дабавлаем