精华内容
下载资源
问答
  • 一个美化窗体VB程序源,可以改变窗体背景图片和纯颜色,对背景图片进行添加、删除、淡化,窗体透明等设置,控件开源有很多地方值得VB爱好者研究学习的,每一块代码都有中文注译,思路清晰易懂,对开发换肤的程序有...
  • 可以换肤的窗体VB源程序,这个例子中,我们可以为应用程序的窗体设置背景图'片,这是通过在窗体上平铺图片实现的,而你会发现'窗体上的其他控件也变为透明,这是应用了控件集合 'Microsoft Forms2.0 Object Library...
  • (30KB) 58,sclcon.zip 不知道你对ie里背景的水印属性有没有印象,现在你在窗体里也可以实现了(162KB) 59,submenu.zip 可以在VB中自定义弹出式子菜单(8KB) 60,zlibtool.zip 较好的一个有进度显示...
  • (30KB) 58,sclcon.zip 不知道你对ie里背景的水印属性有没有印象,现在你在窗体里也可以实现了(162KB) 59,submenu.zip 可以在VB中自定义弹出式子菜单(8KB) 60,zlibtool.zip 较好的一个有进度显示...
  • 在启动Visual Basic 6.0之后会出现如下界面:根据上图中的编号来介绍各个...4 :控件栏:包含了VB中常用的一些控件,有按钮、文本框、图片框, 单选框、复选框等控件。控件栏介绍5 :窗体设计窗口:可以在里边加入各...

    在启动Visual Basic 6.0之后会出现如下界面:

    091db37ec45b6478dc540072699f99ce.png

    根据上图中的编号来介绍各个模块:

    1 :标题栏:包含工程的名字。

    2 :菜单栏:可以进行新建工程,保存工程,添加模块,添加窗体,运 行程序等操作。

    3 :工具栏:可以添加模块,添加窗体,保存工程,运行程序等操作。

    4 :控件栏:包含了VB中常用的一些控件,有按钮、文本框、图片框, 单选框、复选框等控件。

    b6ece492bf85b2ad0a43dfc2daf6ef31.png

    控件栏介绍

    5 :窗体设计窗口:可以在里边加入各种控件来设计窗口,控件可以通 过在控件栏双击空间图标添加,也可以在控件栏单击控件图标,在窗体设计 窗口,按住鼠标左键绘制控件,这方法可以控制控件大小。

    6 :工程管理窗口:显示工程中的窗体和模块等。

    7 :属性窗口:可以设置窗体和控件的属性值。窗体和每个控件都有自己的属性,这些属性会在属性框中显示,也可以在属性框中设置,每个控件包含的属性不尽相同,也有一些共有得属性,下面介绍一些常用的属性:

    名称属性:窗体/控件的名称,在编写代码时区分控件

    Appearance属性:外观,属性值可以取0或1,0代表平面样式,1代表3D样式

    BackColor属性:背景颜色

    Caption属性:窗体/控件上显示的文本

    Enabled属性:控件是否可用 可取值 True 或 False

    Font属性:字体

    Height属性: 高度

    Width属性:宽度

    Left属性:左边框与容器左侧的间距

    Top属性:上方与容器上方的间距

    Visible属性:是否可见 可取值 True 或 False

    8 :窗体布局窗口:显示窗体的位置。可以用鼠标左键按住窗体进行拖拽调整位置。

    展开全文
  • 很多大程序的启动时间较长,为了不让用户等得烦躁,一般在启动的时候会显示一个启动界面,高级些的启动界面还会显示正在加载的内容,并且界面的图片是带透明背景的。...先新建vb.net窗体应用程序,并添加



    很多大程序的启动时间较长,为了不让用户等得烦躁,一般在启动的时候会显示一个启动界面,高级些的启动界面还会显示正在加载的内容,并且界面的图片是带透明背景的。
    不过这里要实现的仅是VB.Net程序启动界面透明化,意思是像png图片那样可以看到背景(只在vb.net初始屏幕放png图片是没办法实现的),至于正在加载内容的提示,有时间再研究了。

    先新建vb.net窗体应用程序,并添加一个初始屏幕





    添加后,把主窗体和初始屏幕窗体重新命名成frmMain和frmStart (这里命名成自己喜欢的即可,只是后期代码中要对应),效果如下


    初始屏幕中的各种控件全部删除,结果如下



    准备一张png图片作为启动界面,我从网上选择了个地球图标,将它保存到项目目录中


    然后把png图片加载到资源文件,方法如下 (保存地球图标的时候名字写成earch了,只因手速太快,不过代码中也写earch就行了)







    接下来,打开初始屏幕代码界面,粘贴如下代码
    Imports System.Text
    Imports System.Runtime.InteropServices
    
    Public Class frmStart
    
        Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
    
            Dim bb As Bitmap
    
            bb = vbnetStartForm.My.Resources.Resources.earch
    
            Dim bmp As New Bitmap(bb)
    
            SetBits(bmp)
    
        End Sub
    
    #Region "窗体移动"
        <DllImport("user32.dll")>
        Public Shared Function ReleaseCapture() As Boolean
        End Function
        <DllImport("user32.dll")>
        Public Shared Function SendMessage(hwnd As IntPtr, wMsg As Integer, wParam As Integer, lParam As Integer) As Boolean
        End Function
        Public Const WM_SYSCOMMAND As Integer = &H112
        Public Const SC_MOVE As Integer = &HF010
        Public Const HTCAPTION As Integer = &H2
        '无边框窗体移动
    #End Region
    
    #Region "调用UpdateLayeredWindow函数"
    
        Protected Overrides ReadOnly Property CreateParams() As CreateParams
            '重载窗体的CreateParams方法
            Get
                Const WS_MINIMIZEBOX As Integer = &H20000
                ' Winuser.h中定义
                Dim cp As CreateParams = MyBase.CreateParams
                cp.Style = cp.Style Or WS_MINIMIZEBOX
                ' 允许最小化操作
                cp.ExStyle = cp.ExStyle Or &H80000
                ' WS_EX_LAYERED
                Return cp
            End Get
        End Property
    
        Public Sub SetBits(bitmap__1 As Bitmap)
            '调用UpdateLayeredWindow()方法。this.BackgroundImage为你事先准备的带透明图片。
            'if (!haveHandle) return;
    
            If Not Bitmap.IsCanonicalPixelFormat(bitmap__1.PixelFormat) OrElse Not Bitmap.IsAlphaPixelFormat(bitmap__1.PixelFormat) Then
                Throw New ApplicationException("图片必须是32位带Alhpa通道的图片。")
            End If
    
            Dim oldBits As IntPtr = IntPtr.Zero
            Dim screenDC As IntPtr = Win32.GetDC(IntPtr.Zero)
            Dim hBitmap As IntPtr = IntPtr.Zero
            Dim memDc As IntPtr = Win32.CreateCompatibleDC(screenDC)
    
            Try
                Dim topLoc As New Win32.Point(Left, Top)
                Dim bitMapSize As New Win32.Size(bitmap__1.Width, bitmap__1.Height)
                Dim blendFunc As New Win32.BLENDFUNCTION()
                Dim srcLoc As New Win32.Point(0, 0)
    
                hBitmap = bitmap__1.GetHbitmap(Color.FromArgb(0))
                oldBits = Win32.SelectObject(memDc, hBitmap)
    
                blendFunc.BlendOp = Win32.AC_SRC_OVER
                blendFunc.SourceConstantAlpha = 255
                blendFunc.AlphaFormat = Win32.AC_SRC_ALPHA
                blendFunc.BlendFlags = 0
    
                Win32.UpdateLayeredWindow(Handle, screenDC, topLoc, bitMapSize, memDc, srcLoc,
                    0, blendFunc, Win32.ULW_ALPHA)
            Finally
                If hBitmap <> IntPtr.Zero Then
                    Win32.SelectObject(memDc, oldBits)
                    Win32.DeleteObject(hBitmap)
                End If
                Win32.ReleaseDC(IntPtr.Zero, screenDC)
                Win32.DeleteDC(memDc)
            End Try
        End Sub
    
    #End Region
    
    #Region "Win32 API声明"
        Class Win32
            <StructLayout(LayoutKind.Sequential)>
            Public Structure Size
                Public cx As Int32
                Public cy As Int32
    
                Public Sub New(x As Int32, y As Int32)
                    cx = x
                    cy = y
                End Sub
            End Structure
    
            <StructLayout(LayoutKind.Sequential, Pack:=1)>
            Public Structure BLENDFUNCTION
                Public BlendOp As Byte
                Public BlendFlags As Byte
                Public SourceConstantAlpha As Byte
                Public AlphaFormat As Byte
            End Structure
    
            <StructLayout(LayoutKind.Sequential)>
            Public Structure Point
                Public x As Int32
                Public y As Int32
    
                Public Sub New(x As Int32, y As Int32)
                    Me.x = x
                    Me.y = y
                End Sub
            End Structure
    
            Public Const AC_SRC_OVER As Byte = 0
            Public Const ULW_ALPHA As Int32 = 2
            Public Const AC_SRC_ALPHA As Byte = 1
    
            Public Declare Auto Function CreateCompatibleDC Lib "gdi32.dll" (hDC As IntPtr) As IntPtr
    
            Public Declare Auto Function GetDC Lib "user32.dll" (hWnd As IntPtr) As IntPtr
    
            <DllImport("gdi32.dll", ExactSpelling:=True)>
            Public Shared Function SelectObject(hDC As IntPtr, hObj As IntPtr) As IntPtr
            End Function
    
            <DllImport("user32.dll", ExactSpelling:=True)>
            Public Shared Function ReleaseDC(hWnd As IntPtr, hDC As IntPtr) As Integer
            End Function
    
            Public Declare Auto Function DeleteDC Lib "gdi32.dll" (hDC As IntPtr) As Integer
    
            Public Declare Auto Function DeleteObject Lib "gdi32.dll" (hObj As IntPtr) As Integer
    
            Public Declare Auto Function UpdateLayeredWindow Lib "user32.dll" (hwnd As IntPtr, hdcDst As IntPtr, ByRef pptDst As Point, ByRef psize As Size, hdcSrc As IntPtr, ByRef pptSrc As Point,
                crKey As Int32, ByRef pblend As BLENDFUNCTION, dwFlags As Int32) As Integer
    
            Public Declare Auto Function ExtCreateRegion Lib "gdi32.dll" (lpXform As IntPtr, nCount As UInteger, rgnData As IntPtr) As IntPtr
        End Class
    #End Region
    
        Private Sub frmStart_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
            ReleaseCapture()
            SendMessage(Me.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0)
            '窗体移动
        End Sub
    
    End Class


    然后再打开项目属性窗口




    将初始屏幕设置成frmStart


    没意外的话,最后按F5就可以看到令人期待的透明载入界面了


    当主界面初始化完成后,初始屏幕消失,主界面出现



    文章比较乱请多包涵,下面的地址是我在写文章时测试的项目文件源码,有兴趣的朋友可以下载测试下,有什么问题可留言,我看到后会尽量回复

    http://download.csdn.net/detail/ivanwfy/9888101


    展开全文
  • 里面所含的内容有: 1、vb6MDPlay重复播放.txt ...47、vb6中怎样加载背景图片,能随窗体大小变化? .txt 以上内容纯属作者本人整理,内容的可靠性也经本作者亲手证实,请放心使用,珍惜作者的劳动成果。
  • VB控件属性使用大全

    2011-12-15 12:02:34
    窗体背景图片 RightToLeft 文本书写是否自左向右。取值为: True False 自右向左 ScaleHeight 自定义坐标系的纵坐标轴的高度 ScaleLeft 自定义坐标系的左边界起点的横坐标 ScaleMode 获得或设置一个值,...
  • VB编程资源大全

    2007-10-17 20:47:23
    numberconv.zip 使用阿拉伯数字转换成汉字的应用程序源码(9KB) 104,animouse.zip 使用API产生动态鼠标的例子(2KB) 105,mdiform.zip 使用MDI时在MDI父窗口里添加背景(16KB) 106,crtl_alt_del....
  • VB课程设计俄罗斯方块

    热门讨论 2011-02-25 10:46:55
    利用随机函数在一个预览窗体中提前展示形状供用户参考,然后将展示的形状复制到游戏窗体中进行摆放,在游戏窗体中用户就可以使用键盘的方向键来控制方块的运动,然后利用递归语句对每一行进行判断,如果有某行的方块...
  • (29KB) 65,s008.ZIP 可以把任意形状的图片转换为窗体(包含帮助文件和示例)(36KB) 66,s007.ZIP 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 67,s006.ZIP Check Box 和 List ...
  • (29KB) 65,s008.ZIP 可以把任意形状的图片转换为窗体(包含帮助文件和示例)(36KB) 66,s007.ZIP 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 67,s006.ZIP Check Box 和 List ...
  • (29KB) 65,s008.ZIP 可以把任意形状的图片转换为窗体(包含帮助文件和示例)(36KB) 66,s007.ZIP 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 67,s006.ZIP Check Box 和 List ...
  • (29KB) 65,s008.ZIP 可以把任意形状的图片转换为窗体(包含帮助文件和示例)(36KB) 66,s007.ZIP 建立一个如同vb里属性栏一样的东东,不仅形似,神也似(137KB) 67,s006.ZIP Check Box 和 List ...
  • 可加链接、图片等,字体大小、前景色、背景色 等都可以自由更改,非常方便。 常用属性说明: Caption 返回/设置对象中滚动显示的内容。 BackColor 返回/设置对象中内容的背景色。 Direction 返回/设置对象中内容...
  • 实例282 为无标题栏窗体添加菜单 实例283 创建个性化弹出式菜单 9.3 高级菜单应用 实例284 调用系统菜单 实例285 调用其他应用程序的菜单 实例286 创建右键菜单用于粘贴 实例287 制作带菜单的记事本 实例288...
  • 实例282 为无标题栏窗体添加菜单 实例283 创建个性化弹出式菜单 9.3 高级菜单应用 实例284 调用系统菜单 实例285 调用其他应用程序的菜单 实例286 创建右键菜单用于粘贴 实例287 制作带菜单的记事本 实例288...
  • VB的跑马灯控件,广告滚动字幕控件,支持超长文本滚动,超长label控件,VB单行显示超多文本,在为软件添加广告时非常适用,本控件可滚动显示单行超长文本,占窗体界面较小,显示内容可自由更改,希望对大家有帮助。...
  • 一、前言: 欢迎使用 678HK网站开发编辑系统 ...18.图片:网页中用到的图片的设置; 19.文本框:单文本,多文本的设置; 20.下拉菜单添加窗口:下拉菜单添加窗口; 21.下拉框:网页中出现的组合框的设置;
  • 9. 支持脚本和窗体编程,报表设计人员可以编写脚本、在报表设计器里为报表添加窗体,为最终用户提供更丰富的交互功能。 10. 既可以使用应用程序中的数据集,也支持在报表中直接连接各种数据库,通过SQL直接获得报表...
  • │ │ ├─实例103 如何在图像中添加文字 │ │ ├─实例104 如何以图像填充文字线条 │ │ ├─实例105 如何实现图形绘制拉伸效果 │ │ ├─实例106 如何控制图像的显示方式 │ │ ├─实例107 如何控制图像的显示...
  • java源码包---java 源码 大量 实例

    千次下载 热门讨论 2013-04-18 23:15:26
     util实现Java图片水印添加功能,有添加图片水印和文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印图片的路径,水印一般格式是gif,png,这种图片可以设置透明度、水印旋转等,可以参考代码...
  • java源码包2

    千次下载 热门讨论 2013-04-20 11:28:17
     util实现Java图片水印添加功能,有添加图片水印和文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印图片的路径,水印一般格式是gif,png,这种图片可以设置透明度、水印旋转等,可以参考代码...
  • java源码包3

    千次下载 热门讨论 2013-04-20 11:30:13
     util实现Java图片水印添加功能,有添加图片水印和文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印图片的路径,水印一般格式是gif,png,这种图片可以设置透明度、水印旋转等,可以参考代码...
  • java源码包4

    千次下载 热门讨论 2013-04-20 11:31:44
     util实现Java图片水印添加功能,有添加图片水印和文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印图片的路径,水印一般格式是gif,png,这种图片可以设置透明度、水印旋转等,可以参考代码...
  • C#源码大集合 01(共3卷)

    千次下载 热门讨论 2008-07-18 10:43:46
    │ ├─实例102 如何以旋转方式显示文字 │ │ ├─实例103 如何在图像中添加文字 │ │ ├─实例104 如何以图像填充文字线条 │ │ ├─实例105 如何实现图形绘制拉伸效果 │ │ ├─实例106 如何控制...
  • Java数组倒置 简单 Java图片加水印,支持旋转和透明度设置 摘要:Java源码,文件操作,图片水印 util实现Java图片水印添加功能,有添加图片水印和文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印...
  • Java数组倒置 简单 Java图片加水印,支持旋转和透明度设置 摘要:Java源码,文件操作,图片水印 util实现Java图片水印添加功能,有添加图片水印和文字水印,可以设置水印位置,透明度、设置对线段锯齿状边缘处理、水印...

空空如也

空空如也

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

vb窗体添加背景图片