Visual Basic 2010 入门
基础知识,已完结。
ngbshzhn
数学教师一枚
展开
-
VB2010(2)_变量
Public Class Form1 Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click Dim intNumber As Integer intNumber = 27 intN...原创 2020-01-16 21:42:05 · 123 阅读 · 0 评论 -
VB2010(3)整型运算
Public Class Form1 Private Sub btnIntMath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIntMath.Click '声明变量 Dim intNumber As Integer '赋值,加...原创 2020-01-16 21:55:09 · 296 阅读 · 0 评论 -
VB2010(1)_Hello User
人生苦短,为什么无聊的时间那么长呢。如果60岁退休,我还有10年。就不说闲话,上代码吧。Public Class HelloUser Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click MessageB...原创 2020-01-16 22:09:14 · 178 阅读 · 0 评论 -
VB2010(4)_浮点弄运算
Public Class Form1 Private Sub btnFloatMath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFloatMath.Click Dim dblNumber As Double dblNumber = 45.3...原创 2020-01-17 14:28:11 · 149 阅读 · 0 评论 -
VB2010(5)_字符串
Public Class Form1 Private Sub btnStrings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStrings.Click Dim strResult As String strResult = "Hello W...原创 2020-01-17 14:45:35 · 118 阅读 · 0 评论 -
VB2010(6)_浮点数格式化
Public Class Form1 Private Sub btnFloatMath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFloatMath.Click Dim dblNumber As Double dblNumber = 45.3...原创 2020-01-17 14:53:15 · 211 阅读 · 0 评论 -
VB2010(7)_替换字符串
Public Class Form1 Private Sub btnStrings_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStrings.Click Dim strResult As String strResult = "Hello W...原创 2020-01-17 15:02:03 · 510 阅读 · 0 评论 -
VB2010(8)_使用日期
Public Class Form1 Private Sub btnShowDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowDate.Click Dim dteResults As Date dteResults = Now...原创 2020-01-17 15:39:50 · 377 阅读 · 0 评论 -
VB2010(9)_IF语句
Public Class Form1 Private Sub btnIf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIf.Click Dim intNumber As Integer = 27 If intNumber = 1000 Then...原创 2020-01-17 19:01:47 · 214 阅读 · 0 评论 -
VB2010(10)_SelectCase
Public Class Form1 Private Sub lstData_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstData.SelectedIndexChanged Dim strName As String ...原创 2020-01-17 19:44:11 · 212 阅读 · 0 评论 -
VB2010(11)_循环语句
Public Class Form1 Private Sub btnForNextLoop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForNextLoop.Click Dim intCount As Integer ClearList()...原创 2020-01-18 15:22:55 · 255 阅读 · 0 评论 -
VB2010(12)_数组
Public Class Form1 '定义一个全局数组 Dim strFriendsArray(4) As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load strFriendsAr...原创 2020-01-18 15:59:17 · 371 阅读 · 0 评论 -
VB2010(13)_枚举
Public Class Form1 Private Enum DayAction As Integer asleep = 0 GetingReadyForWork = 1 TravelingToWork = 2 AtWork = 3 AtLunch = 4 TravelingFromWor...原创 2020-01-18 16:48:12 · 167 阅读 · 0 评论 -
VB2010(14)_结构集合散列表
Public Class Form1 '初始化一个实例 Private Sub InitiCustomer() Dim objCustomer As Customer objCustomer.FirstName = "Michael" objCustomer.LastName = "Dell" objCustome...原创 2020-01-18 20:19:27 · 265 阅读 · 0 评论 -
VB2010(15)_一个简单的统计字符或单词数的应用程序
Public Class Form1 '统计字符数的函数 Private Function CountCharcters(ByVal text As String) As Integer Return text.Length End Function '统计单词数的函数 Private Function CountWords(ByVal ...原创 2020-01-19 15:30:04 · 557 阅读 · 0 评论 -
VB2010(16)_简易的TextEdit
Public Class TextEditor '状态栏属性 Public Property StatusText() As String Get Return sslStatus.Text End Get Set(ByVal value As String) sslStatus....原创 2020-01-19 16:14:12 · 273 阅读 · 0 评论 -
VB2010(17)_消息对话框MessageBox
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim intResult As DialogResult '五个参数的意义分别是消息内容,对话框标...原创 2020-01-20 16:21:01 · 639 阅读 · 0 评论 -
VB2010(18)_各种对话框的使用
Imports System.Drawing.PrintingPublic Class 对话框示例 Private strPrintRecord As String Private WithEvents DialogsPrintDocument As PrintDocument Private strfileName As String '打开文件的对话框...原创 2020-01-20 19:31:15 · 440 阅读 · 0 评论 -
VB2010(19)_菜单工具栏上下文菜单
Public Class Menus '窗体载入 Private Sub Menus_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load tspMain.Visible = True End Sub '菜单新建 Pr...原创 2020-01-21 15:50:48 · 574 阅读 · 0 评论 -
VB2010(20)_对象的概念
控制台代码Module Module1 Sub Main() Dim objCar As New Car objCar.Color = "Red" '颜色 Console.WriteLine("My car is this color:" & objCar.Color) '原速度 ...原创 2020-01-23 15:49:42 · 199 阅读 · 0 评论 -
VB2010(21)MY空间
My空间包含一个类集合。 My.Application类提供当前正执行的应用程序的一些相关信息: 1.应用程序集名称 2.应用程序执行的当前路径等 My.Computer类提供执行应用程序的计算机的详细信息 1.硬盘的可用空间 2.可用的内存量等 My.Forms类提供对应用程序中各种窗体的访问。 My.Res...原创 2020-03-21 07:58:16 · 181 阅读 · 0 评论 -
VB2010(22)查看收藏页
界面后台Public Class Viewer Private Sub Viewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Using objfavorites As New Favorites...原创 2020-03-21 09:19:26 · 328 阅读 · 0 评论 -
VB2010(23)程序集签名
sn -k 文件名.snk在C:\Program Files\Microsoft Visual Studio 10.0\VC文件里生成一个密钥对。可以把它移动到更方便的位置上原创 2020-03-22 09:24:03 · 140 阅读 · 0 评论 -
VB2010(24)窗体用户控件
界面:代码:Public Class MyNamespce Private strApplicationName As String = String.Empty Public Property ApplicationName As String Get Return strApplicationName End ...原创 2020-03-23 17:37:35 · 226 阅读 · 0 评论 -
VB2010(25)DatagridView
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: 这行代码将数据加载到表“NorthwindDataSet.客户”中。您可以根据需要移动或删除它。 ...原创 2020-03-26 18:44:11 · 179 阅读 · 0 评论 -
VB2010(26)SqlDataAdapter 类
SqlDataAdapter 类https://docs.microsoft.com/zh-cn/dotnet/api/system.data.sqlclient.sqldataadapter?view=netframework-4.8Imports System.DataImports System.Data.SqlClientPublic Class Form1 Dim...原创 2020-03-27 17:49:12 · 313 阅读 · 0 评论 -
vb2010(27)BindingContext和CurrencyManager
BindingContext 类https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.forms.bindingcontext?view=netframework-4.8CurrencyManager 类https://docs.microsoft.com/zh-cn/dotnet/api/system.windows.f...原创 2020-03-27 17:57:00 · 361 阅读 · 0 评论 -
vb2010(28)Address应用程序
address类用于存储地址簿中条目的一个实例。AddressBook类用于存储所有的条目信息XmlSerializer 类https://docs.microsoft.com/zh-cn/dotnet/api/system.xml.serialization.xmlserializer?view=netframework-4.8...原创 2020-03-28 20:39:31 · 269 阅读 · 0 评论 -
VB2010(29)Web部署应用程序
做一个简单的应用程序Public Class Form1 Private Sub btnVersion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVersion.Click lblVersion.Text = "Version 1.1" End ...原创 2020-03-29 11:09:42 · 164 阅读 · 0 评论