toolstrip ve toolstrip container

[mvsty]

şimdi formumuzdaki üstte duran toolstripi aldık ve toolstrip container e koyduk programı çalıştırdık ve üstte değilde solda olmasını istedik sola aldık programı kapatıp açınca bu yine üstte çıkıyor. kısacası son kullanıcı bunu nereye isterse yapıştırsın ve orda kalsın. bunu nasıl yapabiliriz?

[civil]

Nesnenin son konumunu formun kapatılıyorkenki olayında bir text e yazdırıp.Formun load olayında da bu texten bilgiyi okutup ona göre açılmasını sağlayabilirsin.

[mvsty]

bu texte yazdığımı illaki bi yere kaydettirmem lazım dimi? işte asıl sorunumda bu nereye kaydetmeliyim?

[civil]

C\windows\system32 uygunmu

[mvsty]

C:\documents and settings\all users daha uggun olmazmı?

[renegade1905]

civil, mesajından alıntı:

C\windows\system32 uygunmu

kullanıcının hdd çöplük ya kaydedın bakalım...

[civil]

renegade1905, mesajından alıntı:

kullanıcının hdd çöplük ya kaydedın bakalım...

Bir çok program öyle yapmıyor mu zaten hdd yi...
Bence kullanıcının ulaşamıyacağı(mükemmel bir gayret göstermedikten sonra) olmalı
Bu nedenle orayı dedim tabiki documents and settings de olur.

[mvsty]

ama nasıl olabilir? sadece yolunu açıklarsanız sevinirim

[Revlis]

settings diye bir olay var ...
Toolstrip seçili iken, properties kısmından Application Settings i seçin, çıkan ekranda konum bilgisi ile ilgili olan yeri seçin yeni değişken ismi girin.

[civil]

civil, mesajından alıntı:

Nesnenin son konumunu formun kapatılıyorkenki olayında bir text e yazdırıp.Formun load olayında da bu texten bilgiyi okutup ona göre açılmasını sağlayabilirsin.

Bunun bir şaka olduğunu sanıyorsun demek çok ilginç ... Revlis in dediğini anlamadım ama mutlaka doğrudur... Ben ise cevabımın doğruluğunu kanıtlıyayım inşallah yardımı dokunur.Form1 üzerinde sadece bir Button var ve sürükle bırakla yeri değişiyor ayrıca her yeniden başlattığında eski bıraktığın yerde kalıyor.
Önce boş bir module aşağıdaki yapıyı tanımlıyoruz.

Module Module1
    Structure kayit
        <VBFixedString(10)> Public lef As String
        <VBFixedString(10)> Public righ As String
    End Structure
    Public konum As kayit
End Module

Daha sonra formun kod bölümüne aşağıdaki kodları yazdım

Public Class Form1
'Nesneyi sürükle bırak ile hareket ettirmek için kullandığım değişkenler
Private MouseMoving As Boolean
Private MouseStartPoint As Point

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        MouseMoving = True
        MouseStartPoint = e.Location
    End Sub

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If MouseMoving Then
            Button1.Left += e.X - MouseStartPoint.X
            Button1.Top += e.Y - MouseStartPoint.Y
        End If
    End Sub

    Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
        MouseMoving = False
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        FileOpen(1, "C:\girdi\kayit.txt", OpenMode.Random, OpenAccess.ReadWrite, , Len(konum))
        FileGet(1, konum, 1)
        konum.righ = Button1.Top
        konum.lef = Button1.Left
        FilePut(1, konum, 1)
        FileClose(1)
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        System.IO.Directory.CreateDirectory("C:\girdi")
        FileOpen(1, "C:\girdi\kayit.txt", OpenMode.Random, OpenAccess.ReadWrite, , Len(konum))
        FileGet(1, konum, 1)
        If Trim(konum.lef) = "" Then
            FileClose(1)
            Exit Sub
        Else
            Button1.Left = CInt(Trim(konum.lef))
            Button1.Top = CInt(Trim(konum.righ))
            FileClose(1)
        End If
    End Sub
End Class

Böyle yap çalıştır bak bakalım olacakmı kodlar la ilgili anlamadığın bir nokta olursa burada sor yardımcı olabilirim.Özel mesajda yazdığın gibi kimseye bilgiçlik taslama gibi bir niyetim yok ben zaten yeterince acemiyim ki bunu burada çoğu kişi biliyor.Sadece bunun bir çözüm yolunu biliyordum ve sana yardımcı olmak istedim ...