VB备忘录（10）控件

最新推荐文章于 2021-05-18 14:27:54 发布

dzweather

最新推荐文章于 2021-05-18 14:27:54 发布

阅读量1.5k

点赞数

分类专栏： vb6

本文链接：https://blog.csdn.net/dzweather/article/details/8757912

版权

vb6 专栏收录该内容

20 篇文章 2 订阅

订阅专栏

Object.SetFocus

使控件得到焦点。

注意：控件必须是“可视”且“可用”的

可视，即可以界面显示的，若在load中的控件是不能得到焦点的

可用，即Enable，变灰的不能得到焦点

DDE

动态数据交换，即发送到<----->接收端之间的动态数据交换

MaskColor mask屏蔽，遮盖，color颜色，屏蔽颜色

意思是把某种颜色进行“屏蔽”，进行透明化处理。比如一个图片，中间是图形，外围是白色，如果我们设置屏蔽色为白色，则白色被屏蔽透明化，

只有中间的图形显示出来。

object.MaskColor=[color]

只有当 UseMaskColor 属性设置为 True 并且按钮中有赋值给其 Picture 属性的位图-风格图片时，该属性才被使用。

（图标和元文件已经包含透明信息。）如果 MaskColor 属性在运行时被改变，按钮将自己用被当作掩码的新颜色重画。

listbox

list 一个数组，list(index)指定每项的字串

listcount 项数（非索引）

listindex 当前选择的索引。当前项的字串： list1.list(list1.listindex)

NewIndex 最近添加项的索引

TopIndex 返回或设置当前listbox视窗顶部的索引

text 当前选择项的字串（若是多重选择，则为最后选择项的字串）

多重选择：

multiSelect 设置多重选择

SelCount (多重选择）共选择了几项

Selected(index) 判断是否被选择（多重选择时只能遍历进行判断哪些被选择，通过index来取索引或字串）

设置ListBox的ListIndex属性时会触发ListBox的Click事件（所以在click事件中设置index容易死循环）

CausesValidation

验证事件

当一个控件失去焦点，第二个控件得到焦点时，会触发此事件。主要是验证原控件的数据是否符合要求。

引用：http://blog.csdn.net/small_baby01/article/details/6667553

我们在设计界面时，经常会遇到需要对一些输入进行验证，以保证用户输入的有效性，而且为了程序的健壮性，这些验证应该尽量在最初，即用户一输入完就进行验证，这时，我们就用到了validate 和causesvalidation。
那么怎样区别validate 和causesvalidation？

1.validate是事件，causesvalidation是属性。
2.举例
Private Sub object_Validate(KeepFocus As Boolean)

KeepFocus, 确定控件是否失去焦点的值。KeepFocus设置为True时，控件保持焦点。
Validate 事件，是在焦点转换到另一个控件之前发生的，此时另一个控件的CausesValidation属性值设置为True

（注意：这是前提，如果CausesValidation属性值设置为False,将不会发生Validate 事件）。

当一个控件失去焦点的时候，在触发它的 LostFocus 事件之前，先被触发的将是它的 Validation 事件

（同样，下面将要得到焦点的控件的 CausesValidation 属性需要设置为 true，否则将不会触发 Validation）。

利用这种性质，可以在控件即将失去焦点之前检验数据的有效性。
用户控件提供了一个 Validate 事件，它还通过 Extender 对象提供了一个 CausesValidation 属性。

当焦点从该用户控件转移到 CausesValidation 属性被设置为 true 的其他控件时，Validate 事件的代码将被执行；

如果将用户控件的 CausesValidation 属性设置为 True，那么任何将焦点传递给用户控件的控件的 Validation 事件都将被触发。

反之，当CausesValidation 属性设置为false时，则validate事件不被触发！

MaskEdBox 屏蔽文本框

部件：microsoft mask edit control 6.0(sp3）

AllowPromt 允许提示，实际是允许产生事件。当输入的与mask不符时，会产生validationerror事件（在事件中可以进行代码提示）

CausesValidation 是否允许在失去焦点前产生validation事件进行判断

ClipMode 复制或剪贴时，是否包含原义字符

formattedText （运行时）已经格式化的字符。（比如用format进行显示格式化后，若用此属性则使用格式化属性，若用text则用未格式化字符）

例：format #,##0 在maskedbox中输入3000 ,其内显示：3,000

formattedText 返回 3,000

text 返回 3000

RichTextBox 强大的文本框

FileName 返回或设置载入的文件（含路径）

HideSelection 是否不显示所选择的文字(选择部分文字，失去焦点后，所选择部分是否高亮显示）为真不显示，为假要显示

Locked 锁定编辑（禁止删除与添加）

RightMargin 返回或设置文字的右边距

选择文字的三个属性：

SelStart 选择的开始点（若无选择，则为插入点）

SelLength 返回或设置选择的长度

SelText 返回或设置选择的字符串

方法：

richtextbox1.find(substr,start,end,options) 从开始点start到结束点end查找子串substr。返回长整型，没找到时返回-1

option: rtfwholeword匹配单词，rtfmatchcase大小写，rtfnohightlight非高亮

LoadFile FileName,FileType 载入rtf或txt，filetype可省（指定是rtf或txt)

SaveFile FileName,filetype 保存rtf或txt ,.....

SelPrint 把选择文字发送给设备进行打印，没有选择就全部打印

事件：

selChanged 插入点变化或者选择文字变化，会引发此事件

DateTimePicker 日期时间拾取器

microsoft windows Common Control 2 6.0

属性：year,month,day,hour,minute,second, DayOfWeek

MonthView 月历浏览（同上，但展开)

同上引用

MaxDate 该月最后一天数字

SSTab 选项卡

microsoft tabbed dialog control 6.0

caption 当前选卡（名称）（一组数组，每元素名称不同）

Style 选项卡样子（圆弧，方形）

Tab 当前选卡(索引）

Tabs 选卡总个数

TabsPerRow 每行选项数量（如：3，即每一行最多3个选项卡）

TabCaption 选项卡标题（用索引来检索）。 sstab1.tabcaption(3)="字体"，索引为3的选卡标题为字体

TabOrientation 选卡位置，上下左右

ListView 控件

microsoft windows common control 6.0(sp6)

SmallIcons 控件中小图标相关联的ImageList控件（图标将以ImageList中的图标进行显示)

LabeEdit 设置或返回一个值，是否可编辑。（为0自动与window相同，第一次为选中，第二次为编辑；为1手动，须代码startLableEdit来开启）

LabelWrap 标签是否可换行

ListItems ListView中ListItem对象集合。可用Add,Clear,Remove,Count,Item等属性

Picture 背景（有5种显示法）

SelectedItem 返回所选ListItem对象的引用

Sorted 项目排序

View 项目（ListItem)的四种显示法（图标，小图标，列表，报表）

方法：

GetFirstVisible 获取第一个可视对象的引用。其名称为 ListView1.GetVisible.Text

事件：

Click 控件单击（内部空白处或ListItem的单击）

ItemClick 控件内ListItem对象的单击（将覆盖上面同项目时的效果）

ColumnClick 报表视图（View）时，单击ColumnHeader对象时。

TreeView 树形浏览控件

microsoft windows common control 6.0(sp6) 对Node对象进行分层象树装一样的显示。

属性：

CheckBoxes 每个node对象前是否显示复选框。（注意checked与selected是有区别的)

selected表示node对象被鼠标点选到。

checked表示node对象前面的check框被选中。

因此checked时不一定selected，selected时不一定checked

LineStyle 返回或设置node对象间的显示线样式（两种： 1（显示根），0（不显示根））

Nodes Node对象集合

SelectionItem 选中的Node对象引用

SingleSel 设置或返回一个值，表示选择中时，是否展开

Style 设置或返回风格（有七种显示结点的风格)

ImageList 与控件imagelist关联，其图标由其提供

方法：GetVisibleCount

返回一个数值，注意这个是TreeView可视窗口的最大行数（不是结点个数），由它可以来控制窗口能容纳多宽，以便调整。

事件：NodeCheck

当选中或取消结点前的复选框时触发。

再次重申：被选中的Node对象用　node.Selected=true 来判断

Node前的复选框被选中用 node.checked=true 来判断

ProgressBar 进度控件

Microsoft Windows Common Control 6.0（sp6)

从左到右填充矩形，表示一个较长的进度

Min Max 返回或设置进度的最小、最大值

Orientation 返回或设置进度条的方向（水平或垂直）

Scrolling 进度条是间断还是连续的模式

Value 当前进度条的值

Slider 滑动条，为懒人而作，拖动以得手动输入数据

Microsoft Windows Common Control 6.0(sp6)

min Max 滑条的最小最大Value值

LargeChange 鼠标点击时移动的刻度

Orientation 同上，方向

SelectRange 中间是否出现白色矩条（在视频截取中很有用）

SelLength 返回或设置所选择的长度

SelStart 选择的起点

Text 人为设置一些东西，比如，提示这是设置什么对象，还有显示：鼠标移动（不放时）显示在鼠标上的Value值

Value 当前值

Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    i = 1
    Do While (i <= Len(RichTextBox1.Text))
        j = InStr(i, LCase(RichTextBox1.Text), LCase(Text1.Text), 1)
        i = j
        If i > 0 Then   '找到着色
            RichTextBox1.SelStart = i - 1
            RichTextBox1.SelLength = Len(Text1.Text)
            RichTextBox1.SelColor = QBColor(9)   '被查找到的文本着色
        Else            '未找到，退出
            Exit Do
        End If
        i = i + 1     '继续找
    Loop
End Sub

Private Sub Command2_Click()
    CommonDialog1.Filter = "文件文件(txt)|*.txt|RTF文件(rtf)|*.rtf"
    CommonDialog1.ShowOpen
    RichTextBox1.FileName = CommonDialog1.FileName
End Sub