[VB入门锦囊.pptVIP

VB编程入门—界面设计 窗体 窗体是最基本的界面元素，是其它控件的容器 新建窗体、保存窗体 启动窗体 窗体背景图Picture属性 窗体的Title 窗体调用：show方法 窗体的关闭：Unload Me 语句 Load事件 ICO属性 Msgbox 显示消息，并等待用户的回答，是最基本的信息输出和调试工具。 最简单的应用示例：MsgBox “大家好！” MsgBox-参数 Prompt：提示信息 换行: Chr(13) Chr(10) 引号: Buttons: 按钮组合、图标样式 、缺省按钮 、消息框模式 可选参数 按钮组合 vbOKCancel:确认、取消 vbYesNo：是、否 vbAbortRetryIgnore：终止、重试、忽略 缺省按钮：vbDefaultButton1 实现组合的方式 + MsgBox函数-图标样式 消息框模式 系统模式：vbSystemModal 程序模式： 图标：和内容相关 Title：标题，通常设置系统级标题 MsgBox函数—示例 MsgBox 下课时间到! Chr(13) Now, vbInformation + vbSystemModal + vbOKCancel + vbDefaultButton1, 温馨提示 常用控件----常用属性 了解控件的基本功能，不进行复杂的编程操作 Font Visible Enabled commandButton CommandButton： Caption属性 Click事件 Private Sub Command1_Click() Me.Picture1.Picture = LoadPicture(c:\123\11.jpg) Picture1.Circle (1000, 1000), 900, RGB(255, 0, 0) End Sub 图形按钮 Picture Style：只读属性 0：Standard 1：Graphical Label Label： Caption属性 Autosize属性 BackStyle: 0:Transparent 1: opaque BorderStyle属性： 说明：建立复合规范的程序 TextBox TextBox： Text MultiLine ScrollBars： PasswordChar TextBox-续 SelStart属性 SelLength属性 GotFocus事件 SetFocus方法 MaxLength 属性 设置选择区域，友好的操作界面。 Private Sub Command2_Click() If Len(Text2.Text) 18 Then MsgBox 身份证长度错误！, vbCritical End If Text2.SetFocus End Sub PictureBox 容器控件 Picture：无缩放特性 LoadPicture函数 Me.Picture1.Picture = LoadPicture(c:\123\11.jpg) 图形方法 Picture1.Circle (1000, 1000), 900, RGB(255, 0, 0) Image Stretch属性 True：图形缩放到控件大小 False：控件缩放到图形大小 BorderStyle： 0：无边框 1：有边框 Picture属性 设计时 LoadPicture函数 Height、Width属性 思考：等比显示图形 Image-示例 Image1.Picture = LoadPicture(C:\123\82.jpg) Image1.Width = Image1.Picture.Width / Image1.Picture.Height * Image1.Height OptionButton OptionButton Caption Value Click事件 分组：form、Frame、PictureBox Frame：Caption CheckBox Caption：不需要Lable Value:0.1 Dim sLanguage As String If ChkFrench.Value = 1 Then sLanguage = sLanguage ChkFrench.Caption End If Listbox 设计时添加： List 运行时添加：.AddItem Text1.Text 清空：.Clear 移除：.RemoveItem 0 当前项： . Text 当前选择项目的索引：.ListIndex 0 -1 ListCount 读取、设置 按字幕顺序排序：Sorted Listbox-s