精华内容
下载资源
问答
  • 我用树形控件做菜单,MDI窗体,数据库表中有个字段为对应的窗体名,比如我点击树形的节点获得数据库中的窗体名为MyForm,我怎么才能打开MyForm窗体? 我都百度了很多天,反射窗体,但是都不能用,因为对反射一点...
  • 如题,我想要在程序中得到MDI子窗体列表并用LIST控件显示出来,不知道该用哪个属性。
  • 类似小Q书桌一样的功能,多谢了。要求拖进图标,并自动排列,单击可以打开,百度搜不到,所以有请各路大神出手 ![图片说明](https://img-ask.csdn.net/upload/201603/20/1458467899_625342.png)
  • 展开全部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、即可随意调整文本框大小,拉水平滚动条文本框会宽度会随水平滚动条改变,拉垂直滚动条文本框高度会随垂直滚动条改变。

    展开全文
  • net中不知道怎么链接access,我打开那个数据库连接也只能连到表格,连不到窗体,我想连接窗体。大概就是实现在vb.net中按下一个bottom可以弹出access中我已经做好的一个窗体。请告诉我具体的步骤及代码。是期末作业...
  • vb窗体直接传递参数有多种方式,比较常用的一种就是在模块里就可以声明全局变量,vb怎么在模块里就可以声明全局变量? 首先打开vb 如图,在这里点击右键,选择”添加“选项,然后点击“添加模块” ...
    1. vb窗体直接传递参数有多种方式,比较常用的一种就是在模块里就可以声明全局变量,vb怎么在模块里就可以声明全局变量?

    2. 首先打开vb

      vb怎么声明全局变量

    3. 如图,在这里点击右键,选择”添加“选项,然后点击“添加模块”

      vb怎么声明全局变量

    4. 然后出现选择模块,点击“打开”

      vb怎么声明全局变量

    5. 4

      然后在模块里就可以声明全局变量了。。。

      例如public a as integer

      vb怎么声明全局变量

    展开全文
  • 工作中有时需要对发出的Excel文件进行加密操作,避免文件中重要信息被不相关的人员获取。提到Excel工作簿加密,小伙伴们可能马上会想到这样做:文件——>...效果如下:怎么样,相对于自带的加密功能,是不是逼格...

    工作中有时需要对发出的Excel文件进行加密操作,避免文件中重要信息被不相关的人员获取。

    提到Excel工作簿加密,小伙伴们可能马上会想到这样做:文件——>另存为——>工具——>常规选项——>设置打开密码。

    34da0171eae3e452524c7d318aadd821.gif

    那么,除了这种自带的工作簿加密方式,有没有更酷一些的操作呢?今天我给大家分享一个高级点的,设置用户窗体登录界面。效果如下:

    789a1218b2d79a5d58978d6602d6d9c8.gif

    怎么样,相对于自带的加密功能,是不是逼格立马高了许多。更重要的是,这个登录界面的背景图片和文字内容是可以自定义的。首次与用户交互便与众不同,让其有继续探索下去的兴趣。

    请观看视频(第一次录制原声视频,哈哈^_^)

    制作步骤:

    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.为了更好地保护用户名和密码,可以借助设置单元格格式为自定义的三个英文分号";;;"将用户名和密码隐藏,并配合工作表保护使用;

    77212dc969b26349f0cccda89afc9730.gif

    3.可以为VBA代码设置工程密码(本例密码123),以保护全部代码。

    5c2ac5fa1182f97599453f2235a87796.gif

    至此,大功告成!

    即便如此,用此方法制作的登录窗体,其实并非绝对安全可靠。毕竟连Windows和Office都可以盗版,何况用excel开发的登录界面。但是,日常工作中用这样的方式呈现,还是可以让人耳目一新、印象深刻。

    如需下载Excel源文件,请回复关键词"用户窗体"。

    4c5d3db456df7e9bf4fe10586cc9982b.png

    展开全文
  • 我用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.

     

    展开全文
  • 当我们打开电脑上网时,是不是会经常看到桌面的右下角弹出一个小的新闻热点窗体,我们可以实现吗?当然可以,这篇文章就来给您掩饰怎么样来用代码实现。看吧,正写着呢弹出了一个。 一、主要用到的函数是API函数...
  • VB6.0菜单编辑器怎么用?

    千次阅读 2018-07-30 17:37:57
    ★ 在VB6.0窗体界面下,右键打开“菜单编辑器”。 ☀ “菜单编辑器”对话框 使用菜单编辑器可以为应用程序创建自定义菜单并定义其属性。 ☀ 对话框选项 ♡ “标题” 使用该选项可以输入菜单名或命令名。 如果...
  • 当我们打开电脑上网时,是不是会经常看到桌面的右下角弹出一个小的新闻热点窗体,我们可以实现吗?当然可以,这篇文章就来给您掩饰怎么样来用代码实现。看吧,正写着呢弹出了一个。 A,参数设置 hWnd:指定产生...
  • VB百例总结

    2019-08-27 08:51:44
    1、当我们打开VB时,我们会看到一个窗体窗体的右侧是控件的属性,左侧当然的是必不可少的控件了。 2、当然,在敲VB百例的时候,会遇到很多不懂,或者运行不出来的,还有就是语法错误,这时候我们就...
  • 43、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来制作一款简单的小程序,矩形面积计算器。首先在新建工程界面选择标准EXE后点击打开按钮。然后将Form1属性窗口中的Caption值设置为:矩形面积计算器。在对象窗口中可以调节计算器界面的大小。...
  • 打开VB新建一个工程,添加一个窗体。一共要3个窗体,2个模块。太复杂了,我也在考虑怎么写才能让大家理解。文章写的不好,还请大家包含。说下原理:一、监控TCP连接黑客程序或木马程序的本质是实现数据传输。TCP和...
  • SliderView控件一、 样式一我们要实现上图中的效果,需要如下的操作:从工具栏上的“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新建一个工程,添加一个窗体。一共要3个窗体,2个模块。太复杂了,我也在考虑怎么写才能让大家理解。文章写的不好,还请大家包含。说下原理:一、监控 TCP连接 黑客程序或木马程序的本质是实现数据传输。TCP...
  • 我建了一个父窗体,想通过一个菜单项打开一个子窗体浏览一张图片,然后我通过鼠标单击一下图片,想在父窗体的的状态栏上显示当前X,Y的坐标值。想了很久,不知道该怎么解决,我还是菜鸟,想请大家帮小妹一个忙,谢谢...
  • 请问用shell或ShellExecute去调用外部的.exe程序, 那么怎么得到这个.exe的返回值可以考虑用DDE实现,给你个例子打开VB,新建一个工程,选择菜单中的“工程->工程1 属性”,把工程名称改为“P1”(我爱 偷懒,能短则...
  • “感兴趣就好!...见到我迷茫的眼神,大李用鼠标点击打开被Region合起来的“Windows 窗体设计器生成的代码”,指着中间的一句自动生成的代码:  Friend WithEvents Button1 As System.Windows.Forms.Button
  • ???? 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开发...

空空如也

空空如也

1 2 3
收藏数 42
精华内容 16
关键字:

vb怎么打开窗体