查看: 904|回复: 6|
在线时间0 小时经验13 威望0 性别女最后登录注册时间阅读权限20UID135183积分63帖子精华0分享0
EH初级, 积分 63, 距离下一级还需 287 积分
积分排行3000+帖子精华0微积分0
如何在EXCEL中实现类似与VB中窗体load事件的功能.
猜你喜欢看
在线时间0 小时经验6307 威望3 性别女最后登录注册时间阅读权限95UID76888积分6607帖子精华0分享0
积分排行131帖子精华0微积分0
问题应该详细点.
在线时间0 小时经验13 威望0 性别女最后登录注册时间阅读权限20UID135183积分63帖子精华0分享0
EH初级, 积分 63, 距离下一级还需 287 积分
积分排行3000+帖子精华0微积分0
是这样的,我需要用串口通信,但是串口通信控件的属性在VB中都是在窗体load的时候设置的,现在换成了EXCEL,我是想知道,在EXCEL中,如何实现在工作表打开的时候就设置串口通信控件的属性
在线时间0 小时经验13 威望0 性别女最后登录注册时间阅读权限20UID135183积分63帖子精华0分享0
EH初级, 积分 63, 距离下一级还需 287 积分
积分排行3000+帖子精华0微积分0
怎么没有人回复呀
在线时间12 小时经验1778 威望1 性别男最后登录注册时间阅读权限50UID103543积分1778帖子精华0分享0
EH高级, 积分 1778, 距离下一级还需 222 积分
积分排行601帖子精华0微积分0
auto_open()
在线时间0 小时经验13 威望0 性别女最后登录注册时间阅读权限20UID135183积分63帖子精华0分享0
EH初级, 积分 63, 距离下一级还需 287 积分
积分排行3000+帖子精华0微积分0
能具体一点么，这个函数是用在哪个模块中的？？
在线时间12 小时经验1778 威望1 性别男最后登录注册时间阅读权限50UID103543积分1778帖子精华0分享0
EH高级, 积分 1778, 距离下一级还需 222 积分
积分排行601帖子精华0微积分0
EXCEL有两个自动宏：一个是启动宏（Sub Auto_Open()），另一个是关闭宏（Sub Auto_Close()）。它们的特性是：当用EXCEL打含有启动宏的工簿时，就会自动运行启动宏，同理，当关闭含有关闭宏的工作簿时就会自动运行关闭宏。
积分≥4700即可申请
优秀会员奖章No.1
优秀会员奖章No.2
优秀会员奖章No.3
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&当前位置： >
> 如何实现窗体的自动隐藏显示功能
如何实现窗体的自动隐藏显示功能
　　现在许多程序的窗体都有自动隐藏/显示的功能(比如OICQ)。 实现这样的功能其实很简单，原理是：判断鼠标是否移到了屏幕的最左边或最右边，如果移到了则显示窗体，如果鼠标移开了窗体则隐藏窗体。在本程序中，我们将用到GetCursorPos这个API函数是实现这个功能最重业囊徊Ｕ飧龊淖饔镁褪腔袢〉鼻笆蟊甑淖曛担颐强梢酝ü飧鲋道磁卸鲜蟊晔欠褚频搅似聊坏淖畋咴.下面我们就开始吧。　　新建一窗体，将Form1更名为AutoHide将vbBorderStyle属性设置为4-Fixed ToolWindow这丫筒荒芨谋浯疤宓拇笮，ScaleMode属性设置为2-Point。加入一个Timer控件，将Interval的值设为1。　　再新建一个模块，输入如下代码： Public Declare Function GetCursorPos Lib &user32& lpPoint As POINTAPI As Long Type POINTAPI x As Long y As Long End Type 该代码则是用于声明GetCursorPos这个API函数的。这个API函数可以在VB6中自带的&API 浏览器&中查找到。　　在AutoHide窗体中，输入如下代码： Dim Mouse As POINTAPI '这句代码在声明部分中加入 Private Sub Form＿Load AutoHide.Height = Screen.Height '使窗体高度与屏幕高度相同 '调整窗体的显示位置 AutoHide.Top = 0 AutoHide.Left = 0 - AutoHide.Width + 50 '使窗体在屏幕的最左边显示并显示出一小部分窗体此时问账踝刺 End Sub Private Sub Timer1＿Timer a = GetCursorPosMouse If Mouse.x = 0 Then '鼠标移到了屏幕的最左边x为屏幕的纵坐标，当纵坐标为0时，表示鼠标已经移到了最左边，因此这是最关键的一步 AutoHide.Left = 0 '使窗体居左显示 End If If Mouse.x & AutoHide.ScaleWidth Then '如果鼠标没有在窗体之上则隐藏窗体.　　注意：窗体的ScaleMode属性一定要设置为2-Point，否则达不到隐藏的效果 AutoHide.Left = 0 - AutoHide.Width + 50 '如果前面没有加上50这里也不加上 End If End Sub 好了，单击F5运行一下就可以看到我们的效果了。vb6.0 如何判断窗体是否被遮挡，我想实现：当窗体显示但被遮挡时则移至上层，未被遮挡则隐藏；窗体隐藏时切换为显示
[问题点数：50分，结帖人phanphan]
vb6.0 如何判断窗体是否被遮挡，我想实现：当窗体显示但被遮挡时则移至上层，未被遮挡则隐藏；窗体隐藏时切换为显示
[问题点数：50分，结帖人phanphan]
不显示删除回复
显示所有回复
显示星级回复
显示得分回复
只显示楼主
相关帖子推荐：
2015年1月 VB大版内专家分月排行榜第二2015年1月 MS-SQL Server大版内专家分月排行榜第二2014年12月 VB大版内专家分月排行榜第二2014年11月 MS-SQL Server大版内专家分月排行榜第二2014年9月 MS-SQL Server大版内专家分月排行榜第二2013年8月 VB大版内专家分月排行榜第二2013年6月 VB大版内专家分月排行榜第二2013年5月 VB大版内专家分月排行榜第二2010年4月 VB大版内专家分月排行榜第二2010年3月 VB大版内专家分月排行榜第二2008年12月 VB大版内专家分月排行榜第二2008年8月 VB大版内专家分月排行榜第二2008年7月 VB大版内专家分月排行榜第二2007年11月 VB大版内专家分月排行榜第二
2015年2月 MS-SQL Server大版内专家分月排行榜第三2014年12月 MS-SQL Server大版内专家分月排行榜第三2014年10月 VB大版内专家分月排行榜第三2014年10月 MS-SQL Server大版内专家分月排行榜第三2014年8月 MS-SQL Server大版内专家分月排行榜第三2013年9月 VB大版内专家分月排行榜第三2013年3月 VB大版内专家分月排行榜第三2012年5月 VB大版内专家分月排行榜第三2012年4月 VB大版内专家分月排行榜第三2010年10月 VB大版内专家分月排行榜第三2010年8月 VB大版内专家分月排行榜第三2010年7月 VB大版内专家分月排行榜第三2009年5月 VB大版内专家分月排行榜第三2008年9月 VB大版内专家分月排行榜第三2008年4月 VB大版内专家分月排行榜第三2008年2月 VB大版内专家分月排行榜第三
2015年1月 VB大版内专家分月排行榜第二2015年1月 MS-SQL Server大版内专家分月排行榜第二2014年12月 VB大版内专家分月排行榜第二2014年11月 MS-SQL Server大版内专家分月排行榜第二2014年9月 MS-SQL Server大版内专家分月排行榜第二2013年8月 VB大版内专家分月排行榜第二2013年6月 VB大版内专家分月排行榜第二2013年5月 VB大版内专家分月排行榜第二2010年4月 VB大版内专家分月排行榜第二2010年3月 VB大版内专家分月排行榜第二2008年12月 VB大版内专家分月排行榜第二2008年8月 VB大版内专家分月排行榜第二2008年7月 VB大版内专家分月排行榜第二2007年11月 VB大版内专家分月排行榜第二
2015年2月 MS-SQL Server大版内专家分月排行榜第三2014年12月 MS-SQL Server大版内专家分月排行榜第三2014年10月 VB大版内专家分月排行榜第三2014年10月 MS-SQL Server大版内专家分月排行榜第三2014年8月 MS-SQL Server大版内专家分月排行榜第三2013年9月 VB大版内专家分月排行榜第三2013年3月 VB大版内专家分月排行榜第三2012年5月 VB大版内专家分月排行榜第三2012年4月 VB大版内专家分月排行榜第三2010年10月 VB大版内专家分月排行榜第三2010年8月 VB大版内专家分月排行榜第三2010年7月 VB大版内专家分月排行榜第三2009年5月 VB大版内专家分月排行榜第三2008年9月 VB大版内专家分月排行榜第三2008年4月 VB大版内专家分月排行榜第三2008年2月 VB大版内专家分月排行榜第三
2015年1月 VB大版内专家分月排行榜第二2015年1月 MS-SQL Server大版内专家分月排行榜第二2014年12月 VB大版内专家分月排行榜第二2014年11月 MS-SQL Server大版内专家分月排行榜第二2014年9月 MS-SQL Server大版内专家分月排行榜第二2013年8月 VB大版内专家分月排行榜第二2013年6月 VB大版内专家分月排行榜第二2013年5月 VB大版内专家分月排行榜第二2010年4月 VB大版内专家分月排行榜第二2010年3月 VB大版内专家分月排行榜第二2008年12月 VB大版内专家分月排行榜第二2008年8月 VB大版内专家分月排行榜第二2008年7月 VB大版内专家分月排行榜第二2007年11月 VB大版内专家分月排行榜第二
2015年2月 MS-SQL Server大版内专家分月排行榜第三2014年12月 MS-SQL Server大版内专家分月排行榜第三2014年10月 VB大版内专家分月排行榜第三2014年10月 MS-SQL Server大版内专家分月排行榜第三2014年8月 MS-SQL Server大版内专家分月排行榜第三2013年9月 VB大版内专家分月排行榜第三2013年3月 VB大版内专家分月排行榜第三2012年5月 VB大版内专家分月排行榜第三2012年4月 VB大版内专家分月排行榜第三2010年10月 VB大版内专家分月排行榜第三2010年8月 VB大版内专家分月排行榜第三2010年7月 VB大版内专家分月排行榜第三2009年5月 VB大版内专家分月排行榜第三2008年9月 VB大版内专家分月排行榜第三2008年4月 VB大版内专家分月排行榜第三2008年2月 VB大版内专家分月排行榜第三
2015年1月 VB大版内专家分月排行榜第二2015年1月 MS-SQL Server大版内专家分月排行榜第二2014年12月 VB大版内专家分月排行榜第二2014年11月 MS-SQL Server大版内专家分月排行榜第二2014年9月 MS-SQL Server大版内专家分月排行榜第二2013年8月 VB大版内专家分月排行榜第二2013年6月 VB大版内专家分月排行榜第二2013年5月 VB大版内专家分月排行榜第二2010年4月 VB大版内专家分月排行榜第二2010年3月 VB大版内专家分月排行榜第二2008年12月 VB大版内专家分月排行榜第二2008年8月 VB大版内专家分月排行榜第二2008年7月 VB大版内专家分月排行榜第二2007年11月 VB大版内专家分月排行榜第二
2015年2月 MS-SQL Server大版内专家分月排行榜第三2014年12月 MS-SQL Server大版内专家分月排行榜第三2014年10月 VB大版内专家分月排行榜第三2014年10月 MS-SQL Server大版内专家分月排行榜第三2014年8月 MS-SQL Server大版内专家分月排行榜第三2013年9月 VB大版内专家分月排行榜第三2013年3月 VB大版内专家分月排行榜第三2012年5月 VB大版内专家分月排行榜第三2012年4月 VB大版内专家分月排行榜第三2010年10月 VB大版内专家分月排行榜第三2010年8月 VB大版内专家分月排行榜第三2010年7月 VB大版内专家分月排行榜第三2009年5月 VB大版内专家分月排行榜第三2008年9月 VB大版内专家分月排行榜第三2008年4月 VB大版内专家分月排行榜第三2008年2月 VB大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。vb中一个窗口打开另一个窗口的同时将一个参数传给这个窗口?_百度知道
vb中一个窗口打开另一个窗口的同时将一个参数传给这个窗口?
vb中一个窗口打开另一个窗口的同时将一个参数传给这个窗口?
我指的传递参数是指的是某个变量就像pb中的openwithparm功能类似
提问者采纳
form1穿袱扁惶壮耗憋同铂括打开form2，form2可以用form1.text1.text这样的方式访问form1中的控件以及值以上。凉快的老狼
其他类似问题
2人觉得有用
其他2条回答
首先可以通过取另一个窗体的控件属性的方法，这样做算是一种投机的做法了:)，比如Form2里的变量a = Form1.Label1.Caption这样；同时也可以通过变量传，比如要将Form1中的一个整型变量a的值传给Form2的变量b，那么可以先在Form2的窗体代码最上面写代码：Public b As Integer然后Form1里打Form2的时候，传给相应的值就行了：Private sub Command1_Click () Form2.b = a 'a在Form1里有定义穿袱扁惶壮耗憋同铂括 Form2.showend sub当然还有其它方法，时间关系，不累述了，有兴趣可以和我联系……
二楼说的正确,以下补充几点:正确的调用窗体语句(窗体名对,且在工程内):form2.Show '显示窗体Load form2 '装载窗体到内存form2.Hide '窗体隐藏,仍在内存Unload form2 '卸载窗体,不在内存中其它:只要被调用窗体名对,且在工程内,该窗体的任一控件的属性在语句中被提及,被调用窗体被装载窗体到内存,但窗体不显示,如在form1的按钮命令中Private Sub Command1_Click()Form2.Label1.Caption = &ABC&End Sub
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁vb里如何隐藏指定软件的窗体
vb里如何隐藏指定软件的窗体 10
我想利用vb编写个自动安装的程序,我需要把程序的窗体给隐藏起来..然后在利用特殊的命令来安装程序..
& 例如：我要安装个 "酷我音乐盒" 我要如何把他的 安装窗口 隐藏起来安装呢?
资源文件释放文件..之后就Shell "安装程序文件名",vbHide 这个指令就行了.
用api的话 放个timer 自动隐藏就行了
的感言：啊哈..成功啦...唯一的缺陷就是.隐藏后屏幕会一闪而过 满意答案
在调用安装窗口时就指定为隐藏啊,如
Shell "安装程序文件名",vbHide&&&&&&&&&&& '隐藏运行
如果是针对已运行的程序,可以用API来隐藏窗体
比如我有一个“计算器”的程序在运行，点下面这个按钮就可以将它隐藏了
Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Const SW_HIDE = 0
Private Sub Command1_Click()&&&& Dim 窗口句柄 As Long&&&& 窗口句柄 = FindWindow(vbNullString, "计算器")&&&& ShowWindow 窗口句柄, SW_HIDEEnd Sub
你好..我把程序放置到了 资源那里运行软件后自动会打开这个程序..
但隐藏的话 却要点击 command 按钮..
有没办法在启动了后 自动隐藏起来啊？
的感言：啊哈..非常感谢.
其他回答 (1)
先用FindWindow函数来得到窗口句柄
再调用ShowWindow函数来隐藏窗口
可以把代码 写给我嘛？
我只和你说一下要用到的函数,你只要声明一下函数
再填写一下参数就行了
相关知识等待您来回答
编程领域专家