窗体主要是为了做交互界面,VBA里已经做好了一些可以直接添加到窗体上的控件: ?...最常用的一个控件应该是命令按钮,拖拽一个到窗体,然后双击按钮就可以进入代码编辑,默认就会添加单击事件: Private Sub CommandButton1_Click() End Sub 我们实现一个简单的功能...在VBA编辑器插入一个窗体,添加3个命令按钮,选中按钮,在属性窗口修改Caption属性分别为Sheet1、Sheet2、Sheet3,编辑代码: Private Sub CommandButton1_...这样就完成了一个简单的交互界面,点击窗体上的按钮,可以分别激活对应的工作表。
选项按钮被设置为一种可以被选中状态的按钮,而且有一个特性,在一个父对象下,只能有一个选项按钮被选中。...还是以前面激活工作表的功能为例: 在不知道有多少个工作表的时候,如何显示一个窗体界面,出现每一个工作表名称的选项,选中后按按钮激活工作表。...由于不确定工作表的数量,所以不能通过拖拽的方式添加指定数量的控件,这时候就需要用到UserForm的Initialize事件,在UserForm初始化的时候来添加控件,首先仍然拖拽一个命令按钮在窗体的最上面...编辑按钮的激活工作表代码: Private Sub CommandButton1_Click() Dim i As Long Dim t As Control '遍历窗体上的控件...,窗体界面显示的时候所有工作表都可以在上面选择了,然后点激活按钮就可以激活相应的工作表: ? 这样用代码的方式添加控件也让使用者更方便的控制控件的位置,修改起来也更灵活。
---- ---- ---- VBA 窗体增加最小化按钮!!...WS_MINIMIZEBOX As Long = &H20000 '最小化 '========================================================== '窗体...获取窗口句柄 IStyle = GetWindowLong(hWndForm, GWL_STYLE) '获取当前标题栏样式 IStyle = IStyle Or WS_MINIMIZEBOX '设置最小化按钮...SetWindowLong hWndForm, GWL_STYLE, IStyle '显示最小化按钮 End Sub ---- ----
在很多场合,我们都能看到这样的效果,当鼠标移动到某个元素上面时,该元素会变成另外一种颜色,达到强调的效果。...下面,我们来实现当鼠标移动到用户窗体按钮上时,会使用颜色高亮显示,让用户窗体更生动,如下图1所示。 ? 其实,你在图1中看到的按钮并不是用户窗体内置的传统命令按钮,而是使用图像控件来制作的。...在用户窗体中绘制图像按钮 在VBE中,插入一个用户窗体,在其中放置一个标签控件、一个文本框控件以及一个图像控件,并调整成合适的大小和排列,如下图3所示。 ?...但是,如果用户将鼠标放置在除这两个按钮之外的其他地方时,我们不希望这两个按钮显示绿色,因此要使用用户窗体的MouseMove事件: Private SubUserForm_MouseMove(ByVal...) Me.CancelButtoninactive.Visible = True Me.OKButtonInactive.Visible = True End Sub 这样,鼠标在用户窗体中按钮之外移动时
2006年5月,中移动北京区资费下调,被叫套餐接近单向收费。在信产部2006年12月表示鼓励运营商实行单向收费后,中移动先后在广州、北京先后推出单向收费套餐。...此项优惠实施后,西藏移动的平资资费将下降30%。这是中国移动首个实现“无条件单向收费”的下属分公司。 ...北京移动推出的“被叫全免计划”,免除了客户接听电话的费用,让广大客户畅享“移动新生活”,从此可以享受在业务上的便捷与资费上的实惠。 ...作为中国移动的老对手,中国联通对移动这次“突袭”表现冷静。 5月23日,针对北京移动全球通品牌实行被叫免费接听,北京联通相关人士表示,正在研究对策。他说,北京联通其实早已实现无条件单向收费。...移动运营商内部一负责人向硅谷动力记者承认,移动联通轮番进行资费调整,客观上对固定电话造成了极大的冲击。
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.or...
from PyQt5 import QtCore, QtGui, QtWidgets from PyQt5.QtWidgets import QApplica...
书上有个试一试,要求:利用委托,达到一个主窗体统计多个从窗体的按钮单击的次数。...25 frmOther frm = new frmOther(); 26 frm.recorder = this.ShowCount;//向从窗体的委托变量赋值... recorder(counter.ToString()); 29 } 30 } 31 } 32 } 之后,我想进一步修改,在一个主窗体上单击按钮...,多个从窗体同时显示单击的次数。...只是对上面的代码修改了一下,在从窗体初始化后,向主窗体的委托变量赋值时,出现了错误。请大家指教,谢谢。
clientWidth、offsetWidth、clientHeight、offsetHeight均无关) function resize(){ var win = Ext.fly('窗体对象组件...');//获得要调整的窗体,注意这里先用Ext.fly的方式来获取组件 ,如果不行再换别的,如getCmp,get等
新建UserForm窗体时,默认是没有最大化和最小化按钮的,只有一个关闭按钮。 在某个按钮的任务执行完毕后,希望用户窗体可以自动最小化,省去手动点击最小化按钮的麻烦。...双击UserForm1窗体,进入代码编辑界面,输入如下代码: Option Explicit '用于窗体最大最小化按钮的设置 '参考资源:https://blog.csdn.net/u010280075...(最小化) Private Const WS_MAXIMIZEBOX As Long = &H10000 '(最大化) Private Sub UserForm_Initialize() '窗体添加最大最小化按钮...运行UserForm窗体,得到如下结果: 可以看到,此时UserForm1中有了最大化和最小化按钮。 最小化用户窗体的代码实现 以一个简单的命令按钮为例。...参考资料: VBA窗体最大化最小化按钮实现(https://ddz.red/uiOTy) 在VBA代码中最小化当前窗体(https://ddz.red/Ku7ey)
为什么要使用这个ReleaseCapture函数,原因在于移动窗体标题时,需要释放对鼠标的捕捉,否则,就不能移动窗体标题。...SendMessage函数:该函数是用来给窗体发送Windows消息, 在本文中,该函数是模拟给非窗体客户区域(如窗体标题、最大化、最小化及关闭按钮区域)发送Windows消息,使特定区域能收到拖动窗体标题的消息...二、构建模拟移动窗体标题的应用程序,在这里我们使用了一个label(左边,label1),用来将鼠标移到该控件并拖动时,可以移动窗体, 另外一个label(右边,label2)则用来关闭窗体,如下图所示...label2, ""); } private void label2_Click(object sender, EventArgs e) { this.Close(); } 其中,需要为关闭按钮填写显示...“关闭”按钮的提示,因此需要使用ToolTip控件。
script type="text/javascript"> function openObj(){ window.open("success.html","baiducccc");//新建一个窗体...,名字为baiducccc } function openObj2(){ window.open("success.html","_self");//在自身的窗体打开,不会新建窗体 }..., "abccc","width=400,height=400,top=100,left=200,menubar=yes,location=yes,scrollbars=yes")//表示不会一直新建窗体...,一直都是在名字为abccc的窗体打开(第一次是新建了一个abccc的窗体,之后就不会再创建) //win.resizeBy(200,200)//在原来的页面基础上新加200,200 //win.resizeTo..." οnclick="openObj2()"> <input type="button" value="指定<em>窗体</em>位置大小打开" οnclick="openObj3()"> </
image.png 下载.gif /* 注意:只要不带焦点的控件包括用户控件 都可以拖动与拖拽大小 【基类中的【公共参数】可以自行修改哦】 使用方法[这是在一个窗体的后台代码...public DragControlsHelper dragControlsHelper = new DragControlsHelper(); //执行以下方法就可以拖拽了[this属于窗体的对象...:意思就是这个控件是被谁包这的就传它,我一般传窗体对象,窗体包着所有的控件,小范围拖动,自行建布局容器包着要拖动的控件 public void Insert(UIElement...Name:{element.Name}->抛出消息:{Message}"); } /// /// 提醒拖拽事件开始了,请传需要拖动的按钮对象...#endregion #region 委托回调事件 /// /// 定义委托 提醒拖拽事件开始了,请传需要拖动的按钮对象
源码下载地址:http://yunpan.cn/cFsrRxJLcn3Ex 访问密码 6294 效果如下: 实现方法: 新建一个Delphi工程,在窗体上放置一个image(图象)组件....用IMAGE控件导入一张图片(图案为异形的轮廓) 将窗体的transparentcolor (颜色透明)设置为true(真), Transparent colorvalue 的属性设置为图片底色(可用colorSchemer...TransparentColorValue:=rgb(240,240,240); end; 另外 设置 (1)来隐藏 标题栏 将form的borderStyle设置为 bsNone (2)为图片设置鼠标按下事件 来让程序可以移动...(Sender:TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ReleaseCapture; //窗体任意拖动
发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/164172.html原文链接:https://javaforall.cn
默认我们的窗体的放大、缩小、关闭按钮都是显示的,想要个性化化显示,需要我们自己设置。 这个参数是使用关闭按钮的意思,开启这个之后,就只显示关闭按钮了,其他按钮需要给出参数才能显示。...Dialog): Dialog.setObjectName("Dialog") Dialog.resize(477, 60) # 设置只显示关闭按钮...Dialog.setWindowFlags(QtCore.Qt.WindowCloseButtonHint) 只显示关闭按钮效果图: ?...其它参数: # 这个是使用最大按钮 QtCore.Qt.WindowMaximizeButtonHint # 这个是使用最小按钮 QtCore.Qt.WindowMinimizeButtonHint 这两个参数使用后...,其它的按钮不会被隐藏,而是置灰。
给大家分享一个用原生JS实现的涟漪按钮特效,效果如下: 以下是代码实现,欢迎大家复制粘贴和收藏。 原生JS...实现按钮涟漪特效 * { margin: 0; padding:
在之前写了WPF窗体中控件移动 + 拖拽大小 + 动画拖动,但是只能在Canvas容器布局中使用 现在,新增可以在GRID中可以动画拖动了 【GRID中实现动画效果】 下载 (1).gif 【Canvas...,小范围拖拽可以自建布局容器] dragControlsHelper.Insert(控件的对象或者控件的Name, this); //移除拖拽大小与移动也很简单...:意思就是这个控件是被谁包这的就传它,我一般传窗体对象,窗体包着所有的控件,小范围拖动,自行建布局容器包着要拖动的控件 public void Insert(UIElement...Name:{element.Name}->抛出消息:{Message}"); } /// /// 提醒拖拽事件开始了,请传需要拖动的按钮对象...#endregion #region 委托回调事件 /// /// 定义委托 提醒拖拽事件开始了,请传需要拖动的按钮对象
let currentEle = e.currentTarget touchEnd = e.changedTouches[0].clientX // 向左滑, 显示删除按钮...currentEle.dataset.status = 1 currentEle.classList.add('active') } // 向右滑, 隐藏删除按钮...}) const btns = document.querySelectorAll('.del-btn') btns.forEach(btn => { // 删除按钮点击事件
22 03:08:28 在进行官网一类的网站建设时,经常会出现页面太长的现象,当用户滚动滚动条到最底部时返回顶部需要滚动多下滚动条,用户体验相当不好,于是就出现了当滚动条滚动到一定位置后出现返回顶部按钮...,点击该按钮返回顶部,并且有一定的效果。...scrollTop:0},1000); return false; }); a标签的样式和方式和第一种方式相同,只不过给其添加了一个点击事件,此事件需要进入jquery.js
领取专属 10元无门槛券
手把手带您无忧上云