VB里面焦点怎么设置..

方法和详细的 *** 作步骤如下：

1、第一步，打开VB软件，然后在表单上添加两个文本框，见下图，转到下面的步骤。

2、第二步，完成上述步骤后，分别设置两个文本框的属性，然后清除文本框的内容，见下图，转到下面的步骤。

3、第三步，完成上述步骤后，添加两个命令按钮，见下图，转到下面的步骤。

4、第四步，完成上述步骤后，分别设置两个文本框的属性，并分别命名为“左”和“右”，见下图，转到下面的步骤。

5、第五步，完成上述步骤后，双击名为“左”的命令按钮以编辑其代码，见下图，转到下面的步骤。

6、第六步，完成上述步骤后，双击名为“右”的命令按钮以编辑其代码，见下图，转到下面的步骤。

7、第七步，完成上述步骤后，运行程序，单击命令按钮，然后在文本框中观察焦点变化，见下图。这样，就解决了这个问题了。

这种情况设置方法如下：

1、打开word文档。

2、点击工具中的安全性。

3、进入安全级选项卡界面，选择“非常高。只允许运行安装在受信任位置的宏。

4、切换到“可靠发行商”标签，删除所有对象，并将“信任所有安装的加载项和模板”和“信任对于“VisualBasic项目”的访问”的复选框去勾。

5、完成以上设置后，单击“确定”按钮使修改生效。

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

问题描述:

已知文件路径 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

---