Страница: 1 |
|
Вопрос: Помогите!!!!!!!!!
|
Добавлено: 26.05.08 23:55
|
|
Автор вопроса: Imperator | ICQ: 366698887
|
У меня есть процэдура которая сохраняет растровое изображения, мне нужно переделать этод код по векторному принцыпу с помощю DXF файла. Напимер у нас есть линия, эта процэдура должна запоминать только толщину этой линии,точки начала и конца.А потом с помощю процэдуры открытия должно считывать эти даные и отображать рисунок.Ниже написаный код на Visual Basic.
Спасибо наперед!
Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
With SaveFileDialog1
.Filter = "Все файлы рисунков |*.*|(*.bmp)|*.bmp|(*.JPEG)|*.JPEG|(*.jpg)|*.jpg"
If .ShowDialog() = Windows.Forms.DialogResult.OK Then
F.MdiParent = Me
F.FName = .FileName
F.Text = F.FName
F.picBox.Image.Save(.FileName)
F.IsSaved = True
SaveToolStripMenuItem.Enabled = True
End If
End With
End Sub
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click, OpenToolStripButton.Click
F = New frmPaint
F.MdiParent = Me
With OpenFileDialog1
If .ShowDialog() = Windows.Forms.DialogResult.OK Then
.Filter = "Все файлы рисунков |*.*|(*.bmp)|*.bmp|(*.JPEG)|*.JPEG|(*.jpg)|*.jpg"
F.Show()
F.picBox.Load(.FileName)
F.FName = .FileName
F.Text = F.FName
F.IsSaved = True
SaveToolStripMenuItem.Enabled = True
End If
End With
End Sub
Ответить
|
Страница: 1 |
Поиск по форуму