VISUAL BASIC 질문 - 결과 값 저장

사용된 개발툴 : Visual Studio 2022 Community Editon VB.net

​

1. UI 작성

Label1 (Label 컨트롤), txtFilePath (TextBox 컨트롤),

Label2 (Label 컨트롤), txtMember (TextBox 컨트롤), btnNew (Button 컨트롤)

2. 소스코드

Imports System.IO Imports System.Reflection.Emit Public Class Form1 '참고 : https://www.codeproject.com/Questions/5367287/Save-the-time-value-even-close-the-program-and-con Private Sub SaveLastMember() Dim sfileMember As String = txtMember.Text Dim sFilePath As String sFilePath = txtFilePath.Text Using writer As New StreamWriter(sFilePath) writer.WriteLine(sfileMember) End Using End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load txtFilePath.Enabled = False txtMember.Enabled = False txtFilePath.Text = Application.StartupPath + "\Member.txt" '마지막 변수를 Member.txt 파일에 저장 Dim sFilePath As String sFilePath = txtFilePath.Text If File.Exists(sFilePath) Then Using reader As New StreamReader(sFilePath) Dim sfileMember As String = reader.ReadLine() txtMember.Text = sfileMember End Using Else txtMember.Text = "AAA-1" End If End Sub Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click Dim strArr() As String = txtMember.Text.Split("-") '문자열 구분자로 분리 txtMember.Text = strArr(0) + "-" + (CInt(strArr(1)) + 1).ToString End Sub Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed SaveLastMember() End Sub End Class

3. 실행결과 캡쳐

사용된 캡쳐 유틸리티 : gifCam ( https://blog.bahraniapps.com/gifcam/ )

​