项目一 初试身手,复旦大学计算机学院 cxiao,1,共 页,主要内容,抽奖程序 项目创建过程,龟兔赛跑 常用属性 窗体 文本框 标签 命令按钮 图片框,共 页,2,主要内容（续）,面积计算 数据类型 常量和变量的命名规则 常量 变量声明 运算符 表达式 简易计算器 数学函数 随机函数 转换函数 日期和时间函数,图书销售 字符串函数 格式输出函数 Shell函数,共 页,3,活动一 抽奖程序,程序开始运行后，显示器上不断地显示各个号码，直到主持人按下键后停止，此时显示的号码即为中奖号码。,共 页,4,文本框 输入内容,标签 在固定位置显示内容,按钮 单击后运行相应程序,定时器 控制每隔一段时间自动运行一段程序,创建项目,选择“开始”“所有程序”“Microsoft Visual Studio 2005”“Microsoft Visual Studio 2005”，启动Visual Studio 2005 单击“起始页”中“创建”后面的“项目(P)”选项，打开“新建项目”对话框 在“项目类型”列表中选择“Visual Basic”下的“Windows”选项，选择“模板”列表中的“Windows应用程序”图标，在“名称”文本框中输入新的项目名称：抽奖程序，单击“确定”，创建了一个新的项目。,共 页,5,编程实践,程序界面设计-1,将鼠标指针指向工具箱，展开工具箱。 双击“公共控件”选项卡下相应按钮,共 页,6,使用 按钮,使用 按钮,使用 按钮,使用 按钮,调整大小和位置： 拖曳控件到所需的位置。 拖曳周边的控制点，改变大小。 按Shift键选中多个控件，“格式”“对齐”子菜单下的命令来统一尺寸大小和基准位置。 选择“视图”“工具栏”“布局”命令，利用“布局”工具栏的按钮调整控件的大小和位置,编程实践,程序界面设计-2,界面对象属性设置,共 页,7,编程实践,编写对象事件过程代码-1,TextBox1的TextChanged事件过程代码 双击TextBox1文本框，进入代码窗口，输入如下程序代码： Private Sub TextBox1_TextChanged(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles TextBox1.TextChanged TextBox1.Text = UCase(TextBox1.Text) 将输入的字母转换成大写 End Sub,共 页,8,蓝色部分自动产生,注释部分， 可以不输入,编程实践,编写对象事件过程代码-1,Form1的Load事件过程代码 单击“Form1.vb设计”选项卡，切换到设计器窗口。双击Form1窗体，输入如下程序代码： Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Randomize() 将Rnd函数的随机数生成器初始化 End Sub,共 页,9,编程实践,编写对象事件过程代码-3,Timer1的Tick事件过程代码 双击Timer1定时器，输入如下程序代码： Private Sub Timer1_Tick(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Timer1.Tick REM 随机产生一个中奖号码 Dim x As Long x = Int(Rnd() * 10000) 随机产生99999之间的整数 Label3.Text = TextBox1.Text & Format(x, “00000“) End Sub,共 页,10,编程实践,编写对象事件过程代码-4,Button1的Click事件过程代码 双击Button1命令按钮，输入如下程序代码： Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click If Button1.Text = “开始“ Then Timer1.Enabled = True 启用定时器 Label3.ForeColor = Color.White 设置字体颜色为白色 Button1.Text = “停止“ 设置命令按钮上显示“停止”字样 Else Timer1.Enabled = False 禁用定时器 Label3.ForeColor = Color.Red 设置字体颜色为红色 Button1.Text = “开始“ 设置命令按钮上显示“开始”字样 TextBox1.Focus() 将光标放到TextBox1文本框中 End If End Sub,共 页,11,用西文状态输入双引号,编程实践,编写对象事件过程代码-5,Button2的Click事件过程代码 双击Button2命令按钮，输入如下程序代码： Private Sub Button2_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Button2.Click End 结束程序运行 End Sub,共 页,12,编程实践,保存项目,单击工具栏上的“全部保存”按钮 在“保存项目”对话框中输入名称：抽奖程序 选择位置为：D:项目一活动一 单击“保存”按钮,共 页,13,编程实践,执行程序,单击工具栏上的“启动调试”按钮 ，运行程序 如果出现错误，修改后重新运行,共 页,14,编程实践,活动二 龟兔赛跑,初始时，控制乌龟和兔子前进的按钮不可见，标签上显示“准备比赛！”字样。 单击“开始”按钮，乌龟和兔子回到起点，控制它们前进的按钮有效，此时使用标签显示“比赛正在进行”的字样。 当一方到达终点时，标签上显示其获胜的文字内容，比赛结束，控制乌龟和兔子前进的两个按钮无效。单击“结束”按钮，关闭窗口，程序结束运行。,共 页,15,属性值的设置,属性值的设置 在设计界面时通过属性窗口设置 通过代码设计器窗口，在程序代码中设置 有些属性在运行时是只读的，只能在属性窗口中设置。,共 页,16,学习支持,在程序代码中设置属性值（1）,基本数据类型的属性:直接用相应数据类型进行赋值 Button1.Text = “停止“,共 页,17,在程序代码中设置属性值（2）,枚举类型属性在输入程序代码时系统将自动列出,共 页,18,学习支持,在程序代码中设置属性值（3）,对于类（结构）类型，在代码设置时，不能直接赋值，必须先用New关键字创建一个实例，然后再赋值。例如，在程序代码中可以用以下语句对Font属性赋值： Label1.Font = New Font(“隶书“, 12, FontStyle.Bold),共 页,19,学习支持,关注属性的以下内容,属性名称（常暗示了属性作用） 属性作用 属性取值类型 基本数据类型 枚举类型 结构类型 属性默认值,共 页,20,常用属性-1,最常用的、具有共性的属性 Name属性 对象的名称，用于惟一识别对象。 所有控件在创建时都有一个默认的名称（如：Label1、TextBox1等），以后可以在属性窗口中重新命名。 一个控件名称以一个字母开头、后跟字母、数字和下划线，但不能包含空格和标点符号。 在程序中，对象名称作为对象的标识供程序引用，运行时是只读的（只能通过属性窗口设置其属性值）。,共 页,21,学习支持,常用属性-2,Text属性 控件上显示或输入的文本内容。,共 页,22,学习支持,常用属性-3,Location属性 控件的位置，表示控件的与窗体左边框和顶部的距离。 Location属性由Point类结构来实现，由一对整数来表示，分别指明控件与窗体的左边框的距离、顶部的距离，默认情况下，单位为像素。 也可以用Left和Top属性来表示控件的位置。,共 页,23,学习支持,共 页,24,位置：Top、Left 大小：Width、Height 这四个都是Button1的属性。,常用属性-4,例如：将Button1控件的左上角定位于距窗体左边框60、距顶部40的位置。 Button1.Location = New Point(60,40) 等价于： Button1.Left = 60 Button1.Top = 40,共 页,25,学习支持,常用属性-5,Size属性 表示控件的大小，由Size类结构来实现，由一对整数分别表示宽度和高度。 也可以用Width和Height属性来表示。 例如，将Button1控件设置为宽度为80、高度为30。 Button1.Size = New Size(80,30) 等价于： Button1.Width = 80 Button1.Height = 30,共 页,26,学习支持,常用属性-6,ForeColor属性 用于设置或返回控件的前景色（即正文颜色），其值是枚举类型，在属性窗口中用调色板直接选择颜色。 在代码设计器窗口中，输入枚举类型属性的赋值语句时，系统自动显示列表，通过选择完成代码的输入。 BackColor属性 用于设置或返回控件的背景色。,共 页,27,学习支持,常用属性-7,Font属性 用来设置文本的字体格式， 单击属性窗口中Font属性旁 的按钮 ，打开“字体” 对话框后设置。 也可以单击Font属性前的 ， 设置各项值。 Font属性值是Font类结构的， 在程序代码中应通过New命令 来创建Font对象、改变字体。例如： Label1.Font = New Font(“隶书“, 12, FontStyle.Bold),共 页,28,学习支持,常用属性-8,Visible属性 决定控件是否可见。 值为True时可见，值为False时为不可见，但控件本身存在。 默认值为True。 Enabled属性 决定控件能否允许操作。 值为True时，允许用户进行操作；值为False时，禁止用户操作，并且呈淡色。 默认值为True。,共 页,29,学习支持,常用属性-9,AutoSize属性 决定控件是否自动调整大小。 值为True时，根据显示的内容自动调整大小；值为False时，保持原来设计时的大小。,共 页,30,学习支持,常用属性-10,TabIndex属性 决定了按Tab键焦点在各个控件移动的顺序。 焦点是接收用户鼠标或键盘输入的能力，当对象具有焦点时，可以接收用户的输入。 对象具有焦点： 当文本框具有焦点时，插入点显示在文本框中； 当按钮具有焦点时，按钮上带有虚线框。 转移焦点： 使用鼠标单击； 通过按Tab键来转移焦点 通常，按Tab键后焦点的移动顺序是按控件的建立顺序，通过重新设置TabIndex属性值可以改变Tab键顺序。,共 页,31,学习支持,常用属性-11,Cursor属性 决定运行时鼠标移动到 对象上时，显示出的鼠 标指针的图像。 其属性值是枚举类型。,共 页,32,学习支持,窗体Form-1,窗体是应用程序的基本单元，是设计和运行程序时的主要操作界面。在运行程序时，每个窗体对应于一个窗口。 窗体的常用属性 MaximizeBox和MinimizeBox属性 决定窗体上最大化按钮和最小化按钮是否有效。默认值为True。,共 页,33,学习支持,窗体Form-2,ControlBox和Icon属性 决定标题栏上是否有控制菜单框、设置其图标。 默认情况下，ControlBox属性值为True，若设置为False，则不显示控