salut
voici un code pour récupérer la position d'un bouton sur la form1, en gardant la position dans un fichier texte .
je suis parti de ton code et de ton exemple.
Pour tester mon code, mets juste un bouton au nom "Button1".
Dim p As Point
Dim _CheminFichier As String = "C:\Users\Khalil Kt\Desktop\test.txt"
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim kk As New System.IO.StreamWriter(_CheminFichier)
Button1.Location = New System.Drawing.Point(50, 50)
Button1.Size = New System.Drawing.Size(100, 25)
p = New Point(Button1.Location)
kk.Write(p)
kk.Close()
End Sub
Private Sub Button1_Click_1(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim tt As String = IO.File.ReadAllText(_CheminFichier)
tt = tt.Replace(",", ";")
tt = tt.Replace("{X=", Nothing)
tt = tt.Replace("Y=", Nothing)
tt = tt.Replace("}", Nothing)
Dim converter As System.ComponentModel.TypeConverter = System.ComponentModel.TypeDescriptor.GetConverter(GetType(Point))
'Si on laisse la valeur tt avec les {} = {X=100,Y=100}, on a un bug à la convertion "Converter.ConvertFrom(tt)"
p = New Point(CType(converter.ConvertFrom(tt), Point))
p.X += 20
p.Y += 20
Button1.Location = p
Button1.Text = CStr(p.ToString)
IO.File.WriteAllText(_CheminFichier, p.ToString)
End Sub
Voila j'espère que cela à pu t'aider.
A+