Перевод координат

[Sirik]

Как перевести координаты мышки в, компоненте, Image в милиметры?
Помоему "там" координаты заданы в твипах? Тогда как перевести в мм?

[GSerg]

image1.parent.scalex(x,image1.parent.scalemode, vbmillimeters)
image1.parent.scaley(y,image1.parent.scalemode, vbmillimeters)

[Sirik]

image1.parent.scalex(x,image1.parent.scalemode, vbmillimeters)
image1.parent.scaley(y,image1.parent.scalemode, vbmillimeters)

Что-то у меня эти выражения компил красным выделил, небось ошибка

[alibek]

MsgBox Image1.Parent.ScaleX(X, Image1.Parent.ScaleMode, vbMillimeters)

прекрасно работает.
Ошибка в том, что ты работал мышкой (copy-paste), а не головой, и компилятор тебе сказал, что нужен оператор равенства после закрывающейся скобки, поскольку ему непонятно, для чего тебе это выражение, если ты с ним ничего не делаешь.

[Sirik]

За всё спасибо.
Вот только ещё один вопросик: мне надо чтобы Х был в пределах -200 до +500, а Y -100 до +100
Как мне это реализовать в элементе Image?

P.S. В Picture я использовал метод Scale, но в Image я такого не нашёл

[alibek]

В Image его и не будет, пользуйся контейнером. А чтобы получить нужный контейнер, можно сделать так:

Код: Выделить всё

Function XToMillimeters(ImageControl As Image, ByVal XValue As Single) As Single
If ImageControl.Container Is Nothing Then
  ToMillimeters = ImageControl.Parent.ScaleX(XValue, ImageControl.Parent.ScaleMode, vbMillimeters)
Else
  If TypeOf ImageControl.Container Is PictureBox Then
    ToMillimeters = ImageControl.Container.ScaleX(XValue, ImageControl.Container.ScaleMode, vbMillimeters)
  Else
    ToMillimeters = ImageControl.Parent.ScaleX(XValue, vbTwips, vbMillimeters)
  End If
End If
End Function

[Ennor]

Э... либо я не догоняю, либо одно из двух, но не проще ли сразу использовать PictureBox вместо Image? Он вообще-то тоже картинки показывать умеет...

[alibek]

Он много ресурсов кушает, он фокус получает, а иногда это нежелательно (правда это лечится Enabled=False).

[Sirik]

Э... либо я не догоняю, либо одно из двух, но не проще ли сразу использовать PictureBox вместо Image? Он вообще-то тоже картинки показывать умеет...

Объясняю: у меня картинка оригинал имеет размер листа A4. Мне надо получить уменьшенную копию данного листа (чтобы можно было видеть его на экране весь сразу), поэтому я загружаю рисунок сначала в Picture, потом пересылаю в Image (здесь есть свойство Stretch). Вот и всё.
Но проблемма всё-таки остаётся: как на Image задать область (-200,500)-(-100,100)???

[alibek]

Мдя...
Image конечно кушает ресурсов больше, но раз ты все-равно используешь PictureBox, то почему бы тебе и картинку не выводить на него? Кроме того, пусть даже и Image у тебя небольшой, но памяти он будет занимать до фига, если ты в него загружаешь лист формата A4.

Используй Picture1.PaintPicture.

[Sirik]

Мдя...
Image конечно кушает ресурсов больше, но раз ты все-равно используешь PictureBox, то почему бы тебе и картинку не выводить на него? Кроме того, пусть даже и Image у тебя небольшой, но памяти он будет занимать до фига, если ты в него загружаешь лист формата A4.

Используй Picture1.PaintPicture.

Мне, в принципе, "по барабану" сколько он будет занимать памяти.

Мне надо, как-то реализовать метод SCALE в Image и всё. Но как я не знаю...

[alibek]

Тебе по барабану, системе нет.
Дубль два - пользуйся PaintPicture.

[Sirik]

Тебе по барабану, системе нет.
Дубль два - пользуйся PaintPicture.

Сори, я не просёк PaintPicture
Попробовал, всё отлично получилось. Всем спасибо