重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
打开vs的对象管理器(快捷键Ctrl
目前成都创新互联公司已为上1000家的企业提供了网站建设、域名、网页空间、网站改版维护、企业网站设计、岚山网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。
+
Alt
+
J
)就可以看到所有的类的方法和属性等~
很简单,在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function
Handles同一个事件就可以了
比如
Private Sub Button6_MouseHover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.MouseHover, Button5.MouseHover, Button4.MouseHover, Button3.MouseHover, Button2.MouseHover
End Sub
假如你的代码放在b1按钮下,则其他的按钮下放入如下命令即可:
b1_Click