VB常用属性

(1) Appearance属性

该属性有两个可选值：0- Flat表示在窗体运行时不以3D方式显示，1-Flat表示在窗体运行时以3D方式显示。

(2) BackColor和ForeColor属性

设置或返回窗体前景颜色和背景颜色。代码设置如下:

Form1. BackColor=vbcolor

Form1. ForeColor=vbcolor

(3)Bordertyle属性

该属性是设置窗体的边界类型代码设置如下:

Form1.BorderStyle=value

各个值的含义如下:

0- None窗体无边框。

1- Fixed Single 固定边框，无最大化和最小化按钮，窗体运行时不可变。

2- Sizeable 默认值，双线边框，有最大化和最小化按钮，窗体运行时可变。

3- Fixed Dialog双线边框,无最大化和最小化按钮，窗体运行时不可变。

扩展资料

VB中所有的代码都是依附于模块的，而模块在VB中可以分为3种类型：窗体模块、标准模块和类模块。

类模块可以创建自定义的类，该类包括自己的属性、方法和事件。自定义的类相当于一个没有实体的控件。

比如一个命令按钮，是VB系统中已经定义好的类，它具有自己的属性、方法和事件，它也有实体。而类模块创建的类除了没有实体外，其余性质与控件类似。类模块在进阶教程中暂不做深入介绍。

注意：在代码区顶部，声明变量a和变量b。变量a使用public关键字声明：其表示全局变量，可以在本工程内所有窗体模块、标准模块、类模块中使用。变量b使用dim关键字声明：

其表示模块级变量，仅在本模块中使用。

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

已知文件路径 As String

需要设置为隐藏+系统属性，最好通过API完成 如果能通过Attrib也可以。

解析:

你可以通过 Scripting.FileSystemObject 对象来设置指定文件的属性，它的 File 对象有一个 Attributes 可以由我们修改，测试代码及说明如下：

Private Sub Command1_Click()

Dim oFileSystem As Object

Dim oFile As Object

' 创建FSO对象

Set oFileSystem = CreateObject("Scripting.FileSystemObject")

' 获取你想要改属性的文件

Set oFile = oFileSystem.GetFile("文件名")

' Normal 0 一般文件。未设置属性。

' ReadOnly 1 只读文件。属性为读/写。

' Hidden 2 隐藏文件。属性为读/写。

' System 4 系统文件。属性为读/写。

' 设置属性（以上列出了所有可更改的属性值）

' 将文件改为：只读+隐藏+系统

oFile.Attributes = 1 + 2 + 4

' 释放对象

Set oFile = Nothing

Set oFileSystem = Nothing

End Sub

---