用vb.net的数组控件类制作简易计算器
本人新手,vb6.0里面的数组控件在vb.net里面不能用,我自己瞎捣鼓的一点点开头,请各位大神帮忙啊,代码如下:
Public Class Form1 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim cal As New calculator cal.showButtonArray() End SubEnd ClassClass calculator Public numbutton(9) As Button '声明数字按钮数组 Public operabutton(3) As Button '声明运算符按钮数组 Dim n%, m% Dim pane As New Panel Public Sub showButtonArray() For i% = 1 To 9 numbutton(i) = New Button numbutton(i).Size = New Size(50, 40) m = (i - 1) \ 3 n = (i - 1) Mod 3 numbutton(i).Location = New Point(20 + 50 * n, 50 + 50 * m) numbutton(i).Text = i.ToString numbutton(i).Show() Me.pane.Controls.Add(numbutton(i)) pane.Show() Next End SubEnd Class