mehrere Panels speichern

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    mehrere Panels speichern

    Ein Programm soll x Buttons per Code erzeugen. Diese buttons können ihre
    Position verändern. Beim Schließen des Programms werden alle Buttons in
    einer Konfigurationsdatei gespeichert. Wie mache ich es, dass die
    Buttons beim nächsten Programmstart wieder an ihrer gespeicherten
    Position erstellt werden?

    Quellcode

    1. Public Class Form1
    2. Inherits System.Windows.Forms.Form
    3. Private isdown As Boolean
    4. Private clickPoint As Point
    5. Private btnArray(1000000) As Button
    6. Dim pathdirectory As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles + "\Buttons bewegen"
    7. Dim path As String = My.Computer.FileSystem.SpecialDirectories.ProgramFiles + "\Buttons bewegen\location.ini"
    8. Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    9. Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
    12. Public Function INI_ReadValueFromFile(ByVal strSection As String, ByVal strKey As String, ByVal strDefault As String, ByVal strFile As String) As String
    13. Dim strTemp As String = Space(1024), lLength As Integer
    14. lLength = GetPrivateProfileString(strSection, strKey, strDefault, strTemp, strTemp.Length, strFile)
    15. Return (strTemp.Substring(0, lLength))
    16. End Function
    18. Public Function INI_WriteValueToFile(ByVal strSection As String, ByVal strKey As String, ByVal strValue As String, ByVal strFile As String) As Boolean
    19. Return (Not (WritePrivateProfileString(strSection, strKey, strValue, strFile) = 0))
    20. End Function
    23. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    24. If IO.File.Exists(path) = True Then
    25. IO.File.Delete(path)
    26. End If
    27. If IO.Directory.Exists(pathdirectory) = False Then
    28. IO.Directory.CreateDirectory(pathdirectory)
    29. If IO.File.Exists(path) = False Then
    30. IO.File.Create(path)
    31. End If
    32. End If
    33. End Sub
    35. Private Sub btnArray_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
    36. Dim itemClicked As Button = CType(sender, Button)
    37. Dim index As Integer = -1I
    39. For i As Integer = LBound(btnArray) To UBound(btnArray)
    40. If btnArray(i) Is itemClicked Then
    41. index = i
    42. Exit For
    43. End If
    44. Next
    46. If index >= 0 Then
    47. If isdown = True Then
    48. btnArray(index).Location = New Point(btnArray(index).Location.X - (clickPoint.X - e.Location.X), btnArray(index).Location.Y - (clickPoint.Y - e.Location.Y)) ' Berechnung des Abstands zum anfänglichen Punkt auf dem Button -> den Wert dann vom Button abziehen bzw. addieren (wenn negative Zahl heraus kommt)
    49. End If
    50. End If
    51. End Sub
    53. Private Sub btnArray_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
    54. Dim itemClicked As Button = CType(sender, Button)
    55. Dim index As Integer = -1I
    56. For i As Integer = LBound(btnArray) To UBound(btnArray)
    57. If btnArray(i) Is itemClicked Then
    58. index = i
    59. Exit For
    60. End If
    61. Next
    63. If index >= 0 Then
    64. isdown = False
    65. End If
    66. End Sub
    68. Private Sub btnArray_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs)
    69. Dim itemClicked As Button = CType(sender, Button)
    70. Dim index As Integer = -1I
    71. For i As Integer = LBound(btnArray) To UBound(btnArray)
    72. If btnArray(i) Is itemClicked Then
    73. index = i
    74. Exit For
    75. End If
    76. Next
    78. If index >= 0 Then
    79. clickPoint = New Point(e.Location.X, e.Location.Y)
    80. isdown = True
    81. End If
    82. End Sub
    84. Private Sub Form1_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    85. Try
    86. For i As Integer = LBound(btnArray) To UBound(btnArray)
    87. For Each Button As Control In Me.Controls
    88. INI_WriteValueToFile("Button(" & CStr(i) & ")", "X", btnArray(i).Location.X, path)
    89. INI_WriteValueToFile("Button(" & CStr(i) & ")", "Y", btnArray(i).Location.Y, path)
    90. My.Settings.buttons = CStr(i)
    91. Next
    92. Next
    93. Catch ex As Exception
    95. End Try
    97. End Sub
    99. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    100. For i As Integer = 0 To Val(TextBox1.Text) - 1
    101. btnArray(i) = New Button
    102. With btnArray(i)
    103. .Parent = Me
    104. .Parent.Controls.Add(btnArray(i))
    105. .Name = "Button" & CStr(i)
    106. .TabIndex = i
    107. .Text = "Button(" & CStr(i) & ")"
    108. .Size = New Size(80, 30)
    109. .Location = New Point(10, 10 + i * .Height)
    110. .Visible = True
    111. .FlatStyle = FlatStyle.Popup
    112. AddHandler .MouseDown, AddressOf btnArray_MouseDown
    113. AddHandler .MouseMove, AddressOf btnArray_MouseMove
    114. AddHandler .MouseUp, AddressOf btnArray_MouseUp
    115. End With
    116. Next i
    117. End Sub
    118. End Class

    Die gespeicherten Daten auslesen und den Buttons zuweisen?
    So wie du ausließt und abspeicherst nur eben anders herrum, die Code Zeile quasi umdrehen.

    Aber das meinst Du nicht wirklich oder doch?

    Das Ereignis Load/Init wirst Du ja wohl kennen, wenn ich mir so deinen Code anschaue.

    Und wofür braucht man bitte 1.000.000 Buttons?!

    Die 1000000 Buttons sind nur das Maximale, wieviele buttons erstellt werden, bestimmt der User.
    Ich habe es schon folgendermaßen versucht.

    VB.NET-Quellcode

    1. Try
    2. For i As Integer = LBound(btnArray) To UBound(btnArray)
    3. For Each Button As String In path
    4. btnArray(i) = New Button
    5. With btnArray(i)
    6. .Parent = Me
    7. .Parent.Controls.Add(btnArray(i))
    8. .Name = "Button" & CStr(i)
    9. .TabIndex = i
    10. .Text = "Button(" & CStr(i) & ")"
    11. .Size = New Size(INI_ReadValueFromFile("Button(" & CStr(i) & ")", "X", "", path), (INI_ReadValueFromFile("Button(" & CStr(i) & ")", "Y", "", path)))
    12. .Location = New Point(10, 10 + i * .Height)
    13. .Visible = True
    14. .FlatStyle = FlatStyle.Popup
    15. AddHandler .MouseDown, AddressOf btnArray_MouseDown
    16. AddHandler .MouseMove, AddressOf btnArray_MouseMove
    17. AddHandler .MouseUp, AddressOf btnArray_MouseUp
    18. End With
    19. My.Settings.buttons = CStr(i)
    20. Next
    21. Next i
    22. Catch ex As Exception
    24. End Try


    Allerdings wird mir nun nur 1 Button mit der Location (0, 0) im Standartdesign angezeigt (was eigentlich nicht sein sollte).

    Mach Dir eine DataTable, wo Du für jeden Button eine Zeile anlegst.
    Die DataTable kannst Du per DataTable.SaveXml(PFAD) und DataTable.LoadXml(PFAD) ganz easy handeln.
    Außerdem:
    Statt

    VB.NET-Quellcode

    1. Private btnArray(1000000) As Button

    malch lieber

    VB.NET-Quellcode

    1. Private btnArray As List(Of Button)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Probier mal dies:
    Form mit DataGridView (leer!) und Button
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private _DataTable As DataTable
    5. Public Sub New()
    6. InitializeComponent()
    8. Dim _Bezeichnung As New System.Data.DataColumn("Bezeichnung")
    9. _Bezeichnung.DataType = GetType([String])
    10. '_Bezeichnung.AutoIncrement = true ' nur bei GetType([Integer])
    12. Dim _Inhalt As New System.Data.DataColumn("Inhalt")
    13. _Inhalt.DataType = GetType([String])
    15. _DataTable = New System.Data.DataTable("MyTableName")
    16. _DataTable.Columns.Add(_Bezeichnung)
    17. _DataTable.Columns.Add(_Inhalt)
    19. _DataTable.Constraints.Add("Key1", _Bezeichnung, True) ' "Key1" ist der Name der Einschränkung; IDColumn ist Primärschlüssel
    21. DataGridView1.DataSource = _DataTable
    23. End Sub
    25. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    26. _DataTable.WriteXml("DEIN_FILENAME")
    27. End Sub
    29. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende