Private Sub Text1_click(Index As Integer)
Dim mianji As Single
mianji = 0.0061 * Form1.Text1.Text + 0.0128 * Form1.Text3.Text - 0.1529
Text1.Text = mianji
红牛工作室的博客第一种方法 Dim oType As Type = Type.GetTypeFromProgID("Aniu.AnSoft") Dim obj As IAnSoft = CType(Activator.CreateInstance(oType), IAnSoft) Dim bk As IBasePlugInterFace = obj.get...