フォームに
FlowLayoutPanel1
TextBox1
を配置し、以下のコード作成する。
実行すると、FlowLayoutPanel1に0から9のボタンが表示されますので、それをクリックすると、テキストボックスに、電卓のように数字が出ます。
ご意向に沿ったものか分かりませんが、ご参考にして頂ければと思います。
vb.net
1Public Class Form1
2 Private keta As Integer = 15
3 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
4 For i As Integer = 0 To 9
5 Dim btn As New Button
6 btn.Text = i.ToString
7 AddHandler btn.Click, AddressOf Button1_Click
8 FlowLayoutPanel1.Controls.Add(btn)
9 Next
10 End Sub
11 Private Sub Button1_Click(sender As Object, e As EventArgs)
12 Dim btn As Button = CType(sender, Button)
13 TextBox1.Text = Microsoft.VisualBasic.Strings.Right(TextBox1.Text & btn.Text, keta)
14 End Sub
15End Class
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/07/24 07:00
2021/07/24 07:01