ai取消锁定快捷键 | ai取消锁定快
755 2023-06-07 20:01:57
所谓立即窗口,就是Debug窗口。Debug嘛,那么它用于检查各种错误的窗口。 工具栏→视图→立即窗口或快捷键→Ctrl+G 举例:
1、有时候你要知道一个变量的值是怎么变化的,那么你可能会输入Msgbox i(i为变量),但是如果在一个循环里面 那么是很烦的,这个时候你可以输入Debug.print i 这样会在立即窗口输出i的值,你可以实时监控不用老是按鼠标 Debug.Print 语句: Debug.Print 每次执行都是在新的一行输出内容(除非上一行结束有分号;)。 Debug.Print "i";"j" '不能用Debug.print "i" & "j" 输出ij Debug.Print "" :空的一行。
2、Debug的使用 在中断模式下,在窗口中输入?i,回车,就会输出目前i的值(当前过程中)。
3、清空Debug 这个貌似只能在设计模式和中断模式下清空(选中所有内容Ctrl+A,删除Del)。
vb6建立主窗体的子窗体有两种方法:
第一种方法是建立一个MDI窗体,然后把普通的form窗体设置成它的子窗体。
第二种方法是使用Windows API设置一个普通form窗体为另外一普通窗体的子窗体。
一、先来看看如何建立MDI窗体的子窗体:
1、启动vb6,新建一个标准EXE工程。
2、在“工程”菜单里选择“添加MDI窗体”,
点击“打开”,添加了一个MDIForm1窗体,
3、在“工程”菜单里选择“XXX 属性”,
在弹出的窗口里把启动对象设成MDIForm1。
4、在form1的属性窗口里,把MDIChild属性设置为True。
5、在Private Sub MDIForm_Load()过程里添加form1.show。
二、使用Windows API建立子窗体:
1、1、启动vb6,新建一个标准EXE工程。
2、在“工程”菜单里选择“添加窗体”,
点击“打开”,添加了一个form2窗体,
这步也可以工程窗口的窗体图标上右键完成。
3、双击form1窗体,在通用里加入以下windows API:
Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
4、在form1的Private Sub Form_Load()过程里加入
Form2.Show
SetParent Form2.hWnd, Form1.hWnd
Form2.Move 0, 0
5、运行程序,可以看form2已经是form1的子窗体了。
6、完整程序代码如下:
Option Explicit
Private Declare Function SetParent Lib "user32.dll" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Sub Form_Load()
Form2.Show
SetParent Form2.hWnd, Form1.hWnd
Form2.Move 0, 0
End Sub
热键:在菜单编辑器里,菜单的标题中加入“&+字母”,比如“文件(&F)”, 运行时,按下Alt+F即相当于点击了“文件”这个按钮 。 快捷键:可以设置ShortCutKeys属性,属性窗口就有可视化编辑器 Alt+字母表示热键,Ctrl+字母表示快捷键
直接设置按钮的left ,top属性就可以了。如果是要挪到标题栏的话,那就麻烦了,估计要用API,我不会。不过可以把窗体的borderstyle属性设置为0,然后用image控件自己做一个标题栏,那样想放什么按钮都可以。Me.Move Screen.Width * 0.75, Screen.Height * 0.75 - TaskbarHeight
这样就可以
VBA编辑器里是不能更改快捷键的。你可以按如下操作进行:
打开“Word选项”对话框,点“自定义”选项卡下方的“键盘快捷方式”旁边的“自定义”按钮——在“别类”中选择“宏”——在右侧选择你要定义快捷键的宏名——在“请按新快捷键”文本框中按你要的快捷键——点“指定”按钮——关闭对话框
索引时为了更好的获取数据,这里有个范例你看看:
一.文件菜单: 文件(第一层) mnuFile 新建(第二层) mnuNew 打开(第二层) mnuOpen 保存(第二层) mnuSave - (第二层) mnuFileSep (分隔线) 退出(第二层) mnuExit 二.编辑菜单: 编辑(第一层) mnuEdit 复制(第二层) mnuCopy 剪切(第二层) mnuCut 粘贴(第二层) mnuPaste - (第二层) mnuEditSep (分隔线) 全选(第二层) mnuSelecAll 三.搜索菜单: 搜索(第一层) mnuSearch 查找(第二层) mnuFind 查找下一个(第二层) mnuFindOn 四.帮助菜单: 帮助(第一层) mnuHelp 使用说明(第二层) mnuUsage 关于(第二层) mnuAbout (注:各菜单项的快捷键请自行设置)
快捷键alt+F11键,即可打开VB编辑界面
步骤1/7
我们在vba的开发过程中需要检测一个工作薄是否被打开,这里以检测 abc.xlsx 为例
步骤2/7
打开一个excel工作薄,点击开发工具->打开开发的vbe环境,或使用alt + F11快捷键打开VBE环境。
步骤3/7
在VBE的开发环境中插入一个工程
步骤4/7
然后在新打开的模块环境中插入如下代码
Option Explicit
Sub WbIsOpenTwo()
Dim Wb As Workbook
Dim WbName As String
WbName = "abc.xlsx"
On Error GoTo line
Set Wb = Application.Workbooks(WbName)
MsgBox "工作簿" & WbName & "已经被打开!"
Exit Sub
line:
MsgBox "工作簿" & WbName & "没有被打开!"
End Sub
步骤5/7
此时关闭 abc.xlsx,然后点击运行按钮 运行程序。
步骤6/7
弹出对话框 显示工作薄没有被打开
步骤7/7
打开 abc.xlsx .重新运行程序。弹出对话框显示工作薄已经打开。
按以下步骤实现动态添加命令按钮(1)新建一个VB6工程(2)Form1窗体代码(3)运行启动后鼠标双击窗体点击命令按钮,弹出一个对话框
索引时为了更好的获取数据,这里有个范例你看看:
一.文件菜单: 文件(第一层) mnuFile 新建(第二层) mnuNew 打开(第二层) mnuOpen 保存(第二层) mnuSave - (第二层) mnuFileSep (分隔线) 退出(第二层) mnuExit 二.编辑菜单: 编辑(第一层) mnuEdit 复制(第二层) mnuCopy 剪切(第二层) mnuCut 粘贴(第二层) mnuPaste - (第二层) mnuEditSep (分隔线) 全选(第二层) mnuSelecAll 三.搜索菜单: 搜索(第一层) mnuSearch 查找(第二层) mnuFind 查找下一个(第二层) mnuFindOn 四.帮助菜单: 帮助(第一层) mnuHelp 使用说明(第二层) mnuUsage 关于(第二层) mnuAbout (注:各菜单项的快捷键请自行设置)
直接从标题栏再打开呀,要不你把你错误的属性框发个图看下啊