Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)TextBox2.Value = "ok"TextBox3.SetFocusEnd Sub注意: userForm 中有一个默认回车时, 自动是激活某一按钮按钮的属性有一项是default 将其设成TRU
Private Sub
TextBox
1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
With
TextBox
1
If Len(Trim(
TextBox
1.Text)) > 0 Then
If KeyCode = vbKeyReturn Then...
开发中我们为了方便操作，经常都会使用
键
盘的
回车键
代替鼠标点击的事件，今天给大家分享的是按
回车键
就等同于鼠标点击确认按钮，
模拟
代码
如下：
$(".input").on("keyup",function(){
if(event.keyCode === "13"){
$(".btn").trigger("click")
当然更多
键
盘事件需要大家自行度娘，但是
代码
的写法都是一个模
End Sub
上述
代码
中，首先利用Application对象获取当前屏幕的分辨率大小，然后根据分辨率大小计算出
文本框
字体的大小，最后将该大小赋值给
文本框
的Font.Size属性即可。
需要注意的是，上述
代码
仅适用于一个
文本框
的情况。如果需要对多个
文本框
进行处理，需要对每个
文本框
分别进行设置。另外，由于不同的屏幕分辨率可能会有不同的DPI值，因此在实际应用中可能需要根据具体情况进行微调。
