-
vb.net怎么打开用变量来存储窗体名的窗体
2015-06-01 17:27:19我用树形控件做菜单,MDI窗体,数据库表中有个字段为对应的窗体名,比如我点击树形的节点获得数据库中的窗体名为MyForm,我怎么才能打开MyForm窗体? 我都百度了很多天,反射窗体,但是都不能用,因为对反射一点... -
vb.net 2010 怎么得到打开的MDI子窗体列表
2015-09-24 11:19:22如题,我想要在程序中得到MDI子窗体列表并用LIST控件显示出来,不知道该用哪个属性。 -
vb怎么把桌面快捷方式拖进窗体?
2016-03-20 10:00:21类似小Q书桌一样的功能,多谢了。要求拖进图标,并自动排列,单击可以打开,百度搜不到,所以有请各路大神出手  -
怎么把文本框弄一样大小_在VB中如何让文本框大小与窗体大小一样大
2021-01-14 16:53:42展开全部1、首先我们打开vb6.0软件进入到标准”工程1“界面,这些32313133353236313431303231363533e78988e69d8331333433626538比较简单,就不一一上图了,在”form1“窗口上加载一个文本框”text1”如图。...展开全部
1、首先我们打开vb6.0软件进入到标准”工程1“界面,这些32313133353236313431303231363533e78988e69d8331333433626538比较简单,就不一一上图了,在”form1“窗口上加载一个文本框”text1”如图。
2、文本框加载好以后,需要在右边属性界面设置它的高度和宽度。
3、点击属性界面的“height”设置文本框“text1”的高度为2000,再点击“width”设置文本框“text1”的宽度为2500如图。
4、然后再在文本框“text1”下面加载一个水平滚动条,然后设置水平滚动条的属性最大值“max“为2500”value“的值也为2500,最后更改水平滚动条的名称为”h1“如图。
5、然后把水平滚动条的最大位移量(largechange)设置为20最小位移量(smallchange)设置为2如图。
6、按照上面的方法,我们再把垂直滚动条加上,设置它的属性最大值为2000"value"值为2000,更改垂直水平条名称为v1,再设置垂直水平条最大位移量为20最小位移量为2如图。
7、然后是给这个工程编写程序:
PrivateSubh1_Change()
Text1.Width=h1.Value(文本框的宽度等于水平滚动条的value值)
EndSub
PrivateSubv1_Change()
Text1.Height=v1.Value(文本框的高度等于垂直滚动条的value值)
EndSub
8、即可随意调整文本框大小,拉水平滚动条文本框会宽度会随水平滚动条改变,拉垂直滚动条文本框高度会随垂直滚动条改变。
-
如何在vb中引用access数据库中的窗体
2013-12-31 03:43:12net中不知道怎么链接access,我打开那个数据库连接也只能连到表格,连不到窗体,我想连接窗体。大概就是实现在vb.net中按下一个bottom可以弹出access中我已经做好的一个窗体。请告诉我具体的步骤及代码。是期末作业... -
vb怎么在模块里就可以声明全局变量?
2019-12-09 22:11:12vb窗体直接传递参数有多种方式,比较常用的一种就是在模块里就可以声明全局变量,vb怎么在模块里就可以声明全局变量? 首先打开vb 如图,在这里点击右键,选择”添加“选项,然后点击“添加模块” ... -
vb6 强制退出excel_Excel制作高逼格登录窗体
2020-12-11 15:11:55工作中有时需要对发出的Excel文件进行加密操作,避免文件中重要信息被不相关的人员获取。提到Excel工作簿加密,小伙伴们可能马上会想到这样做:文件——>...效果如下:怎么样,相对于自带的加密功能,是不是逼格...工作中有时需要对发出的Excel文件进行加密操作,避免文件中重要信息被不相关的人员获取。
提到Excel工作簿加密,小伙伴们可能马上会想到这样做:文件——>另存为——>工具——>常规选项——>设置打开密码。
那么,除了这种自带的工作簿加密方式,有没有更酷一些的操作呢?今天我给大家分享一个高级点的,设置用户窗体登录界面。效果如下:
怎么样,相对于自带的加密功能,是不是逼格立马高了许多。更重要的是,这个登录界面的背景图片和文字内容是可以自定义的。首次与用户交互便与众不同,让其有继续探索下去的兴趣。
请观看视频(第一次录制原声视频,哈哈^_^)
制作步骤:
01
—
制作用户窗体基础界面
ALT+F11进入VBE编辑环境后,插入窗体,窗体背景图片,标签,文字框,命令按钮,并按要求命名。
02
—
为命令按钮赋宏
为宏按钮编写VBA代码,以下五段代码功能分别为:
判断输入的用户名和密码是否正确;
修改用户名;
修改密码;
禁止用户强制关闭登录窗体;
退出用户窗体界面;
Private Sub CmdOk_Click() '单击"确定"按钮的时候执行过程 'Application.ScreenUpdating = False '关闭屏幕更新 Static I As Integer '声明一个变量 '判断用户名和密码是否输入正确 If User.Value = Sheets("用户名密码").Range("A2") & "" And Password.Value = Sheets("用户名密码").Range("B2") & "" Then Unload Me '关闭登录窗体 Application.Visible = True '显示Excel界面 Else I = I + 1 '密码或用户名输入错误一次,变量i加1 If I = 3 Then '如果输错三次执行下面的语句 MsgBox "对不起,你无权打开工作薄!", vbInformation, "提示" ThisWorkbook.Close savechanges:=False '关闭当前工作薄,不保存更改 Else '如果输错不满三次,执行下面的语句 MsgBox "输入错误,你还有" & (3 - I) & "次输入机会。", vbExclamation, "提示" User.Value = "" '清除文字框中的用户名 Password.Value = "" '清除文字框中的密码 End If End If 'Application.ScreenUpdating = True '开启屏幕更新End SubPrivate Sub UserSet_Click() '单击修改用户名按钮时运行过程 Dim old As String, new1 As String, new2 As String old = InputBox("请输入原用户名:", "提示") new1 = InputBox("请输入新用户名:", "提示:请在新用户名前后分别加上""英文双引号") new2 = InputBox("请再次输入新用户名:", "提示:请在新用户名前后分别加上""英文双引号") If old <> "" And new1 <> "" Then '判断输入的用户名是否为空 '判断新旧用户名是否输入正确 If old = Sheets("用户名密码").Range("A2") And new1 = new2 Then Sheets("用户名密码").Range("A2") = new1 ThisWorkbook.Save '保存更改 MsgBox "用户名修改完成,下次登录请使用新用户名!", vbInformation, "提示" Else MsgBox "输入错误,修改没有完成!", vbCritical, "错误" End If Else MsgBox "用户名不能为空!", vbCritical, "错误" End IfEnd SubPrivate Sub PasswordSet_Click() '当单击更改密码按钮时运行过程 Dim old As String, new1 As String, new2 As String old = InputBox("请输入原密码:", "提示:请在新密码前后分别加上""英文双引号") new1 = InputBox("请输入新密码:", "提示:请在新密码前后分别加上""英文双引号") new2 = InputBox("请再次输入新密码:", "提示") If old <> "" And new1 <> "" Then '判断输入的密码是否为空 '判断新旧密码是否输入正确 If old = Sheets("用户名密码").Range("B2") And new1 = new2 Then Sheets("用户名密码").Range("B2") = new1 ThisWorkbook.Save '保存更改 MsgBox "密码修改完成,下次登录请使用新密码!", vbInformation, "提示" Else MsgBox "输入错误,修改没有完成!", vbCritical, "错误" End If Else MsgBox "密码不能为空!", vbCritical, "错误" End IfEnd SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)If CloseMode = vbFormControlMenu ThenMsgBox "请输入正确的用户名和密码登录"Cancel = TrueEnd IfEnd SubPrivate Sub CmdCancel_Click() '当单击取消按钮时执行过程 Unload Me '关闭登录窗体 ThisWorkbook.Close savechanges:=False '关闭当前工作薄,不保存修改End Sub
03
—
设置工作表打开和关闭事件
这里主要用途是:
打开工作簿时隐藏Excel界面只显示窗体界面;
避免用户以特殊方式如Ctrl+Break或Esc、Command+Period等中断程序运行;
在合法登录之前,将核心数据表深度隐藏;
最终目的是让用户登录窗体能切实发挥作用,避免形同虚设。
Private Sub Workbook_Open()Application.ScreenUpdating = False '暂停刷新屏幕'屏蔽用户以Ctrl+Break(或 Esc、Command+Period)方式中断程序Application.EnableCancelKey = xlDisabledApplication.Visible = FalseUserForm1.ShowDim sh As Worksheet For Each sh In Worksheets sh.Visible = xlSheetVisible NextSheets("数据地图").SelectApplication.ScreenUpdating = True '恢复刷新屏幕End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean) Dim sh As Worksheet For Each sh In Worksheets If sh.Name <> "首页" Then sh.Visible = xlSheetVeryHidden Else sh.Visible = xlSheetVisible End If Next End Sub
注:
1.因工作簿中至少要求保留一个工作表,无法全部隐藏,所以这里单独设置了”首页“工作表。本工作表无实质内容,只是简单的操作指导手册以及数据来源和作者信息等。当弹出询问“是否启用宏”的对话框时可显示该界面;
2.为了更好地保护用户名和密码,可以借助设置单元格格式为自定义的三个英文分号";;;"将用户名和密码隐藏,并配合工作表保护使用;
3.可以为VBA代码设置工程密码(本例密码123),以保护全部代码。
至此,大功告成!
即便如此,用此方法制作的登录窗体,其实并非绝对安全可靠。毕竟连Windows和Office都可以盗版,何况用excel开发的登录界面。但是,日常工作中用这样的方式呈现,还是可以让人耳目一新、印象深刻。
如需下载Excel源文件,请回复关键词"用户窗体"。
-
excel VBA中调用VB6写的DLL中的窗体和过程函数
2014-03-08 15:00:56我用VB6企业版封装了一个DLL,其中有4个VB窗体——form1,form2,form3,form4,在excel 2003的VBE中用VBA代码调用DLL中的类模块、标准模块均成功,但是就是调用和显示不了VB窗体!!!应该怎么调用?才能显示??? ...我用VB6企业版封装了一个DLL,其中有4个VB窗体——form1,form2,form3,form4,在excel 2003的VBE中用VBA代码调用DLL中的类模块、标准模块均成功,但是就是调用和显示不了VB窗体!!!应该怎么调用?才能显示???
调用过程依次是:打开excel 工作薄,显示form1(在启动form1的过程中判断和启动form4);点击form1中的两个按钮,分别调用form2和form3;点击form2 和form3的按钮分别执行类模块中的相关sub. -
VB.NET 章鱼哥出品--利用API函数AnimateWindow创建Popup提示窗口,窗体的动画效果
2014-11-11 16:16:18当我们打开电脑上网时,是不是会经常看到桌面的右下角弹出一个小的新闻热点窗体,我们可以实现吗?当然可以,这篇文章就来给您掩饰怎么样来用代码实现。看吧,正写着呢弹出了一个。 一、主要用到的函数是API函数... -
VB6.0菜单编辑器怎么用?
2018-07-30 17:37:57★ 在VB6.0窗体界面下,右键打开“菜单编辑器”。 ☀ “菜单编辑器”对话框 使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。 ☀ 对话框选项 ♡ “标题” 使用该选项可以输入菜单名或命令名。 如果... -
VB.NET弹幕--- 利用API函数AnimateWindow创建Popup提示窗口,窗体的动画效果---章鱼哥
2018-08-29 19:26:01当我们打开电脑上网时,是不是会经常看到桌面的右下角弹出一个小的新闻热点窗体,我们可以实现吗?当然可以,这篇文章就来给您掩饰怎么样来用代码实现。看吧,正写着呢弹出了一个。 A,参数设置 hWnd:指定产生... -
VB百例总结
2019-08-27 08:51:441、当我们打开VB时,我们会看到一个窗体,窗体的右侧是控件的属性,左侧当然的是必不可少的控件了。 2、当然,在敲VB百例的时候,会遇到很多不懂,或者运行不出来的,还有就是语法错误,这时候我们就... -
Vb6四十多条新手制作或业余爱好者必看的
2013-02-07 21:09:1143、vb6怎么生成不带引号的字符.txt 44、vb6制作时钟(时针、分针、秒针).txt 45、vb6中的text中输入的内容存为txt文本.txt 46、vb6中多个简单的命令.txt 47、vb6中怎样加载背景图片,能随窗体大小变化? .txt 以上... -
VB中的command
2010-01-19 13:50:00在开发IP-MAC扫描监视器时,设置了开机自动运行,但是当WINDOWS启动后,程序运行后却打开窗体了,不是最小化运行的。这怎么办呢?于是想到加一个参数给程序启动时,但不知道怎么实现,结果发现VB中有command,是可以... -
vb msgbox给按钮caption_简单VB小程序|手把手教你做,矩形面积计算器
2020-12-11 03:48:47今天教大家怎么使用VB来制作一款简单的小程序,矩形面积计算器。首先在新建工程界面选择标准EXE后点击打开按钮。然后将Form1属性窗口中的Caption值设置为:矩形面积计算器。在对象窗口中可以调节计算器界面的大小。... -
[转载]VB防火墙的开发原理-VB编程
2008-01-31 12:14:00打开VB新建一个工程,添加一个窗体。一共要3个窗体,2个模块。太复杂了,我也在考虑怎么写才能让大家理解。文章写的不好,还请大家包含。说下原理:一、监控TCP连接黑客程序或木马程序的本质是实现数据传输。TCP和... -
怎么自定义按比例缩放的panel坐标控件_.NET(C#、VB)APP开发——Smobiler平台控件介绍:SliderView控件...
2020-11-29 09:54:06SliderView控件一、 样式一我们要实现上图中的效果,需要如下的操作:从工具栏上的“Smobiler Components”拖动一个SliderView控件到窗体界面上修改SliderView的属性Items属性获得和设置标签视图集合,打开集合编辑... -
VB.net的第一个程序
2016-08-29 21:07:56根据历代程序员的传承,每个程序员的第一个程序应该是显示一个"Hello,world",这个博客就是讲怎么写一个可以显示“hello world”的VB.net程序。 因此,我们先打开Visual Studio,点稽新建项目,选择Visual Basic... -
VB防火墙的开发原理
2006-09-04 14:06:00打开VB新建一个工程,添加一个窗体。一共要3个窗体,2个模块。太复杂了,我也在考虑怎么写才能让大家理解。文章写的不好,还请大家包含。说下原理:一、监控 TCP连接 黑客程序或木马程序的本质是 -
VB 写的俄罗斯方块 整个工程
2009-12-15 19:07:25其中“窗体背景颜色”是指整个窗体的背景的颜色,“主窗体颜色”是指主窗体的颜色,“副窗体颜色”是指副窗体的颜色。 设置中的“声音”无效!怎么设置也不会有游戏声音 设置中的“作弊”是指你可以在游戏进行的时候... -
[转载]VB防火墙的开发原理
2006-11-05 20:47:00打开VB新建一个工程,添加一个窗体。一共要3个窗体,2个模块。太复杂了,我也在考虑怎么写才能让大家理解。文章写的不好,还请大家包含。说下原理:一、监控 TCP连接 黑客程序或木马程序的本质是实现数据传输。TCP... -
想请教大家一个vb.net问题
2007-05-20 11:23:00我建了一个父窗体,想通过一个菜单项打开一个子窗体浏览一张图片,然后我通过鼠标单击一下图片,想在父窗体的的状态栏上显示当前X,Y的坐标值。想了很久,不知道该怎么解决,我还是菜鸟,想请大家帮小妹一个忙,谢谢... -
DDE编程VB(这是以前在CSDN-vb社区混时看到的,写得比较清楚,原理讲得一清二楚)
2006-04-17 19:59:00请问用shell或ShellExecute去调用外部的.exe程序, 那么怎么得到这个.exe的返回值可以考虑用DDE实现,给你个例子打开VB,新建一个工程,选择菜单中的“工程->工程1 属性”,把工程名称改为“P1”(我爱 偷懒,能短则... -
VB.NET之旅(十三)—标准事件处理程序
2012-01-05 14:51:56“感兴趣就好!...见到我迷茫的眼神,大李用鼠标点击打开被Region合起来的“Windows 窗体设计器生成的代码”,指着中间的一句自动生成的代码: Friend WithEvents Button1 As System.Windows.Forms.Button -
Henry的VB.NET之旅(十三)—标准事件处理程序
2004-02-05 00:48:00???? Henry的VB.NET之旅(十三)—标准事件处理程序??????...”大李微微点点头,然后问我道,“你知道程序是怎么...”见到我迷茫的眼神,大李用鼠标点击打开被Region合起来的“Windows 窗体设计器生成的代码”,指着中间 -
问题二 如何导出Excel工作薄
2016-07-26 15:46:13机房一直拖拖拖,不想下手,昨晚打开了,发现有好几个窗体都需要导入Excel工作薄,打开原机房一点人家滴导出Excel按钮,Execel工作薄完美滴出来啦,自己的兴奋劲也来了,必须让Me滴也要华丽的蹦出来,自己的怎么弄呢... -
半年总结
2011-01-30 10:55:00做完了机房收费...然后没有实施,把类窗口编辑打开,却不知道从什么地方下手,该怎么下手。想了半天,最后还是给把类窗体编辑器给关了。 然后学的软件工程,软件工程听的那叫个脑仁疼。边做记 -
ASP.NET精品课程+源代码
2009-01-05 20:15:51本课程通过一个ASP.NET网站的构建向学生阐释ASP.NET是什么,怎么来开发。 涵盖了代码规范、运行模型、服务控件、验证控件、数据绑定技术、ADO.NET技术、数据库技术、文件操作等内容。 所列出的内容均是ASP.NET开发...