精华内容
下载资源
问答
  • 渐变百叶窗效果,VB窗体源代码,上去非常像百叶窗,写的不是太好,有点生硬,不过水平就这样了,它可实现从上下、从左右以及网格三种方式的图像渐变,运行效果如上图所示
  • VB讲课笔记06:窗体与常用控件

    千次阅读 2018-03-10 17:24:29
    VB讲课笔记06:窗体与常用控件 一、窗体设计 窗体VB中最基本的对象,是应用程序的基本组成部分,是菜单栏、工具栏和控件等对象的容器,是应用程序与用户交互的窗口或对话框。窗体设计是整个VB应用程序设计的基础...
    展开全文
  • VBA窗体VB方法

    千次阅读 2016-04-09 18:58:42
    [求助] 求教VBE窗体导入VB的方法和导入后的使用方法  [复制链接]     ctincob 2 主题 8 帖子 0 鲜花 EH新人 积分 11 技术 0 发消息

    [求助] 求教VBE窗体导入VB的方法和导入后的使用方法 

    [复制链接]
       

    2

    主题

    8

    帖子

    0

    鲜花

    EH新人

    Rank: 1

    积分
    11
    技术
    0

    TA的精华主题

    TA的得分主题

    跳转到指定楼层
    1
      发表于 2009-11-19 18:00  |  只看该作者  回帖奖励
    id="iframe808053_0" src="about:blank" width="120" height="240" align="center,center" vspace="0" hspace="0" marginwidth="0" marginheight="0" scrolling="no" frameborder="0" allowtransparency="true" style="word-wrap: break-word; border-width: 0px; border-style: initial; vertical-align: bottom; margin: 0px;">
    有网友发过这样的贴子:http://club.excelhome.net/viewth ... 0%CC%E5%B5%BC%C8%EB

    我也碰到了相同的问题,导入后不是窗体了,而是在设计器里。是导入方法错了,还是使用上有问题?
     
    1 2 3 4 5
    2
      发表于 2009-11-19 22:58  |  只看该作者
    id="iframe808088_0" src="about:blank" width="120" height="240" align="center,center" vspace="0" hspace="0" marginwidth="0" marginheight="0" scrolling="no" frameborder="0" allowtransparency="true" style="word-wrap: break-word; border-width: 0px; border-style: initial; vertical-align: bottom; margin: 0px;">
    vba转到vb几乎就是1+1的问题,直接转化下就行了吧
     
     

    2

    主题

    8

    帖子

    0

    鲜花

    EH新人

    Rank: 1

    积分
    11
    技术
    0

    TA的精华主题

    TA的得分主题

    3
      楼主 |  发表于 2009-11-20 18:32  |  只看该作者  | 楼主
    已解决,从来都是VB或VBA下写程序,从没试过两者之间导入或导入,也没试过把VBA窗体封装在DLL中。

    附导入方法和调用方法:

    1、VBA中在窗体上点击右键,选择导出,得到一个后缀为frm的窗体文件;
    2、在VB工程资源管理器中点右键,选择添加,再选择添加文件,选中上述导出的frm文件,点击打开按键,窗体会被加至VB工程资源管理器的设计器中(窗体中的代码被同步复制),你可以双击打开查看对象,右键选择查看代码;
    3、假设工程名为:TestSystem,已导入的窗体名为UserForm1,新建一个类:Test,在Test类中写入代码如下:
    1.    Sub Wahaha()
    2.       Dim Ts As New  TestSystem.UserForm1
    3.    Ts.Show vbModal
    4.      Set Ts= Nothing
    5.      End Sub
    复制代码
    4、存盘,生成TestSystem.dll;
    5、在VBA工程中Show窗体的方法:当然先引用TestSystem后,代码如下:
    1.    Private Sub CommandButton1_Click()
    2.       Dim ABC As New TestSystem.Test
    3.       ABC.Wahaha
    4.       Set ABC = Nothing
    5.      End Sub
    复制代码
    6、完工!点击CommandButton1后即可Show出封装在DLL文件的窗体。

    [ 本帖最后由 ctincob 于 2009-11-20 18:46 编辑 ]
     
     

    12

    主题

    25

    帖子

    0

    鲜花

    EH初级

    Rank: 2Rank: 2

    积分
    40
    技术
    0

    TA的精华主题

    TA的得分主题

    4
      发表于 2010-2-22 14:17  |  只看该作者
     
     

    4

    主题

    34

    帖子

    0

    鲜花

    EH初级

    Rank: 2Rank: 2

    积分
    65
    技术
    0
    5
      发表于 2014-7-26 12:32  |  只看该作者  | 自己
    “5、在VBA工程中Show窗体的方法:当然先引用TestSystem后,代码如下:”

    为什么不是在vb工程中呢?本次的目的是要将vba的窗体导入到vb中使用。

    http://club.excelhome.net/thread-503954-1-1.html
    展开全文
  • VB讲课笔记11:多重窗体与环境应用主要考查多重窗体的应用以及VB工程结构。以选择题和操作题两种形式考核。选择题中所占分值较少,约占总分的1%,多属于概念题。操作题中,主要出现在简单应用题,操作题试题的抽中...
    VB讲课笔记11:多重窗体与环境应用

    主要考查多重窗体的应用以及VB工程结构。以选择题和操作题两种形式考核。选择题中所占分值较少,约占总分的1%,多属于概念题。操作题中,主要出现在简单应用题,操作题试题的抽中概率约为4%。

    一、多重窗体应用程序
    一个VB工程里可以有多个窗体模块,那就涉及一个工程启动对象的问题。在
    展开全文
  • vb6.0 程序运行时隐藏标题栏,分别单击对应的按钮,完成对应的显示与隐藏功能,隐藏后的窗口看不到标题栏,但风格要切换经典的窗体模式,单击“显示”后,恢复窗口显示。以下代码可实现本窗口标题栏的显示与隐藏功能...
  • ByVal e As System.EventArgs) Handles Yun.Click Try System.Diagnostics.Process.Start(yunxing.Text) System.Threading.Thread.Sleep(18) '过快下面的FindWindow有可能找不到窗体 Catch ex As Exception ...

    尝试了好几天,终于找出来了一个错误,没有根据,只是猜测.关于Win API函数调用的.先前总是弹出错误"应用程序定义错误或对象定义错误",弄了好几次都不见有什么起效.于是把数据类型好好的检查,把long 改成integer .然后再尝试,用点效果了.窗口标题框去掉了.至于另外一个API函数-SetWindowPos()实在无能为力,还有DestroyWindow()也是,只要是能想到的,基本都尝试过了,结局都是悲剧.只有用例外一个API 函数-MoveWindow()代替一下了(幸好有备用胎),这个函数是百试百灵.谁叫.NET不提供窗口操作类函数,只有求助于API了.

    还有一个问题,这个程序对有些窗口不起作用,估计是窗口类不同,要考试了,没时间了,以后再完善.

    代码如下:

    创建一个WIN32API类,方便调用:

    Imports System.Runtime.InteropServices

    Public Class Win32API

    '//常量声明

    Public Const SWP_SHOWWINDOW As Long = &H40

    Public Const SWP_HIDEWINDOW As Long = &H80

    Public Const WS_VSCROLL As Integer = &H200000

    Public Const WS_HSCROLL As Integer = &H100000

    Public Const WS_CAPTION As Integer = &HC00000

    Public Const HWND_TOPMOST As Integer = -1

    '//api函数声明

    Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr,_

    ByVal hWndNewParent As IntPtr) As Integer

    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String,_

    ByVal lpWindowName As String) As IntPtr

    Declare Function MoveWindow Lib "user32" Alias "MoveWindow" (ByVal hwnd As IntPtr,ByVal X As Integer,_

    ByVal Y As Integer,ByVal cx As Integer,ByVal cy As Integer,ByVal Flags As Boolean) As Boolean

    Declare Function DestroyWindow Lib "user32" Alias "DestroyWindow" (ByVal hwnd As IntPtr) As Integer

    Declare Auto Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As IntPtr,_

    ByVal nIndex As Integer,ByVal dwNewLong As Integer) As Integer

    Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As IntPtr,_

    ByVal nIndex As Integer) As Integer

    Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As IntPtr,ByVal hWndInsertAfter As Integer,_

    ByVal x As Long,ByVal y As Long,ByVal cx As Long,ByVal cy As Long,ByVal wFlags As Long) As Integer

    _

    Public Shared Function SetWindowText(ByVal hwnd As Integer,ByVal l As String) As Boolean

    End Function

    _

    Public Shared Function ShowWindow(ByVal hwnd As Integer,ByVal pa As Integer) As Boolean

    End Function

    ' _

    'Public Shared Function SetWindowLong(ByVal hwnd As Integer,ByVal nIndex As Integer,ByVal dwNewLong As Integer) As Integer

    'End Function

    End Class

    主窗口代码:

    Public Class MainForm

    Dim hwnd As IntPtr

    Private Sub FormMain_Resize(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Resize

    Try

    Err.Clear()

    Win32API.MoveWindow(hwnd,Me.TabPage2.Width,Me.TabPage2.Height,True) '随父窗体一起缩放

    Catch ex As Exception

    MessageBox.Show(ErrorToString(Err.LastDllError) & ex.Message)

    End Try

    End Sub

    Private Sub Xuan_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Xuan.Click

    Try

    Err.Clear()

    hwnd = Win32API.FindWindow(vbNullString,xuanze.Text)

    Catch ex As Exception

    MessageBox.Show(ErrorToString(Err.LastDllError) & ex.Message)

    End Try

    End Sub

    Private Sub Yun_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Yun.Click

    Try

    System.Diagnostics.Process.Start(yunxing.Text)

    System.Threading.Thread.Sleep(18) '过快下面的FindWindow有可能找不到窗体

    Catch ex As Exception

    MessageBox.Show(ex.Message)

    End Try

    End Sub

    Private Sub Qian_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Qian.Click

    Try

    Err.Clear()

    Win32API.SetParent(hwnd,Me.TabPage2.Handle) '设置父窗体

    System.Threading.Thread.Sleep(100)

    Win32API.SetWindowLong(hwnd,-16,Win32API.GetWindowLong(hwnd,-16) And (Not Win32API.WS_CAPTION)) '去掉标题框

    'MessageBox.Show(ErrorToString(Err.LastDllError))

    'Win32API.SetWindowPos(hwnd,Me.TabPage2.Handle,Win32API.SWP_SHOWWINDOW) '直接嵌套到TabPage1内

    Win32API.MoveWindow(hwnd,True) '随父窗体一起缩放

    Catch ex As Exception

    MessageBox.Show(ErrorToString(Err.LastDllError) & ex.Message)

    End Try

    End Sub

    Private Sub Yin_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Yin.Click

    Try

    Err.Clear()

    Win32API.ShowWindow(hwnd,0) '隐藏窗口

    Catch ex As Exception

    MessageBox.Show(ErrorToString(Err.LastDllError) & ex.Message)

    End Try

    End Sub

    Private Sub Xian_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Xian.Click

    Try

    Err.Clear()

    Win32API.ShowWindow(hwnd,1) '显示窗口

    Catch ex As Exception

    MessageBox.Show(ErrorToString(Err.LastDllError) & ex.Message)

    End Try

    End Sub

    Private Sub Shan_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Shan.Click

    Try

    Err.Clear()

    Win32API.DestroyWindow(hwnd) '删除窗体

    Catch ex As Exception

    MessageBox.Show(ErrorToString(Err.LastDllError) & ex.Message)

    End Try

    End Sub

    Private Sub Gai_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Gai.Click

    Try

    Err.Clear()

    Win32API.SetWindowText(hwnd,gaibian.Text) '改变窗口标题

    Catch ex As Exception

    MessageBox.Show(ErrorToString(Err.LastDllError) & ex.Message)

    End Try

    End Sub

    End Class主窗口界面:

    运行后例子:

    看窗口的标题栏不见了,而且嵌在指定窗口里面,还可以随着窗口放大缩小!估计CF等游戏窗口化外挂就是这样弄的,当然要更高深点.

    展开全文
  • vb.net 教程 3-2 窗体编程之窗体 2

    千次阅读 2017-04-22 20:45:57
    在《vb.net 教程 3-2 窗体编程之窗体 1》中谈了me这个关键词,实际大家也不用太在意,记住在代码中用me来表示这个窗口就可以了。 上一节降了窗口默认事件(form.load),我们再次回顾一下代码: Private Sub ...
  • VB用两种方法实现win7风格的窗体界面,一种是使用manifest 文件实现,另一种是使用Res资源文件实现,XP风格的manifest文件和win7...在XP里可能无法实现,因此XP下运行编译后的EXE文件可能看不到Windows7风格的界面。
  • (30KB) 58,sclcon.zip 知道你对ie里背景的水印属性有没有印象,现在你在窗体里也可以实现了(162KB) 59,submenu.zip 可以在VB中自定义弹出式子菜单(8KB) 60,zlibtool.zip 较好的一个有进度显示...
  • 前言 用VS2015设计窗体,设计的窗体只要一运行就变大了,很确定自己没有改别的属性,找了几个人了也清楚是怎么回事,运行之前和运行之后的大小就是一样,百度了也没有找到答案。 ...
  • VB用两种方法实现win7风格的窗体界面,一种是使用manifest 文件实现,另一种是使用Res资源文件实现,XP风格的manifest文件和win7...在XP里可能无法实现,因此XP下运行编译后的EXE文件可能看不到Windows7风格的界面。
  • vb.net的多窗体操作

    千次阅读 2012-02-09 09:14:11
     在微软Visual Basic 6.0 中,一条简单的 “Form2.Show” 语句就能显示项目中的第二窗体 (Form2)。然而,它在 Visaul Basic.NET 中却行不通了,因为 .NET 版在窗体处理机制上有了很大的变化。刚刚转向 .NET 版的 ...
  • VB窗口抖动特效,仿QQ聊天消息提醒,模拟QQ窗口抖动,可设置抖动范和控制抖动的次数一共有两种实现窗体抖动,wssccc做的模拟窗口抖动效果的Demo,...编辑注:需要下载源码编译运行亲测吧,效果截图是看不到抖动效果的。
  • VB窗体启动、关闭时涉及的主要事件

    千次阅读 热门讨论 2013-10-27 15:23:50
    一、启动窗体时,事件顺序是: 1 Form_Initialize  Initialize 事件即初始化事件,任何窗体生命周期的第一个事件都是Initialize。只要在项目中使用了窗体的名称,或在Visual Basic 6.0创建实际窗口及其控件之前,...
  • VB6.0毕竟是很古老的开发工具了,其对所使用的第三方组件依赖性比较强,例如在打开从其它电脑上拿来的VB6.0的软件(系统)的工程文件(源代码)时,经常会遇到"能加载MSCOMCTL.OCX“的错误提示,如图所示:产生这种...
  • VB窗体设计: 窗体犹如一块画布,在设计时是程序的设计区域,而在运行程序时,每个窗体对应于一个窗口。 窗体结构与普通 Windows下的窗口非常相似,如下图: 窗体的主要事件: 1、Load(装入)...
  • VB6.0实现将窗体最小化系统托盘区 两个方法均测试部分有效或完全有效 1、新建立一个VB6工程,将Form1的ShowInTaskBar属性设置为False 2、菜单:工程--添加模块 按“打开”这样就添加了一个新模块,名为Module1...
  • vb.net 教程 3-2 窗体编程之窗体 4

    千次阅读 热门讨论 2017-04-24 19:36:54
    版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名...信,可以仔细打开Form2的代码,看看默认代码第一句是不是 “Public Class Form2”。 我们更深入的了解一下,在解决方案资源管理器,按...
  • VB 窗体的设计及应用

    2014-05-08 23:39:22
    上机运行了局如下:画直线,在鼠标被按下的位置画一个端点,在鼠标松开的位置画另一个端点。   重点:窗体及常用控件的基本属性、事件和方法 难点:鼠标事件和键盘事件   Private Sub Form_Activate()
  • VB.NET(1)——创建第一个窗口程序

    千次阅读 2020-04-11 21:43:05
    1.创建项目 下载Visual Studio 2010及其以上的版本,作者是2013版。 文件->新建项目。 在弹出的对话框内,左侧选择其他语言,选择...我们需要在上面添加控件,每个控件都是一个对象,VB.NET是OOP(面向对象编程...
  • VB窗体始终处于最前面

    千次阅读 2007-07-22 20:57:00
    应用SetWindowPos函数可以设置一个窗口的位置和状态,本例正是利用此函数来把一个窗体放在所有窗体之上,使之总是处于最前面。 我们先来看看SetWindowPos函数的定义和参数: 使用API函数之前必须先在程序中声明如下...
  • vb.net 教程 3-4 窗体编程 ImageList

    千次阅读 2017-05-20 17:37:51
    版权声明:本文为博主原创...本来ImageList属于公共控件里面的,但是由于和之后要讲解的几个控件有关系,所以提前这里进行讲解。 当添加了ImageList组件后,它不会显示在窗体中,而是显示在设计窗体的下面: ...
  • 注释能使你的代码更加容易理解,更多时候注释是写给自己的,相信我,过了多长时间你就会把编程的思路忘记,有了注释就能加快你的思路回忆。 一、代码注释 很简单,就是用英文的“’”分号开头,可以单独成行,...
  • 4、vb6保存(读取)数据注册表里.txt 5、vb6背景色透明.txt 6、vb6打开任意类型的文件.txt 7、vb6打开网页.txt 8、vb6单击按钮复制文本框内的内容.txt 9、vb6单击按钮最小化窗体.txt 10、vb6点击最大化最小化和...
  • 到底是谁控制我的窗体只能在运行时显示,但是在解决资源管理器中显示了呢?
  • 合并菜单及工具栏不是新技术也不是新话题,我只是把网上流行的C#代码用VB改写了下,分享给习惯了VB的朋友。 代码不只适用于2010,以前的版本也可以跑,标题如此说只因为我提供的源码...未运行时主窗体: 未运...
  • VB 6到VB.NET——窗体特殊应用李洪根一、 摘要 VB .NET做为VB6的升级版本,具备了许多新的功能,它可以简便快捷地创建 .NET 应用程序(包括 XML Web services 和 ASP.NET Web 应用程序),还是一个功能强大的...
  • 现在为止, 我们讨论的只是如何创立和访问窗体实例, 而没有涉及如何读取或改变窗体内的信息。 假如你的窗体已经依照前述方法实例化, 并且访问窗体的代码都位于窗体所在的项目中, 则你可以直接操作窗体中的任何...
  • VB.net怎么最小化系统托盘

    千次阅读 2016-02-24 11:31:30
    小孩放假了,天天在电脑...现在遇到问题,知道vb.net程序怎么最小化系统托盘,百度一篇资料CP过来参考。新浪微博对代码支持不好,排序有问题,可以直接查阅:http://oteman.blog.sohu.com/47614796.html 所谓静态

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,719
精华内容 3,487
关键字:

vb运行窗体看不到