Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Чото не сохраняет рисунок??? Добавлено: 18.12.06 12:05  

Автор вопроса:  Oleksiyko
Вот код моей проги, может кто то найдет ошибку.

Private Sub cmdClean_Click()
pctPaint.MouseIcon = LoadPicture(App.Path & "\clean.cur")
pctPaint.ForeColor = pctPaint.BackColor
pctPaint.DrawWidth = 20
End Sub


Private Sub Form_Load()
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
End Sub

Private Sub lblBlack_Click()
Beep
pctPaint.ForeColor = lblBlack.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblBlue_Click()
Beep
pctPaint.ForeColor = lblBlue.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblBrown_Click()
Beep
pctPaint.ForeColor = lblBrown.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblDarkGreen_Click()
Beep
pctPaint.ForeColor = lblDarkGreen.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblGreen_Click()
Beep
pctPaint.ForeColor = lblGreen.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblOrange_Click()
Beep
pctPaint.ForeColor = lblOrange.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblRed_Click()
Beep
pctPaint.ForeColor = lblRed.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblSilver_Click()
Beep
pctPaint.ForeColor = lblSilver.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblSky_Click()
Beep
pctPaint.ForeColor = lblSky.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblViolet_Click()
Beep
pctPaint.ForeColor = lblViolet.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblWhite_Click()
Beep
pctPaint.ForeColor = lblWhite.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub

Private Sub lblYellow_Click()
Beep
pctPaint.ForeColor = lblYellow.BackColor
pctPaint.MouseIcon = LoadPicture(App.Path & "\pencil.cur")
pctPaint.DrawWidth = 5
End Sub


Private Sub mnuExit_Click()
Dim R As Integer
R = MsgBox("Are you sure want to exit from the MiniPaint?", vbYesNo + vbQuestion + vbDefaultButton2, "Exit MiniPaint?")
If R = vbYes Then End
End Sub

Private Sub mnuNew_Click()
Dim R As Integer
R = MsgBox("Are you sure want to new picture?", vbYesNo + vbQuestion + vbDefaultButton2, "Are you sure?")
If R = vbYes Then pctPaint.Cls
End Sub

Private Sub mnuOpen_Click()
    CommonDialog1.ShowOpen
End Sub

Private Sub mnuSave_Click()
Dim FN As String
CommonDialog1.FileName = ".bmp"
FN = CommonDialog1.FileName
Clipboard.Clear
Clipboard.SetData pctPaint.Picture
CommonDialog1.ShowSave
If CommonDialog1.Flags = 1024 Then
SavePicture Clipboard.GetData, FN
Else
Exit Sub
End If
End Sub
Private Sub pctPaint_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
pctPaint.CurrentX = X
pctPaint.CurrentY = Y
End If
End Sub

Private Sub pctPaint_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Me.Refresh
pctPaint.Line (X, Y)-(X, Y)
End If
End Sub

Private Sub pctPaint_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then AutoRedraw = True
End Sub

Ответить

  Ответы Всего ответов: 11  

Номер ответа: 1
Автор ответа:
 20vek



Вопросов: 10
Ответов: 71
  Профиль | | #1 Добавлено: 18.12.06 15:12

Private Sub mnuSave_Click()
Dim FN As String
CommonDialog1.FileName = ".bmp"
FN = CommonDialog1.FileName
Clipboard.Clear
Clipboard.SetData pctPaint.Picture
CommonDialog1.ShowSave
If CommonDialog1.Flags = 1024 Then
SavePicture Clipboard.GetData, FN
Else
Exit Sub
End If
End Sub

вот здесь у тебя выскакивает окно для сохранения
ты надеюсь вводиш имя для соранения?

Ответить

Номер ответа: 2
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
  Web-сайт: sharpc.livejournal.com
 Профиль | | #2 		Добавлено: 18.12.06 15:21
Private Sub Command1_Click()
    Picture1.Line (0, 0)-(200, 100), vbRed
    SavePicture Picture1.Image, "c:\1.bmp"
End Sub

Работает. Не забудь Picture1.AutoRedraw = True

Ответить

Номер ответа: 3
Автор ответа:
 20vek



Вопросов: 10
Ответов: 71
  Профиль | | #3 Добавлено: 18.12.06 15:30
извени сразу не заметил флаг поставь 0
If CommonDialog1.Flags = 0 Then

Ответить

Номер ответа: 4
Автор ответа:
 20vek



Вопросов: 10
Ответов: 71
  Профиль | | #4 Добавлено: 18.12.06 15:54
'Dim FN As String
CommonDialog1.FileName = ""
'FN = CommonDialog1.FileName
Clipboard.Clear
Clipboard.SetData Picture1.Picture
CommonDialog1.ShowSave
If CommonDialog1.FLAGS = 0 Then
SavePicture Clipboard.GetData, CommonDialog1.FileName & ".bmp"
Else
Exit Sub
End If

вот рабочий код отработай только если нажмет омена

Ответить

Номер ответа: 5
Автор ответа:
 20vek



Вопросов: 10
Ответов: 71
  Профиль | | #5 Добавлено: 18.12.06 16:09
CommonDialog1.Flags = cdlOFNOverwritePrompt

можеш вставить эту строчку чтобы неназвать уже существующим именем теперь винда предупредит

Ответить

Номер ответа: 6
Автор ответа:
 -АлександР-



Вопросов: 55
Ответов: 1008
  Web-сайт: sham.clan.su
 Профиль | | #6 		Добавлено: 18.12.06 21:19
А филтер где?
Почему не советуете?

Ответить

Номер ответа: 7
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #7 		Добавлено: 23.12.06 01:29
Или так
Private Sub Command1_Click()
Call SavePicture(Picture1.Picture, "C:\1.bmp";)
End Sub

Ответить

Номер ответа: 8
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #8 Добавлено: 23.12.06 13:38
2 Боцман
Велика разница :)

Ответить

Номер ответа: 9
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #9 		Добавлено: 23.12.06 23:49
Разница может и невилика просто корочяе,
 а ему помоему нужен графический редактор плюс сохранение, сегодня просто в BMP а завтра в JPG.
Вот ссылка на графический редактор с сохранением в JPG сразу пусть иследует. Исходник можно взять здесьSaveToJpg.zip

Ответить

Номер ответа: 10
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #10 		Добавлено: 23.12.06 23:50
Извеняюсь вот ссылка
http://rus-skipper.narod.ru/raznoe/SaveToJpg.zip

Ответить

Номер ответа: 11
Автор ответа:
 Боцман



ICQ: 295725312 

Вопросов: 53
Ответов: 830
  Web-сайт: Rus-Skipper.narod.ru
 Профиль | | #11 		Добавлено: 24.12.06 00:06
PS короче это на ответ №2, в примере используется
CommonDialog, а мне лично нравится GetSaveFileName ибо люблю проги работающие из папки, т.е. без сетупов. Но это ему решать, в зависимости от стоящей задачи.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам