第一:要实例化打开的窗体 Dim bb As New frm_Main 第二:打开窗体 show 第三:释放自身 Finalize()   '赋值另一窗体的控件值,先实例化,再进行操作 Dim bb As New frm_Main bb.lbl_UserID.Text = " bb.Show() '释放登陆窗体的资源 Finalize()

Option Explicit ' ******************** 窗体透明 ******************** '***Module.bas '**** Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As

如何理解VB窗体中的scale类属性及width height属性之间的关系 VB中的SCALEHIEGT,SCALEWIDTH,与窗体中的WIDTH,HEIGHT的区别及关系是许多VB初学者难以理解的.本人在DELPHI的过程中也曾经对这类似的概论搞不清楚,但通过这次对VB中这些类似概念的学习后,可以说是已掌握了这种概念及原理了.现在回头看DELPHI的相关点有豁然开朗的,VB的确是可视化编程入门的最佳语言. 问题的提出   在VB中默认的度量单位是缇,这是一种跟屏幕分辨率无关的一种度量单位,

动态数据交换(dde)是windows应用程序间通讯的基本方法之一,在动态数据交换的过程中,提供数据和服务的应用程序称为服务器,请求数据或服务的应用程序则称为客户. dde交谈是由客户程序启动的.如果得到服务器程序的响应便可在两个应用程序之间建立起一条数据通道,开始进行信息的动态交换和传递.一个windows应用程序可以是一个程序的客户,同时也可以是另一个程序的服务器.本文将介绍如何用visual basic来编写dde服务器和客户程序. vb中的dde事件 当动态数据交换启动时,会产生若干事件

在Excel的“标准模块”中可以创建4种自动运行的宏,它们分别是Auto_Open(打开工作 簿时自动运行), Auto_Close, Auto_Activate,  Auto_Deactivate.这些自动运行的宏是为了与Excel5和95兼容而保留下来的.现在可以使用工作簿的Open,Close,Activate,Deactivate 事件来代替它们. 那么,什么是“标准模块”呢?其实就是我们在VBE中插入的那个模块,微软称它为“标准模块”.而其余的三类:Microsoft Excel对象,

下载后,解压缩,有一个TreeviewExplorer.ocx文件 在Excel的开发工具选项卡,点击插入ActiveX控件 VBA窗体,VB6窗体.VB.Net窗体都可以使用这个自定义控件的功能. 下载: TreeviewExplorer.rar

前言:在用VB.NET开发射频检测系统ADS时,当激活已存在的目标MDI子窗体时,被其他子窗体遮住了,导致目标MDI子窗体不能显示. 这个问题怎么解决呢?网上看到一篇帖子VB.NET设置控件和窗体的显示级别,总结得挺不错的.现转载过来,以备后用. 解决方案: 1)使用Controls属性将子窗体作为子控件显示到Panel等的所有子控件最前方 有些控件可以作为容器使用如类似Panel.PictureBox等的控件,在向容器控件中加入其它控件时,这些子控件组合到一起成为一个控件集合,在这个控件集合中

MDI窗体可以避免打开窗体的时候被无数个子窗体困扰,我将为大家一一的介绍一下vb.net中MDI窗体的操作方法 一.如何创建MDI窗体? 1.创建mdi主窗体 新建建立一个默认空白的Windows应用程序,在Form1窗体的属性窗口中找到IsMDIContainer 属性,设置为 True 2.创建MDI子窗体 在vb.net中,mdi子窗体就是普通的窗体,无需更改其属性.所有直接新建一个Form2 3.添加代码 Dim frm2 As New Form2 Form2.Show() 此时你只需要

相信很多自己动手敲过完整程序的同学都会发现,其实我们敲的很多窗体布局都非常的相似,有的部分用到的控件甚至一模一样,如果每一个窗体都自己重新摆放或者复制粘贴虽然没有问题,但是有时候若是修改其中一小点位置就得修改全部的类似窗体,否则就会造成界面不协调的问题. 可能有同学会想过,既然类能够继承,那么窗体是否也能继承呢?好的,下面我就来为大家介绍vb.net之窗体继承 其实,继承窗体也属于我们平时所说的泛化继承.我们在创建时,只需要添加一个窗体,让他作为父窗体,将一些共有的属性方法提炼出来,写在该父窗体

机房收费系统已经做了很长一段时间了,虽然到目前为止,仍然没有结束,但已经结节尾声了.我感觉现在有必要回首总结一下整个机房收费系统. 除了结账做了一半,报表接触一点之外,其他的都基本上差不多了.从做过的这些和正要做的来分析机房收费,我把他分成了几个部分:查询数据库类(简单查询显示,组合查询).向数据库写入数据类.导出表格类.报表类.各个表格之间相互连接类(结账). 以登陆窗体为例子,简单总结一下VB查询数据库实现登陆系统.我的登陆窗体设计如下: 设计登陆窗体后,设计登陆模块,代码如下: Publi

http://files.cnblogs.com/files/liuzhaoyzz/%E6%BF%80%E6%B4%BB%E5%AD%90%E7%AA%97%E4%BD%93.rar setforegroundwindow只能激活桌面级的父窗体,即使后面跟的hwnd是子窗体的hwnd也不行! 激活子窗体,可以先用setforegroundwindow把父窗体带到前台,然后用以下消息激活子窗体: 'Private Const WM_MOUSEACTIVATE=&H21 SendMessage th

Public Class frmDl Dim x As Single = 0 Dim y As Single = 0 Private Sub frmDl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load x = Me.Width y = Me.Height setTag(Me) End Sub '递归取控件的原始大小和位置,用tag来纪录 Private Sub setTag(

1.使用OpenForms if my.Application.OpenForms.Item("FormName") isnot nothing then搜索 do something here else do something here end if 2.使用FindWindow API 首先取得一个窗体的句柄(使用FindWindow),然后使用IsWindowVisible判断此窗体是否显示,还有一个IsIconic判断窗体是否已经最小化. 相关使用方法你简单查找一下就可以了,

Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim form2 As New Form2 form2.Show() End Sub End Class 生成2个窗体,form1,form2; 一个按钮:button1 功能延伸:可以加载重复的表单,达到直观对比数据目的

入吾QQ群183435019 (学习 交流+唠嗑) 有很多时候,我们为了美观,将会自己画一个标题栏,这时候我们会把原来的标题栏取消掉,最简单的方法是吧窗体的BorderStyle设置成为0, 然后自己画一个标题栏充当,但是这个时候任务栏不会显示程序预览图,如果用C语言CreateWindow创建过窗口的童鞋,一定知道dwStyle参数 ,改参数规定了窗口所拥有的样式. 什么是窗口样式呢,去MSDN 一搜便知. 如下图: 例如:一个窗口有最大化按钮,这就是一个样式 窗口样式拥有两种 1:普通样式

通过执行一段VBS代码来操控窗体内的控件也可以使用AddObject方法添加自己的类,那么在动态VBS代码中也一样可以使用在增加程序扩展性或是有脚本化需求的时候,这个方法还是不错的. Option Explicit Dim vbs As Object Private Sub Command1_Click() vbs.ExecuteStatement "showtime" End Sub Private Sub Form_Load() Set vbs = CreateObject(&qu

VERSION 5.00 Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Begin VB.Form Form1 BackColor = &H00C0C0C0& Border

机房收费系统的主窗体是MDI窗体,为了在这个窗体上添加控件,所以我们在窗体上添加了picture控件,在MDI窗体中,子窗体实际上位于MDIClient里,即子窗体的父窗体就是MDIClient,而放置在MDI中的picture控件和MDIClient是同一级别的,由于层次结构,所以无法使子窗体显示在picture控件的上面(这段话出自刘杰师哥的博客).为了将子窗体显示到父窗体的上面,所以我们使用了API函数,就是这个setparent函数(Private Declare Function Se

1.在KeyDown事件中添加: If e.KeyValue = 112 Then Me.WindowState = FormWindowState.Maximized End If 注:1.其中112是F1的键值,也可以定义其他键,参考键值见本博客随笔. 2.有不懂得请直接留言即可.