vb.net VS2010编程

来源：互联网发布：oracle数据库考试题编辑：程序博客网时间：2024/06/03 11:39

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

工具/原料

《Microsoft Visual Studio 2010》

百度经验:jingyan.baidu.com

方法/步骤

1
运行“Microsoft Visual Studio 2010”，在“vs”的窗口弹出后，在“菜单栏”中鼠标左键单击“文件（F）”，然后在弹出来的“菜单”中鼠标左键单击第一个—“新建项目（p）”。
步骤阅读
步骤阅读
2
根据第一步，会有一个标题是“新建项目”的窗口，鼠标左键单击左边编辑栏中的 “Visual Basic”,然后在窗口中间新出来的编辑框中鼠标左键单击 “Windowa 窗体应用程序”，再鼠标左键单击一个标题为“确定”的按钮。
步骤阅读
3
根据第二步，会有一个编程窗口弹出，然后鼠标左键单击一下菜单栏中的“视图（v）”，在弹出的菜单中鼠标左键单击“工具箱（x）”，然后在工具箱中鼠标左键单击工具箱中的标题为“Timer”的控件，再在名为“Form1”的窗口中鼠标左键单击，时钟控件就上了。
步骤阅读
步骤阅读
4
根据第三步，鼠标左键双击标题为“Form1”的窗口，会出现代码编辑的页面，写代码我在图片中更详细，文本太麻烦。。。。。。。望谅解！
步骤阅读
步骤阅读
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
-----------------------------------------------------------------
注释：
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
启动运行“Microsoft Visual Studio 2010”。
2
完成第一步后，在弹出的窗口的菜单栏中找第一个，标题为“文件（F）”的菜单，并且鼠标左键单击；
在新弹出的菜单框中鼠标左键单击第一个，标题为“新建项目（p）”的菜单；
之后会弹出一个标题为“新建项目”的窗口，在这个窗口左边的选择框中鼠标左键单击标题为“Visual Basic”的项，再在窗口中间新出的列表中鼠标左键单击标题为“Windows 窗体应用程序”的项，最后鼠标左键单击标题为“确定”的按钮。
步骤阅读
3
完成第一步与第二步后，会出现一个默认标题为“Form1.vb[设计]*”的窗口设计框，它是在窗口中，你现在要在窗口菜单栏中鼠标左键单击第三个，标题为“视图（V）”的菜单；
接着在弹出的菜单框中鼠标左键单击第十个，标题为“工具箱（X）”项；
之后再标题为“工具箱”的窗口或在左侧的列表中鼠标左键先单击一个标题为“Button”的按钮控件，然后将鼠标移动到一个标题默认为“Form1”的窗口处，鼠标左键再单击一下，控件就上了，编辑框控件—“Textbox”也是如此。
步骤阅读
步骤阅读
步骤阅读
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
输入的代码完成后：

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
代码解释：
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
效果展示。。。。。。
================================
根据这个经验，你可以创新出更多优秀的程序！

步骤阅读
END

百度经验:jingyan.baidu.com

方法/步骤2 视频介绍

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

百度经验:jingyan.baidu.com

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

1
在网页上输入下载地址，然后按回车键访问。
下载地址：http://pan.baidu.com/s/1jG5SfCq
2
然后鼠标左键单击一个标题中有“下载”的按钮即可下载。
下载地址：http://pan.baidu.com/s/1jG5SfCq
END

阅读全文

0 0