怎么建立一个公用的方法，并且调用？

[pcbabao]

菜鸟一个，业余选手。

怎么建立一个公用的方法 Z()

可以让z（a)返回2a

就是 s1=Z(1.5) 那么S1=3
s2=z（3.2） 那么S2=6.4

这样，给点简单代码 谢谢

[hzybc]

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Dim S1, S2 As Single S1 = Z(1.5) MsgBox(S1) S2 = Z(3.2) MsgBox(S2) End Sub Function Z(ByVal a As Single) As Single Return a * 2 End Function

[无涯大者]

  Public Shared Function FnResult(ByVal a As Single) As Single
        Return a * 2
    End Function

如1,2楼所说的,调用FnResult方法,并传入参数,就OK了.

[wind_cloud2011]

建立类文件Class1.vb ,放

 Public Shared Function Z(ByVal a As Single) As Single
        Return a * 2
    End Function

调用：
　　　  Dim S1, S2 As Single
        S1 = Class1.Z(1.5)
        MsgBox(S1)
        S2 = Class1.Z(3.2)
        MsgBox(S2)

[threenewbee]

新建一个公共模块（项目菜单-新建项），然后再在里面写公共方法就可以了。

[bdmh]

你直接建立Shared的方法