重拾VB62:标准控件的使用概述

来自:MSDN-2001-OCT: Visual Tools and Languages/Visual Studio 6.0 Documentation/Visual Basic Documentation/Using Visual Basic/Programmer’s Guide/Part 1: Visual Basic Basics/Forms,Controls,and Menus

0、各种控件共有的知识

(1)如果想得到关于控件某个属性的详细信息,可以选择该属性并按 F1 键查看联机帮助。

(2)在 Caption 属性的正文内插入一个 (&) 符号,将使得此符号后面的字符成为该按钮的快捷键(例如,Change &Signal)。显示在用户界面上,“S”会带下划线。

(3)控件与容器。大多数控件都支持只读 Parent 属性,它的值就是控件所在的窗体。控件的 Left 属性和 Top 属性是相对父窗体而言,且控件不能移出父窗体的边界。所以,有时也叫父窗体为容器,移动容器的同时也移动了控件,因此控件与容器的相对位置不变(即控件的 Left 属性和 Top 属性不变)。

(4)焦点。只有当对象的 Enabled 和 Visible 属性为 True 时,它才能接收焦点。Enabled 属性允许对象响应由用户产生的事件,如键盘和鼠标事件。Visible 属性决定了对象在屏幕上是否可见。注意 只有不包含任何可接收焦点的控件的窗体,才能接收焦点。

(5)TabIndex 。

a)设置 TabIndex 属性将改变一个控件的 tab 键顺序。

b)不能获得焦点的控件,以及无效的和不可见的控件,不具有 TabIndex 属性,因而不包含在 tab 键顺序中。按 TAB 键时,这些控件将被跳过。

c)TabStop 属性已置为 False 的控件,仍然保持它在实际 tab 键顺序中的位置,只不过在按 tab 键时这个控件被跳过。

d)一个 OptionButton 组只有一个 tab 站。选中的按钮(即 Value 值 为 True 的按钮)的 TabStop 属性自动设为 True,而其它按钮的 TabStop 属性为 False。

1、窗体

要使一个窗体可见,调用 Show 方法:Form2.Show调用 Show 方法与设置窗体 Visible 属性为 True 具有相同的效果。

2、CommandButton

设置按钮的Default 属性为 True ,指定它为窗体的缺省 CommandButton 。设置某按钮的 Cancel 属性为 True,指定它为窗体的缺省的取消按钮。

3、Label

改变 Label 尺寸以适应其内容:AutoSize 属性决定控件是否自动改变尺寸以适应其内容;WordWrap 属性使 Label 根据其内容进行垂直方向变化,而保持其宽度不变。要想使 Label 的 WordWrap 属性起作用,就必须设置 AutoSize 为 True。只有在一个单字的宽度超过控件的当前宽度时,Label 的宽度才会增加。

4、TextBox

(1)TextBox 的 Locked 属性设为 True,表示TextBox 显示不希望用户更改的文本。

(2)把 MultiLine 属性设为 True,可以使 TextBox 在运行时接受或显示多行文本。只要没有水平方向 ScrollBar,多行 TextBox 中的文本会自动按字换行。ScrollBars 属性只能在设计程序时设置。

(3)在设计时,不能在“属性”窗口输入换行符。在过程中,可以通过插入一个回车加上换行符(ANSI 字符 13 和 0)来产生一个行断点。也可以用常量 vbCrLf 插入一个回车与换行符组合。

(4)利用 TextBox 的 SelStart、SelLength 和 SelText 属性,可以控制 TextBox 的插入点和选择行为。这些属性仅能在运行时使用。

(5)TextBox 的 Font 属性返回Font 对象,可用于对字体的各种设置。

5、CheckBox

(1)CheckBox 的 Value 属性值设置为 1 ,不选定时为 0。缺省 Value 值为 0。可以用常量 vbChecked 和 vbUnchecked 表示数值 1 和 0。

(2)当单击 CheckBox 时,会发生 CheckBox 的 Click 事件。

6、选项按钮

(1)直接放在一个窗体中(也就是不在 Frame 或 PictureBox 中)的所有的选项按钮构成一组。

(2)如果想创建别的选项按钮组,必须将其中一些选项按钮组放到 Frame 或 PictureBox 中去。用这种方法生成一个独立的组时,总是要先画好一个 Frame 或 PictureBox ,然后,将选项按钮画到里面,这样移动 Frame 时控件会一起移动。

(3)如果想将已存在的控件分组到一个 Frame 中去,可以选择这些控件,然后剪贴到 Frame 或 Picture 控件上去。

(4)optChoice.Value = True,可以选定一个选项按钮。(这样是否会激发它的click事件?)


7、PictureBox

(1)Picture 属性包括被显示的图片的文件名(及可选的路径名)。

(2)窗体对象也具有 Picture 属性,通过设置该属性可直接在窗体背景上显示图片。

(3)要在运行时显示或替换图片,可利用函数 LoadPicture 来设置 Picture 属性。

picMain.Picture = LoadPicture("VANGOGH.BMP")

(4)AutoSize 属性

(5)PictureBox 容器的一种普通用法是 ToolBar 或 StatusBar 。可将 Image 控件置于这些容器中作为按钮或添加 Label 显示状态信息。将 Align 属性设置为 Top、Bottom、Left 或 Right ,PictureBox 将粘贴在窗体的边缘。

(6)Print 方法允许向 PictureBox 控件输出文本,如同向打印机输出一样。有几种字体属性可以控制由 Print 方法输入的文本的特性;Cls 方法可以清除输出。

(7)Circle、Line、Point 和 Pset 方法可以用于在 PictureBox 中画图形。一些属性如 DrawWidth、FillColor 和 FillStyle 允许自定义图形的外观。

(8)用 PaintPicture 方法在图片控件内移动 Image 、并在几幅不同的 Image 间快速变化就能产生动画。

8、轻量图形控件:Image、Shape、Line

(1)Image 控件与 PictureBox 控件相似,但它只用于显示图片。它不能作为其它控件的容器,也不支持 PictureBox 的高级方法。

(2)Image 控件调整大小的行为与 PictureBox 不同。它具有 Stretch 属性。

(3)Image 控件也可以识别 Click 事件,因此可以使用 Image 控件创建图形按钮。

(4)Shape 和 Line 控件可用来在窗体表面画图形元素。这些控件不支持任何事件,只用于表面装饰。通过设置 Shape 属性,Shape 控件可显示为矩形、正方形、椭圆型、圆角矩形或圆角正方形。

9、数据访问控件

(1)ADO Data 控件。Data 控件的属性、方法和事件允许从应用程序内部定位和处理外部数据。可把它看成是数据库与窗体中其它控件之间的一个pipeline。

(2)DataList 控件。与ADO Data 控件一起使用时,它将自动被来自外部数据库某一字段的数据清单填充。
(3)DataCombo 控件。如同 DataList 和 TextBox 的组合。

(4)DataGrid 控件显示在网格或表中的数据。与ADO Data 控件一起使用时,它显示来自于外部数据库多个字段的完全可编辑数据。
(5)Microsoft Hierarchical FlexGrid 控件是唯一能显示数据的多个视图的控件。可把它看作网格和树或大纲控件的组合。运行时,用户可重新安排行和列以提供数据的不同视图。

10、其他控件

(1)DriveListBox、DriveListBox 、FileListBox 这些控件主要是为在早期 Visual Basic 版本中创建的应用程序的向下兼容性而提供的。CommonDialog 控件提供处理文件访问的更简单方法。

(2)CommonDialog 控件在应用程序中增加内置对话框 ,用来选择文件、颜色、字体和打印函数。

(3)Timer 控件

(4)OLE 容器控件很容易为应用程序增加链接和嵌入等功能。通过 OLE 容器控件,可以提供对任何 OLE— 可用的应用程序(如 Microsoft Excel、Word 和其它许多应用程序)的功能的访问。

11、菜单

(1)菜单控件只包含一个事件,即 Click 事件,当用鼠标或键盘选中该菜单控件时,将调用该事件。

(2)任何至少有一个菜单项的菜单,运行时都可以显示为弹出式菜单。使用 PopupMenu 方法可显示弹出式菜单。

(3)在“工具”菜单中选择“菜单编辑器”,来编辑菜单。

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


Format[$] ( expr [ , fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 --------------------------------     固定格式参数:     General Number 普通数字,如可以用来去掉千位分隔号     format$("100,1
VB6或者ASP 格式化时间为 MM/dd/yyyy 格式,竟然没有好的办法, Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如 Format(Now, "MM/dd/yyyy"),如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他还会显示为 MM-dd-yyyy     只有拼凑: <%response.write
在项目中添加如下代码:新建窗口来显示异常信息。 Namespace My ‘全局错误处理,新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘======================================================== ‘以下事件
转了这一篇文章,原来一直想用C#做k3的插件开发,vb没有C#用的爽呀,这篇文章写与2011年,看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶K3 BOS的插件官方是用VB6编写的,如果  能用.Net下的语言工具开发BOS插件是一件很愉快的事情,其中缘由不言而喻,而本文则是个人首创,实现在了用V
Sub 分列() ‘以空格为分隔符,连续空格只算1个。对所选中的单元格进行处理 Dim m As Range, tmpStr As String, s As String Dim x As Integer, y As Integer, subStr As String If MsgBox("确定要分列处理吗?请确定分列的数据会覆盖它后面的单元格!", _
  窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) 2 Dim path As String, hash As String 3 For Each fil
  Imports MySql.Data.MySqlClient Public Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop   Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String   S = "Provider=OraOLEDB.Oracl
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String    Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.
VB运行EXE程序,并等待其运行结束 参考:https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Pr
今天碰到一个问题,登陆的时候,如果不需要验证手机号为空,则不去验证手机号 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday, SecEmail, UserMob, UserSex, RealNameFirst, RealName, CheckCardID, CheckCardType, Contactemail
在VB6.0中,数据访问接口有三种: 1、ActiveX数据对象(ADO) 2、远程数据对象(RDO) 3、数据访问对象(DAO) 1.使用ADO(ActiveX Data Objec,ActiveX数据对象)连接SQL Server 1)使用ADO控件连接 使用ADO控件的ConnectionString属性就可以连接SQL Server,该属性包含一个由分号分隔的argument=value语
注:大家如果没有VB6.0的安装文件,可自行百度一下下载,一般文件大小在200M左右的均为完整版的软件,可以使用。   特别提示:安装此软件的时候最好退出360杀毒软件(包括360安全卫士,电脑管家等,如果电脑上有这些软件的话),因为现如今的360杀毒软件直接会对VB6.0软件误报,这样的话就可能会在安装过程中被误报阻止而导致安装失败,或者是安装后缺乏很多必须的组件(其它的杀毒软件或安全卫士之类的
Private Sub Form_Load() Call conndb End Sub Private Function conndb() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim strCn, sql As String Dim db_host As String Dim db_user As String
  PPSM06S70:  Add  moddate  EDITSPRINTJOB:  MAX(TO_CHAR(ETRN.MODDATE, ‘yyyy/mm/dd/HH24:MI AM‘)) ACTUAL_SHIPDATE   4.Test Scenario (1) :Query SQL Test DN:8016578337 SELECT CTRN.TKCTID TRUCK_ID,        
  沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, <startup >改成<startup useLegacyV2RuntimeActivationPolicy ="true">  CrystalReport1.rpt增加數據庫專家 在表單
Imports System.Threading Imports System Public Class Form1 Dim th1, th2 As Thread Public Sub Method1() Dim i As Integer For i = 1 To 100 If Me.Label1.BackColor =
Friend Const PROCESS_ALL_ACCESS = &H1F0FFF = 2035711 Friend Const PROCESS_VM_READ = &H10 Friend Const PROCESS_VM_WRITE = &H20 Friend Const PAGE_READONLY = &H2 Friend Const PAGE_READWRITE = &H4 Friend
以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换 Function SplitBytes(Data As Byte(), Delimiter As Byte()) As List(Of Byte()) Dim i = 0 Dim List As New List(Of Byte()) Dim bytes As New
Imports System.Data.SqlClient Public Class Form1 REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password")