Imports WindowsApplication1.frmHelper
Public Class frmOption
Private Sub frmOption_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For Each C As Control In GroupBox1.Controls
If TypeOf C Is TextBox Then
Dim Num As Byte = Val(C.Name.Chars(C.Name.Length - 1)) - 1
'MsgBox(Num & "-" + Sentences(Num))
C.Text = Sentences(Num)
End If
Next
End Sub
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
For Each C As Control In GroupBox1.Controls
If TypeOf C Is TextBox Then
Dim Num As Byte = Val(C.Name.Chars(C.Name.Length - 1)) - 1
Sentences(Num) = C.Text
End If
Next
MsgBox("Salvataggio completato!", MsgBoxStyle.Information)
End Sub
End Class