declare_message_map(word里链接跳转到目录后怎么跳回去)
资讯
2023-12-02
375
1. declare_message_map,word里链接跳转到目录后怎么跳回去?
方法一:
1, 按Alt+向左方向键 回到原目录。
2. 按Ctrl + home,回到文章开头。
方法二:
利用VBA给word文档添加一个悬浮按钮,只需鼠标单击该按钮就能跳转回文档的目录。
1.ALT+F11打开VBE编辑器,在工程窗口右键-插入-用户窗体,插入一个新窗体UserForm1。
2.在窗体属性对话框将:ShowModel属性设为False即将窗体设为无模态窗体,BorderStyle属性设为0-fmBorderStyleNone即将窗体设为无边框,StartUpPosition属性设为0-手动即将窗体的初始显示位置设置成手动更改,其余属性请按需更改
3.利用标签控件在窗体上拖拉出一个标签Label1。
4.将标签Label1的Caption属性设为返回目录,BorderStyle属性设为0-fmBorderStyleNone,其余属性按需设置即可
5.在窗体UserForm1代码窗口粘贴入下代码:
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const WS_CAPTION As Long = &HC00000
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub Label1_Click()
Selection.HomeKey unit:=wdStory '返回文档开头
Selection.MoveDown unit:=wdLine, Count:=9 '笔者此处演示文档,目录位置是位于文档开头往下数9行,具体可以根据需要自行更改
End Sub
Private Sub UserForm_Initialize()
Dim lngStyle As Long
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
lngStyle = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, lngStyle And Not WS_CAPTION
DrawMenuBar hWnd
Me.Height = 31.5
Me.Left = Selection.Information(wdHorizontalPositionRelativeToPage) + 545
Me.Top = Selection.Information(wdVerticalPositionRelativeToPage) + 50
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
ReleaseCapture
SendMessage hWnd, WM_NCLBUTTON
2. 主谓宾宾补的谓语动词有哪些?
谓语动词:宾补动词,即这种动词后接宾语,而此宾语后面又接补充说明宾语的补足语。
常见的带宾补动词有:appoint,believe,call, choose, consider, declare, elect, feel, find, keep, leave, let, make, name, nominate, prove, see, suppose, vote...
例句:I very much hope that this mew medium will make my Christmas message more personal and direct.
A hedge between keeps friendship green.
They appointed John chairman.
I believe him to be true.
The chairman declared the meeting over.
You can leave the door openI made
在宾语后面加上be动词,若能使句子语义通顺,即是补足语。(因为宾语与宾语补足语的语义关系相当于主语与主语补足语(即表语)的关系
如:
John our chairman. (John is a chairman. 通) 宾语补足语
I made John a cake. (John is a cake. 不通) 直接宾语
She will make him a good husband. (He is a good husband. 通) 宾语补足语
3. RabbitMQ如何通过持久化保证消息9999?
当下主流的消息系统有RabbitMQ、RocketMQ、ActiveMQ等,而RabbitMQ是基于Erlang开发,无论是并发、延时表现都很好。
RabbitMQ消息可靠性是靠什么实现的?消息可靠性是RabbitMQ的一大特点,RabbitMQ靠什么实现消息可靠性的呢?其实就是通过消息持久化来实现的,这样就避免了服务异常(重启、宕机)下消息和队列丢失的风险。
消息持久化是指RabbitMQ将内存中的数据(交换器Exchange、队列Queue、消息Message)落地到硬盘中存储,以防止异常情况导致内存中的数据丢失。
RabbitMQ如何实现消息持久化?RabbitMQ中不同数据持久化方式是不同的,主要有:
1、交换器(Exchange)的持久化
交换器Exchange若丢失会影响后续消息的写入,我们在创建Exchange时需要指定durable为true表示持久化。
2、队列(Queue)的持久化
在上面第一步操作中,在创建交换器时即使设置了durable为true后,Exchange不会丢失,但是里面的队列依旧会丢失。如何保证队列持久化呢?同样是在创建队列时指定durable为true即可。
3、消息(Message)的持久化
上面两步操作后,在重启RabbitMQ后,虽然Exchange和Queue不会丢失,但是Queue里的消息是会丢失的,那如何保证消息持久化不丢失呢?我们设置消息投递模式(deliveryMode)为2即代表消息持久化。
消息持久化并不能100%保证数据不丢失当我们将交换器/队列/消息都设置了持久化依旧不能100%保证数据不会丢失。这其实很好理解,内存中的数据写入硬盘是要时间的,突然断电、宕机重启等情况时消息可能没来得及落地,那么这些消息就有丢失的可能。
消息持久化会带来性能问题我们知道消息持久化是将内存中的数据写入硬盘中,但硬盘的读写速度远不如内存,所以开启消息持久化后会影响RabbitMQ的性能。
以上就是我的观点,对于这个问题大家是怎么看待的呢?欢迎在下方评论区交流 ~ 我是科技领域创作者,十年互联网从业经验,欢迎关注我了解更多科技知识!4. VB怎么向指定进程发送按键消息?
PublicDeclareFunctionPostMessageLib"user32"Alias"PostMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
PublicDeclareFunctionSendKeys(ByValhwndAslong,ByValkeycodeaslong)
PostMessagehwnd,256,keycode,0
Endfunction
这样就可以调用(你可以用计算器的窗口句柄试一下):
SendKeys(hWnd,asc("1"));
本站涵盖的内容、图片、视频等数据系网络收集,部分未能与原作者取得联系。若涉及版权问题,请联系我们删除!联系邮箱:ynstorm@foxmail.com 谢谢支持!
1. declare_message_map,word里链接跳转到目录后怎么跳回去?
方法一:
1, 按Alt+向左方向键 回到原目录。
2. 按Ctrl + home,回到文章开头。
方法二:
利用VBA给word文档添加一个悬浮按钮,只需鼠标单击该按钮就能跳转回文档的目录。
1.ALT+F11打开VBE编辑器,在工程窗口右键-插入-用户窗体,插入一个新窗体UserForm1。
2.在窗体属性对话框将:ShowModel属性设为False即将窗体设为无模态窗体,BorderStyle属性设为0-fmBorderStyleNone即将窗体设为无边框,StartUpPosition属性设为0-手动即将窗体的初始显示位置设置成手动更改,其余属性请按需更改
3.利用标签控件在窗体上拖拉出一个标签Label1。
4.将标签Label1的Caption属性设为返回目录,BorderStyle属性设为0-fmBorderStyleNone,其余属性按需设置即可
5.在窗体UserForm1代码窗口粘贴入下代码:
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const GWL_STYLE As Long = (-16)
Private Const WS_CAPTION As Long = &HC00000
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub Label1_Click()
Selection.HomeKey unit:=wdStory '返回文档开头
Selection.MoveDown unit:=wdLine, Count:=9 '笔者此处演示文档,目录位置是位于文档开头往下数9行,具体可以根据需要自行更改
End Sub
Private Sub UserForm_Initialize()
Dim lngStyle As Long
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
lngStyle = GetWindowLong(hWnd, GWL_STYLE)
SetWindowLong hWnd, GWL_STYLE, lngStyle And Not WS_CAPTION
DrawMenuBar hWnd
Me.Height = 31.5
Me.Left = Selection.Information(wdHorizontalPositionRelativeToPage) + 545
Me.Top = Selection.Information(wdVerticalPositionRelativeToPage) + 50
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Me.Caption)
ReleaseCapture
SendMessage hWnd, WM_NCLBUTTON
2. 主谓宾宾补的谓语动词有哪些?
谓语动词:宾补动词,即这种动词后接宾语,而此宾语后面又接补充说明宾语的补足语。
常见的带宾补动词有:appoint,believe,call, choose, consider, declare, elect, feel, find, keep, leave, let, make, name, nominate, prove, see, suppose, vote...
例句:I very much hope that this mew medium will make my Christmas message more personal and direct.
A hedge between keeps friendship green.
They appointed John chairman.
I believe him to be true.
The chairman declared the meeting over.
You can leave the door openI made
在宾语后面加上be动词,若能使句子语义通顺,即是补足语。(因为宾语与宾语补足语的语义关系相当于主语与主语补足语(即表语)的关系
如:
John our chairman. (John is a chairman. 通) 宾语补足语
I made John a cake. (John is a cake. 不通) 直接宾语
She will make him a good husband. (He is a good husband. 通) 宾语补足语
3. RabbitMQ如何通过持久化保证消息9999?
当下主流的消息系统有RabbitMQ、RocketMQ、ActiveMQ等,而RabbitMQ是基于Erlang开发,无论是并发、延时表现都很好。
RabbitMQ消息可靠性是靠什么实现的?消息可靠性是RabbitMQ的一大特点,RabbitMQ靠什么实现消息可靠性的呢?其实就是通过消息持久化来实现的,这样就避免了服务异常(重启、宕机)下消息和队列丢失的风险。
消息持久化是指RabbitMQ将内存中的数据(交换器Exchange、队列Queue、消息Message)落地到硬盘中存储,以防止异常情况导致内存中的数据丢失。
RabbitMQ如何实现消息持久化?RabbitMQ中不同数据持久化方式是不同的,主要有:
1、交换器(Exchange)的持久化
交换器Exchange若丢失会影响后续消息的写入,我们在创建Exchange时需要指定durable为true表示持久化。
2、队列(Queue)的持久化
在上面第一步操作中,在创建交换器时即使设置了durable为true后,Exchange不会丢失,但是里面的队列依旧会丢失。如何保证队列持久化呢?同样是在创建队列时指定durable为true即可。
3、消息(Message)的持久化
上面两步操作后,在重启RabbitMQ后,虽然Exchange和Queue不会丢失,但是Queue里的消息是会丢失的,那如何保证消息持久化不丢失呢?我们设置消息投递模式(deliveryMode)为2即代表消息持久化。
消息持久化并不能100%保证数据不丢失当我们将交换器/队列/消息都设置了持久化依旧不能100%保证数据不会丢失。这其实很好理解,内存中的数据写入硬盘是要时间的,突然断电、宕机重启等情况时消息可能没来得及落地,那么这些消息就有丢失的可能。
消息持久化会带来性能问题我们知道消息持久化是将内存中的数据写入硬盘中,但硬盘的读写速度远不如内存,所以开启消息持久化后会影响RabbitMQ的性能。
以上就是我的观点,对于这个问题大家是怎么看待的呢?欢迎在下方评论区交流 ~ 我是科技领域创作者,十年互联网从业经验,欢迎关注我了解更多科技知识!4. VB怎么向指定进程发送按键消息?
PublicDeclareFunctionPostMessageLib"user32"Alias"PostMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLong
PublicDeclareFunctionSendKeys(ByValhwndAslong,ByValkeycodeaslong)
PostMessagehwnd,256,keycode,0
Endfunction
这样就可以调用(你可以用计算器的窗口句柄试一下):
SendKeys(hWnd,asc("1"));
本站涵盖的内容、图片、视频等数据系网络收集,部分未能与原作者取得联系。若涉及版权问题,请联系我们删除!联系邮箱:ynstorm@foxmail.com 谢谢支持!