Вообще не пойму в чем дело...

[moppuk]

Еслт пикчербокс, в нем рисую, но рисую так следующем образом. Накидываю в него иконки, а потом их соеденя линиями... Проблема в следующем....
Сохраняю рисунок в формат bmp например, когда его открываю уже в редакторе, то иконки те самые не отображаются, а линии видны...
Кто скажет в чем может быть дело?

[Ujif]

а как ты иконки ресуешь?

[moppuk]

Икрнки просто в drag-drop переиаскиваю на этот пикчербокс из listview. Ну и соответственно они у меня загружины в imagelist...

[alibek]

Код покажи, как сохраняешь. И заодно, чему равно свойство AutoRedraw.

[moppuk]

Private Sub mnuSave_Click(Index As Integer)
cmdFile.ShowSave
SavePicture Picture1.Image, cmdFile.FileName
End Sub


Private Sub mnuOpen_Click()
cmdFile.ShowOpen
Picture1.Picture = LoadPicture(cmdFile.FileName)
End Sub

Autoredraw = true

[BV]

Накидываю в него иконки

Приведи код, как ты их "накидываешь".

[Lumen]

Попробуй в обработчике события Picture1_DragDrop написать следующее:

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

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
Picture1.PaintPicture Здесь_твоя_картинка, X, Y
End Sub


Остальное то же самое.

[moppuk]

Private Sub picture1_OLEDragDrop(data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
If data.GetData(vbCFText) = "pc" Then
cnt = cnt + 1
Load picObject(cnt)
With picObject(cnt)
Load Cline(cnt)
ReDim Preserve line_A(cnt)
ReDim Preserve line_B(cnt)
.Tag = "pc"
.Move X, Y
.Visible = True
.Picture = ImageList3.ListImages.Item(1).Picture
End With
end sub

[BV]

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

Option Explicit

Dim W As Long, H As Long

Private Sub picMain_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    picMain.Picture = picMain.Image
End Sub

Private Sub picMain_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    W = imlMain.ImageWidth * Screen.TwipsPerPixelX
    H = imlMain.ImageHeight * Screen.TwipsPerPixelY
    picMain.Cls
    picMain.PaintPicture imlMain.ListImages.Item(1).Picture, X - (W / 2), Y - (H / 2)
End Sub