0

私はVS 2012に非常に慣れていないので、ユーザーが入力した内容を保存して、プログラムを再度開いたときにそこに表示されるようにする方法を考えています。現在、押すたびにラベルを 1 ずつ増やす 2 つのボタンと、ラベルを 1 つずつパーセントに分割する別のラベルがあります。

Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim k, d, r As Single
    k = Label2.Text + 1
    d = Label4.Text
    r = (d / k)
    Label2.Text = k
    Label6.Text = Format(r, "Percent")
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Dim k, d, r As Single
    k = Label2.Text
    d = Label4.Text + 1
    r = (d / k)
    Label4.Text = d
    Label6.Text = Format(r, "Percent")
End Sub
4

2 に答える 2

2

入力を外部ファイルに保存し、プログラムを再度開いてそのファイルを読み取り、フィールド(ラベル、テキストボックスなど)を初期化する必要がある場合

ここでvbを使用してファイルから読み書きすることに関する良いチュートリアル

于 2013-06-02T01:52:40.220 に答える
1

アプリケーション設定を使用して値を保存します。

[プロジェクト] --> [プロパティ] --> [設定] タブに移動します。「Label2」、「Label4」、「Label6」のエントリを追加し、Type は String のままにします。

プロジェクト設定

フォームの Load() および FormClosing() イベントにコードを追加して、アプリケーション設定との間で値をロードおよび保存します。

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If My.Settings.Label2 <> "" Then
            Label2.Text = My.Settings.Label2
        End If
        If My.Settings.Label4 <> "" Then
            Label4.Text = My.Settings.Label4
        End If
        If My.Settings.Label6 <> "" Then
            Label6.Text = My.Settings.Label6
        End If
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim k, d, r As Single
        k = Label2.Text + 1
        d = Label4.Text
        r = (d / k)
        Label2.Text = k
        Label6.Text = Format(r, "Percent")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim k, d, r As Single
        k = Label2.Text
        d = Label4.Text + 1
        r = (d / k)
        Label4.Text = d
        Label6.Text = Format(r, "Percent")
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.Label2 = Label2.Text
        My.Settings.Label4 = Label4.Text
        My.Settings.Label6 = Label6.Text
        My.Settings.Save()
    End Sub

End Class
于 2013-06-02T02:39:44.783 に答える