Private Declare Sub SaveToJpg2 Lib "c:\savtojpg.dll" (ByVal hWind As Long, ByVal FileName As String, ByVal Height As Long, ByVal Width As Long)
Private Sub Command1_Click()
SaveToJpg2 Picture1.hWnd, "C:\qwerty.jpg", Picture1.ScaleHeight, Picture1.ScaleWidth
End Sub
SavToJPG
Вот решил заюзать библиотеку SavToJPG. Но при обработке события сохранения VisualBsaic просто вылетает! Может посмотрите, может я чё не так делаю?
Лично я делаю так:
Кто нить скажет в чём я ошибся?
Лично я делаю так:
Код:
Кто нить скажет в чём я ошибся?
У меня все работает прекрасно!
А можеш подробней розказать, что не так?
А можеш подробней розказать, что не так?
Понимаешь, при выполнении вышеописанного мной кода, вылетает ошибка, с кнопкой "Не отправлять" и всё. Как только я не пробовал ничё не получается. Но! Если я указываю вместо Picture1.ScaleHeight и Picture1.ScaleWidth числа, то всё сохраняется нормально!
Попробуй так:
[font="Courier New"]Picture1.ScaleHeight / Screen.TwipsPerPixelY
Picture1.ScaleWidth / Screen.TwipsPerPixelX[/font]
или так:
[font="Courier New"]Picture1.Height
Picture1.Width[/font]
[font="Courier New"]Picture1.ScaleHeight / Screen.TwipsPerPixelY
Picture1.ScaleWidth / Screen.TwipsPerPixelX[/font]
или так:
[font="Courier New"]Picture1.Height
Picture1.Width[/font]
Цитата:
Picture1.ScaleHeight / Screen.TwipsPerPixelY
Picture1.ScaleWidth / Screen.TwipsPerPixelX
Picture1.ScaleWidth / Screen.TwipsPerPixelX
Пишет что необходим объект.
Bard, выложи пожалуйста свои исходник. Pliase
[QUOTE=ace lighting]Bard, выложи пожалуйста свои исходник. Pliase[/QUOTE]
Выкладываю.
Короче весь прокол в том, что надо установить единици измерения формы vbPixels.
Выкладываю.
Короче весь прокол в том, что надо установить единици измерения формы vbPixels.
А почему у меня больше нельзя загрузить исходники или это форум очередной раз глючит.:mad: :mad:
Короче попробуй в своём исходнике измени положение формы на такое, чтобы пикчебокс был за пределами экрана и сохрани картинку! Увидал. Ну и как от этого глюка избавиться?:mad:
Короче попробуй в своём исходнике измени положение формы на такое, чтобы пикчебокс был за пределами экрана и сохрани картинку! Увидал. Ну и как от этого глюка избавиться?:mad:
[QUOTE=ace lighting]Ну и как от этого глюка избавиться?:mad:[/QUOTE]
Переписать библю.
Переписать библю.
А ты знаешь другие библиотеки для сохранения в jpg?
А я вот тут подумал! Возьмём стандартный Paint. Он ведь сохраняет картинки, отсюда следует, что он использует какую-то библю. Вопрос - какую?