『VB.NET』第二课：尝鲜增兴趣之“Hello!fishc!”

凤尾村

第一步：创建一个窗体，窗体属性里将“外观”中的TEXT属性修改为“鱼C窗口程序”
第二步：在工具箱的“公共控件”里面找到“Button”组件，将其选中拖放到窗体里，一共拖放三个“Button”组件
第三步：选中这些“Button”组件，在属性里将“外观”中的TEXT属性分别修改为“鱼C按钮1”、“鱼C按钮2”、“鱼C按钮3”
第四步：双击“鱼C按钮1”进入代码设计区，在光标处输入  MessageBox.Show("Hello!fishc!", "我是第一个按钮", 0)
‘按F5调试运行结果

第五步：双击“鱼C按钮2”进入代码设计区，在光标处输入  MsgBox("Hello!fishc!", 0, "我是第二个按钮")
‘按F5调试运行结果

第六步：这里是用API实现的结果，如果你之前有过编程经验就知道API的意思，没有也没什么，先跟着我一起来完成代码，熟悉一下吧
双击“鱼C按钮3”进入代码设计区，在Public Class Form1下面一空行内输入
Declare Function 鱼C消息框 Lib "user32" Alias "MessageBoxA" (ByVal 窗口句柄 As Integer, ByVal 内容 As String, ByVal 标题 As String, ByVal 按钮类型 As Integer) As Integer

注：这里ByVal是申请参数，为了能够让大家看明白，我用了中文做参数变量名。鱼C消息框是这个API里调用命令，可以自由改名， "user32" 是库文件名，"MessageBoxA"是库里的命令。API其实就是调用动态链接库USER32.DLL里命令的一种特定的方法。

然后Button3_Click事件下面写入  鱼C消息框(Me.Handle, "Hello!fishc!", "我是第三个按钮", 0)
‘按F5调试运行结果

凤尾村

以下是源代码，写代码的时候遇到“卡车”的可以来参考一下
Public Class Form1
    Declare Function 鱼C消息框 Lib "user32" Alias "MessageBoxA" (ByVal 窗口句柄 As Integer, ByVal 内容 As String, ByVal 标题 As String, ByVal 按钮类型 As Integer) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Hello!fishc!", "我是第一个按钮", 0)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Hello!fishc!", 0, "我是第二个按钮")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        鱼C消息框(Me.Handle, "Hello!fishc!", "我是第三个按钮", 0)
    End Sub
End Class

长沙hacker

亲，可以先出c#.net吗，我想学c#.net

zqs374

简单，鸡肋