Хочу прикрутить к главной форме картинку. Картинка находится в базе mdb.
Ставлю свойства Form1 так:
BorderStyle 0 - None
Picture None
Потом в обработке формы по запуску:
- Код: Выделить всё
Private Sub Form_Load()
Dim sArr() As Byte
If ADODB_Connected() Then
myKeyRst.MoveFirst
sArr = myKeyRst.Fields(1).Value
Form1.PaintPicture PictureFromBits.PictureFromBits(sArr), 0, 0
he = Form1.Picture.Height
wi = Form1.Picture.Width
Form1.Height = he / 1.77 'тут я незнаю, как перевести height пикселей в твипы
Form1.Width = wi / 1.77 'тут тоже...
Form1.AutoRedraw = True
End If
End Sub
Но картинка не появляется! однако, если прикрутить код к кнопке какой-нибудь, тогда работает.
В общем, серьёзные вопросы:
1. Как добится, чтоб при старте приложения в форму (Picture) грузилась картинка?
2. Можно ли при свойстве Form1.Picture None добится, чтобы приложение было видно на панели задач? Этот вопрос наиболее актуален. Хочется, чтобы приложение не имело "виндошного" окна, но было видно на панели.
П.С. Во втором вопросе имеется ввиду, можно ли это сделать не средствами АПИ? Потому как пример от Terminator'a отражает вполне объёмно использование АПИ в работе с формой.
[/b]
