vb.net VS2010编程



http://jingyan.baidu.com/article/76a7e409dac152fc3b6e1590.html?allowHTTP=1

工具/原料

• 《Microsoft Visual Studio 2010》

百度经验:jingyan.baidu.com

方法/步骤

1. 1

   运行“Microsoft Visual Studio 2010”，在“vs”的窗口弹出后，在“菜单栏”中鼠标左键单击“文件（F）”，然后在弹出来的“菜单”中鼠标左键单击第一个—“新建项目（p）”。

   步骤阅读

   步骤阅读
2. 2

   根据第一步，会有一个标题是“新建项目”的窗口，鼠标左键单击左边编辑栏中的 “Visual Basic”,然后在窗口中间新出来的编辑框中鼠标左键单击 “Windowa 窗体应用程序”，再鼠标左键单击一个标题为“确定”的按钮。

   步骤阅读
3. 3

   根据第二步，会有一个编程窗口弹出，然后鼠标左键单击一下菜单栏中的“视图（v）”，在弹出的菜单中鼠标左键单击“工具箱（x）”，然后在工具箱中鼠标左键单击工具箱中的标题为“Timer”的控件，再在名为“Form1”的窗口中鼠标左键单击，时钟控件就上了。

   步骤阅读

   步骤阅读
4. 4

   根据第三步，鼠标左键双击标题为“Form1”的窗口，会出现代码编辑的页面，写代码我在图片中更详细，文本太麻烦。。。。。。。望谅解！

   步骤阅读

   步骤阅读
5. 5

   代码：

              

   Public Class Form1

       Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer

       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

           Timer1.Start()

       End Sub

       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

           If GetAsyncKeyState(112) = -32767 Then 'F1热键值为 -32767，为什么是负数呢？因为它原本

               Me.Text = "You‘re very good ！"

           End If

       End Sub

   End Class

6. 6

   -----------------------------------------------------------------

   注释：

          ME为标题为“Form1”的窗口，

          Text为“标题”的意思，

          Me.Text="1"意思为“指定窗口的标题为1”。

   -----------------------------------------------------------------

        “Timer1”是时钟的“代号”，

        “Start（）”是“代码”，意思为启动，

        “Timer1.Start()”是“时钟启动”的意思。

          因为vs里的vb中的时钟，他的周期都已经设置好了，所以直接启动时钟，没有这个启动时钟的代码，时钟是不会有用的。

   -----------------------------------------------------------------

           IF意思为“如果”，

           Then意思为“那么”，

           End if意思为“反之”

           GetAsyncKeyState()是用来检测刚刚按下的键值的

        【   If GetAsyncKeyState(112) = -32767 Then 'F1热键值为 -32767，为什么是负数呢？因为它原本便是其他进制，所以转进制之后就成负数了

               Me.Text = "You‘re very good ！"

           End If 】

   译：如果按下的键值等于“-32767”，那么父窗口的标题为“You’re very good！”，反之不做反应。

vs2010-vb 教程 按钮与编辑框

http://jingyan.baidu.com/article/2d5afd69f6abb885a2e28e92.html?allowHTTP=1

vs2010-vb 教程 ：

主要介绍VS2010的两种控件—按钮、编辑框；通过判断编辑框中文本可以做出一些反应“事件”。

百度经验:jingyan.baidu.com

工具/原料

• 《Microsoft Visual Studio 2010》

百度经验:jingyan.baidu.com

方法/步骤

1. 1

   启动运行“Microsoft Visual Studio 2010”。

2. 2

   完成第一步后，在弹出的窗口的菜单栏中找第一个，标题为“文件（F）”的菜单，并且鼠标左键单击；

   在新弹出的菜单框中鼠标左键单击第一个，标题为“新建项目（p）”的菜单；

   之后会弹出一个标题为“新建项目”的窗口，在这个窗口左边的选择框中鼠标左键单击标题为“Visual Basic”的项，再在窗口中间新出的列表中鼠标左键单击标题为“Windows 窗体应用程序”的项，最后鼠标左键单击标题为“确定”的按钮。

   步骤阅读
3. 3

   完成第一步与第二步后，会出现一个默认标题为“Form1.vb[设计]*”的窗口设计框，它是在窗口中，你现在要在窗口菜单栏中鼠标左键单击第三个，标题为“视图（V）”的菜单；

   接着在弹出的菜单框中鼠标左键单击第十个，标题为“工具箱（X）”项；

   之后再标题为“工具箱”的窗口或在左侧的列表中鼠标左键先单击一个标题为“Button”的按钮控件，然后将鼠标移动到一个标题默认为“Form1”的窗口处，鼠标左键再单击一下，控件就上了，编辑框控件—“Textbox”也是如此。

   步骤阅读

   步骤阅读

   步骤阅读
4. 4

   完成后在前三步之后，鼠标左键双击标题为“Form1”的窗口（注意点击在无控件处）；

   然后会弹出一个标题默认为“Form1.vb*”的代码编辑框，然后在我上传图片中的指定位置输入代码，在默认为“Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load”下输入代码；

   完成后鼠标左键单击标题默认为“Form1.vb[设计]*”的窗口设计框，再鼠标左键双击标题为“Button1”的按钮，再次回到代码编辑框后，在我上传图片中的指定位置输入代码，在默认为“ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click”下输入代码。

   步骤阅读

   步骤阅读
5. 5

   输入的代码完成后：

       

   Public Class Form1

       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

           Me.Text = "请输入正确密码："

           Button1.Text = "确定"

       End Sub

       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

           If TextBox1.Text = "OOO000" Then

               MsgBox("Good！", 0, "信息")

           End If

           TextBox1.Text = ""

       End Sub

   End Class

   步骤阅读
6. 6

   代码解释： 

         ME指“父窗口”

         Text指“标题”

         ME.text=“1”指“父窗口的标题为文本1”

         Button1指“按钮1”

         Button1.text=“1”指“按钮1的标题为文本1”

         If指“如果”

         Then指“那么”

         End Sub指“之后”

         【If TextBox1.Text = "OOO000" Then

                MsgBox("Good！", 0, "信息")

            End If

            TextBox1.Text = ""】指：如果文本编辑框1的编辑内容为“OOO000”的话，那么就弹出标题为“信息”，内容为“Good！”的“0”式信息框，之后(无论文本编辑框1的编辑内容是否为“OOO000”）文本编辑框1的编辑内容为空。

           “”=零个字符

7. 7

   效果展示。。。。。。

   ================================

   根据这个经验，你可以创新出更多优秀的程序！

         

   步骤阅读
   END

百度经验:jingyan.baidu.com

方法/步骤2 视频介绍

1. 1

   视频观看，若视频不清晰，可以选择百度云盘下载。

   END

百度经验:jingyan.baidu.com

方法/步骤3 百度云盘下载

1. 1

   在网页上输入下载地址，然后按回车键访问。

   下载地址：http://pan.baidu.com/s/1jG5SfCq

2. 2

   然后鼠标左键单击一个标题中有“下载”的按钮即可下载。

   下载地址：http://pan.baidu.com/s/1jG5SfCq

   END