VPF::Как сохранить положение раставленых мышью объектов

rayrat89

Дата 15.6.2012, 05:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 15.6.2012

Репутация: нет
Всего: нет

Раставляю обекты по форме, после перезапуска приложения все положения слетают.. как сделать чтобы их положения сохранялись?
вот код

Код



Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "_ДЛЯ_ПРОГРАММЫ____DataSet.Основная". При необходимости она может быть перемещена или удалена.
        Me.ОсновнаяTableAdapter.Fill(Me._ДЛЯ_ПРОГРАММЫ DataSet.Основная)
        'TODO: данная строка кода позволяет загрузить данные в таблицу "_ДЛЯ_ПРОГРАММЫ____DataSet.Вспомогательная". При необходимости она может быть перемещена или удалена.
        Me.ВспомогательнаяTableAdapter.Fill(Me._ДЛЯ_ПРОГРАММЫ____DataSet.Вспомогательная)

    End Sub
    Private Sub ОсновнаяBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ОсновнаяBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.ОсновнаяBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me._ДЛЯ_ПРОГРАММЫ____DataSet)
    End Sub
    Private Sub ОсновнаяDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ОсновнаяDataGridView.CellContentClick
    End Sub
    Private Sub Form1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        For i As Integer = 0 To 30
            Dim p As New Panel()
            p.Width = 22
            p.Height = 22
            p.BackColor = Color.Gold
            p.Left = Int(Me.Width - 730)
            p.Top = Int(Me.Height - 590)
            AddHandler p.MouseMove, AddressOf p_MouseMove
            Me.Controls.Add(p)
        Next
        Randomize()
        For i As Integer = 0 To 30
            Dim p As New Panel()
            p.Width = 22
            p.Height = 22
            p.BackColor = Color.Brown
            p.Left = Int(Me.Width - 700)
            p.Top = Int(Me.Height - 590)
            AddHandler p.MouseMove, AddressOf p_MouseMove
            Me.Controls.Add(p)
        Next
        Randomize()
        For i As Integer = 0 To 30
            Dim p As New Panel()
            p.Width = 22
            p.Height = 22
            p.BackColor = Color.Aqua
            p.Left = Int(Me.Width - 670)
            p.Top = Int(Me.Height - 590)
            AddHandler p.MouseMove, AddressOf p_MouseMove
            Me.Controls.Add(p)
        Next
        Randomize()
        For i As Integer = 0 To 30
            Dim p As New Panel()
            p.Width = 22
            p.Height = 22
            p.BackColor = Color.Blue
            p.Left = Int(Me.Width - 640)
            p.Top = Int(Me.Height - 590)
            AddHandler p.MouseMove, AddressOf p_MouseMove
            Me.Controls.Add(p)
        Next
    End Sub
    Private Sub p_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If Control.MouseButtons = Windows.Forms.MouseButtons.Left Then
            CType(sender, Panel).Left = Control.MousePosition.X - Me.Left - CType(sender, Panel).Width
            CType(sender, Panel).Top = Control.MousePosition.Y - Me.Top - CType(sender, Panel).Height
        End If
    End Sub

    Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click

    End Sub

    Private Sub ВспомогательнаяDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles ВспомогательнаяDataGridView.CellContentClick

    End Sub
End Class

diadiavova

Дата 15.6.2012, 08:37 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(rayrat89 @ 15.6.2012, 06:42

)

Раставляю обекты по форме, после перезапуска приложения все положения слетают..

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

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

rayrat89

Дата 15.6.2012, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 15.6.2012

Репутация: нет
Всего: нет

Там заданы координаты где эти объекты появятся, тк этих объектов изночально нету
Вопрос в том как сохранить эти объекты после того как я их переметил? как нужно прописать процедуру? или гден мне можно найти такую информацию?

diadiavova

Дата 15.6.2012, 10:20 (ссылка)

(нет голосов)

Загрузка ...

Доктор Зло(диагност, настоящий, с лицензией и полномочиями)

Профиль
Группа: Модератор
Сообщений: 5821
Регистрация: 14.8.2008
Где: В Коньфпольте

Репутация: 8
Всего: 142

Цитата(rayrat89 @ 15.6.2012, 11:15

)

Там заданы координаты где эти объекты появятся

Ну вот они и появляются там, где ты указал. Указывай координаты взятые из параметров приложения
https://www.google.ru/search?ie=utf-8&q...:{moz:official}
О параметрах читай по первым двум ссылкам.

--------------------

Хочешь получить мудрый совет - читай подписи участников форумов.
Злой доктор Щасзаболит smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »