说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用Visual Basic窗体背景花纹的实现

HTML文档下载 WORD文档下载 PDF文档下载
用Visual Basic窗体背景花纹的实现
作者:曹秀英
我 们 在 开 发 软 件 过 程 中, 为 提 高 软 件 的 商 品 化 程 度, 感 觉 到 界 面 的 美 观 程 度 是 一 个 软 件 能 否 获 得 成 功 的 一 个 重 要 因 素, 我 们 仔 细 研 究 了 一 些 成 功 的 商 品 化 软 件, 从 这 些 软 件 上 可 以 看 到, 程 序 窗 口 背 景 能 显 示 出 非 常 美 丽 的、 富 有 立 体 感 的 花 纹。 而 采 用Visual Basic 3.0 或4.0 进 行 窗 体 设 计, 若 只 按 照 系 统 提 供 的 功 能, 只 能 从 有 限 的 几 种 颜 色 中 选 择 一 种 颜 色 或 采 用 程 序 绘 制 一 些 简 单 的 线 条。 而 想 实 现 立 体 感 很 强 的 纹 理 图 案, 一 般 只 能 采 用 窗 体 的PICTURE 属 性 调 用 位 图 文 件, 使 用 这 种 方 法 实 现 有 许 多 缺 点 , 其 一 是 窗 体 大 小 受 位 图 大 小 的 限 制, 调 整 起 来 麻 烦, 不 具 有 通 用 性 和 灵 活 性; 其 二 是 浪 费 资 源, 因 为 花 纹 图 案 基 本 上 是 重 复 图 案, 采 用 与 窗 体 同 样 大 小 的 位 图 是 一 种 浪 费。

下 面 介 绍 一 种 窗 体 背 景 花 纹 实 现 的 方 法。 在 窗 体 上 建 立 一 个 网 格 控 件, 设 定 网 格 行 不 可 见, 去 掉 固 定 行 和 固 定 列, 用 程 序 实 现 网 格 控 件 与 窗 体 同 样 大 小, 并 随 窗 体 大 小 的 改 变 而 改 变。 然 后 设 计 一 个 花 纹 图 案, 形 成BMP 位 图 文 件( 本 文 程 序 使 用 文 件Pict1.bmp), 或 者 从 其 它 图 象 中 截 取 一 段 图 案, 也 可 以 利 用Windows 系 统 提 供 的 图 案( 如c:\windows\Tiles.bmp), 将 其 调 入Picture 控 件。 设 定 网 格 的 每 个 单 元 与 该 图 案 大 小 相 同, 使 单 元 的 数 量 正 好 覆 盖 整 个 窗 体 背 景, 再 将 所 有 单 元 均 显 示 该 图 案。 通 过 子 程 序Backpict() 实 现 以 上 过 程, 不 论 图 案 大 小、 窗 体 大 小, 程 序 都 能 自 动 调 整 网 格 控 件 大 小 和 网 格 单 元 大 小 及 单 元 数 量。 该 程 序 在Visual Basic 4.0 上 调 试 成 功。

1. 新 建 窗 体Form1, 属 性 如 下:
Caption = “ 背 景 花 纹 的 实 现”
Borderstyle=3( 无 最 大、 最 小 化 按 钮)

2. 建 网 格 控 件Grid1, 它 的 位 置 和 大 小 将 在 程 序 中 设 置( 与Form1 同 样 大), 属 性 为:
Enabled = False( 焦 点 不 会 落 在 网 格 控 件Grid1 上)
Fillstyle=1( 改 变 所 有 单 元Text 特 性)
Fixedcols=0( 无 固 定 行)
Fixedrows=0( 无 固 定 列)
Gridlines = False( 网 格 行 不 可 见),
Visible = True

3. 建 立 图 象 控 件Picture1, 程 序 运 行 时 将 背 景 花 纹 基 本 图 案 放 入 其 中, 属 性 为
Visible = False( 不 可 见)
Autosize = True( 自 动 调 整 大 小)

4. 控 件 中 加 入Sheridan 3D Controls, 选 取 其 中 的 三 维 命 令 按 钮SSCommand, 建 立 两 个 按 钮
SSCommand1.Caption=“ 退 出”
SSCommand2.Caption=“ 更 换 背 景”( 演 示 不 同 的 背 景 图 案)

它 们 的 属 性Picture 可 调 用 与 背 景 相 同 或 不 同 的 图 案, 如 果 使 用 普 通 的 命 令 按 钮 控 件Command 也 可, 只 是 命 令 按 钮 无 背 景 图 案。

5. 建 立 背 景 图 案 形 成 子 程 序:

Dim pictfile As String '位图文件名
Dim FILEPATH As String ' 文件路径
Sub Backpict(pictfile)
picture1.ScaleMode = 3
Form1.ScaleMode = 3
picture1.Picture = LoadPicture(pictfile)
'网格控件覆盖整个窗体背景
grid1.Top = -1
grid1.Left = -1
grid1.Width = Width
grid1.Height = Height
grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) + 1
grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) + 1
'所有单元大小等于基本图案大小
For I = 0 To grid1.Cols - 1
For j = 0 To grid1.Rows - 1
grid1.ColWidth(I) = picture1.ScaleWidth * 15
grid1.RowHeight(j) = picture1.ScaleHeight * 15
Next j
Next I
'选定所有单元
grid1.SelStartCol = 0
grid1.SelStartRow = 0
grid1.SelEndCol = grid1.Cols - 1
grid1.SelEndRow = grid1.Rows - 1
grid1.Picture = Picture1.Picture
End Sub
6. 窗 体 主 程 序
Private Sub Form_Load()
Private Sub Form_Load()
'得到运行程序路径名,路径名后带反斜杠
If Right(App.Path, 1) <> "\" Then
filePath = App.Path & "\"
Else
filePath = App.Path
End If
'窗体初始显示由Tiles.bmp基本图案组成的背景
pictfile = "c:\windows\Tiles.bmp"
backpict (pictfile)
End Sub
7. 退出程序命令按钮
Private Sub SSCommand1_Click()
End
End Sub
8. 演示不同的底纹图案
Private Sub SSCommand2_Click()
'两种背景图案交替演示
If pictfile = filePath & "Pict1.bmp" Then
pictfile = "c:\windows\Tiles.bmp"
Else
pictfile = filePath & "Pict1.bmp"
End If
Backpict (pictfile)
End Sub
怎样制作全透明的窗口-Delphi资料 DELPHI:FormContainer简易手册 Delphi:用FormContainer渐变效果 Delphi4的窗口融合技术 Delphi使用技巧ABC Delphi使用技巧四则 DELPHI中自适应表单的实现 TList的用法-Delphi资料 不规则窗口的实现-Delphi资料 不用标题栏也移动窗体-Delphi资料 窗口建立和关闭时的特效-Delphi资料 窗口中状态行的显示-Delphi资料 动态提示的可视化实现-Delphi资料 动态修改显示器分辨率-Delphi资料 对数据库中的数据进行处理-Delphi资料 改变壁纸-Delphi资料 改变元件的视窗式样-Delphi资料 给MDI主窗口加背景-Delphi资料 更改StatusBar为黑底绿字-Delphi资料 画布的圆拷贝和直线拷贝-Delphi资料 回车替Tab下移控件-Delphi资料 获取系统颜色-Delphi资料 渐变色窗口背景-Delphi资料 控件深度投影和阴影效果的实现-Delphi资料 控制Delphi的窗口显示位置 控制Form不能放大、缩小、移动、关闭-Delphi资料 控制系统菜单-Delphi资料 利用Delphi实现支持窗体的自定义函数 轻轻松松在DELPHI3.0中实现三态按钮 全部窗体可使用鼠标移动-Delphi资料 让按钮连续工作--兼谈Delphi元件开发 sql server的SERVER端效率问题 VB6如何实现换肤功能 如何用对话之外的其它按钮控制对话框的关闭和打开 ! 关于picture的问题 算法与数据结构 寻找关于Dsound,Dplay方成的书籍或方档!! 如何在xsl中使用setTimeout()而得到渐显的效果? 在外面工作,做底层有钱途吗? 关于form的简单问题 搞过用TurboC开发图像,不知道转VC困不困难 有谁知<<终极杀阵>>游戏(Project IGI)第四回合怎玩的? 不知是否荒唐,大虾请 如果大家有问题告诉我(anjie@zj.soim.com) 如果大家有问题告诉我(anjie@zj.soim.com)一起讨论吗 想跟我交朋友anjie@zj.soim.com tc++3.0如何编写读鼠标程序(急) 都进来看看,程序员的下场... 各位高手,小弟问一个傻问题:怎么在播放一个AVI的时候用自定风格的滑块控制? 我上次在CSDN 上看到有人发贴子说自己写操作系统,我现在有个朋友也在写,想和他联系,但是我现在找不到那个贴子了, 有谁记得那个人的名字或贴子的位置请说.谢谢. 求助:打开网上邻居很慢为什么? 问一个蠢问题:控件何时获得焦点 请问一下哪里再收购软件呢? 请问一下在哪里可以找到收购软件的公司呢? 想作一个DOS程序,实现多台电脑间通过网卡传输文件. 辞职信 application.initialize完成了什么 高手来帮忙啊~ 看看java的魅力 如何通过自制程序的编辑框向现有一般应用程序编辑框传送内容? 窗口执行顺序问题,请多帮助,谢谢 如何自动取得server的日期和时间 怎样让文件指针指到文件末尾,必须skipline一行一行跳吗? 我想在菜单前添加图标,使用Bitmap属性但是为何只能载入*.bmp文件而不能使用*.ico文件,我只有*.ico的图标,请问该如何解决。 有新建一个文本文件并给其命名的函数吗,怎么用 我还真不懂呀? 这个COLTYPE是怎么用的呀?你说它怎么得到表中字段的类型呀? 有关存储器(ram,rom)的编址问题。以及32位或更多位芯片的问题。 一些汇编问题。想来问bcb的兄弟{bcb里好象有不少汇编高手} 救命:在安装了sco openserver之后,系统不能启动,先前安装的win98和win2k也不能。 请问如何进行URL译码??? 请问怎样截取一个string中的一段? 请问delphi做的exe最小可以到多少?怎么做? 我想请问一下WINGATE的具体怎样在WIN2000服务器版中进行设置。 ASP的同志们,能不能留一下QQ号码? 请问何处有破解ACCESS2000的程序或源代码呢? 请问要在TEdit.text组件文本串中找出当前光标在第几个字符上怎么办?谢谢! 请问关于dbImage控件的使用方法? 关于HDC及双缓冲的问题? xxxbird(*说你行,你就行,不行也行*),来领“我遇到几个怪问题。。。。。。”中的分 为什么ASP没法向SQL Server中写入数据?代码什么地方错了 大家帮忙找一下,找到我给50分 exe 捆绑机怎么做? 如下图,三个半径都是2cm的圆两两相交圆心,阴影部分的面积是多少平方厘米?画的不是很标准,看得懂就行,打得好的另加悬赏 如图,半圆内的△ABC的面积是80平方厘米,BD长8厘米,求阴影部分的面积. 如图所示,直径为30厘米的半圆旋转了30度,求阴影部分的面积~ 如图,外圆的半径是Rcm,内圆的半径是rcm,四个小圆的半径都是2cm,则图中阴影部分面积是多少?急不要用^这个符号,我看不懂 半圆o内的三角形ABC的面积是80平方厘米,BD=8厘米.求阴影不分面积. 如图,直径为30厘米的半圆旋转了30度,求阴影部分的周长与面积 一个直径为6分米的半圆,里面有一个直角三角形,求三角形外阴影部分面积. 如图,半圆内三角形ABC的面积是24平方厘米,高BD是4厘米,求阴影部分面积是多少平方厘米. 如图,直径为30厘米的半圆旋转了30度,求阴影部分的面积和周长. 急!一个半圆,内有直角三角形,求阴影部分的面积 右图中BC是半圆的直径,图中阴影部分1的面积比2的面积少5.12平方厘米.AC长多少厘米?(BC等于8厘米) 如图所示,直径为30厘米的半圆旋转了30°,求阴影部分的面积 已知直角三角形ABC三边分别为6.8.10,分别以它的三边为直径向上作三个半圆,求阴影部分的面积 下图的比例尺是1:500,在图上量得长是15cm 宽是8cm ,求阴影部分的实际面积是多少? 将半径分别是3厘米和2厘米的两个半圆如图放置,求阴影部分的周长 求阴影部分的面积三角形空白是个直角三角形半圆直径6cm. 下图的比例尺是1:500,在图上的距离长是15cm,宽是8cm,求两个阴影三角形合起来的面积的面积. 右图是由直径分别为2厘米,4厘米,6厘米的3个半圆所组成的图形,求图中阴影部分的周长和面积.图 四个半径都是8cm的圆的位置如图所示,你能求出阴影部分的面积吗?上面俩圆下面俩圆然后四边连起来不是连成正方形半径相连就行除了四个圆其它的都是阴影部分 下图中等腰直角三角形的腰长是6厘米,求阴影面积的面积 下图的比例尺是1:500,在图上的长是15厘米,宽是8厘米,求阴影部分的实际面积是多少平方米?4月17号就要大家看见的都来帮帮忙谢谢了! 长为8cm,宽为6cm的长方形内,分别以长和宽为半径画1/4圆,如下图所示,求阴影部分面积? 等腰直角三角形的一腰长是8厘米以它的两腰为直径分别画了两个半圆那么阴影部分面积共有多少平方cm 小圆直径8厘米,比大圆半径少3/11.小圆的面积是( ),大圆周长是( ). 图中圆的半径为5厘米,求阴影部分的面积. 如图,等腰直角三角形的一腰的长是7厘米,以它的两腰为直径分别画了两个半圆,那么阴影部分的面积共有多少 大圆的半径是12厘米,小圆的直径是8厘米,大圆周长和小圆周长的最简整数比是多少?面积比又是多少?要有算式 图中圆的半径为5厘米,求阴影部分面积. 如图是有一个直径为a的半圆和一个腰长为a的等腰直角三角形组成的图案,求阴影部分的面积 大圆的直径是8厘米,小圆的直径是6厘米,大圆和小圆半径的比是( ),周长的比是( ),面积的比是( ) 如图,最大圆的半径为5厘米,试求阴影部分的面积和要求写清过程 , 这是七年级第一学期的数学. 如图,BCDE是平行四边形三角形ABC是直角三角形,BC=8厘米,AC=7厘米,阴影部分面积比三角形AGF的面积大12CM,图片1求AC的长? 小圆的半径是8厘米,大圆的半径是12厘米.小圆和大圆的直径比是(),周长比是(),面积比是(). 图中,每个圆的半径是5厘米,求阴影部分的面积. 右图,ABC为等腰直角三角形,D为半圆的中点,BC直径长为8厘米,求阴影部分的面积. 小圆直径8厘米,大圆直径比小圆直径多三倍,小圆周长是大圆周长几分之几?小圆面积是大圆面积几分之几? 三个半径为1的等圆两两外切,那么图中阴影部分的面积为 在图中,△ABC与△ADE都是等腰直角三角形,BC长8cm,DE长4cm,求阴影部分的面积.要有算式,快~注:BC是△ABC的最长的边,DE是△ADE的最长的边 小圆直径是4厘米,大圆半径是4厘米,小圆面积是大圆面积的几分之几? 两圆的半径为1厘米,且图中的两块阴影部分的面积相等,那么两个圆心的距离是多少? 图中△ABc与ADE都是等腰直角三角形,BC=8厘米,ED=4厘米,求阴影部分的面积. 如图,已知小圆的直径等于大圆的半径,求阴影部分面积是大圆面积的几分之几 如图,外圆半径是Rcm,中圆半径是rcm,其余四个圆半径相等,则图中阴影部分的面积是多少? 在下图,三角形ABC与三角形ADE都是等腰直角三角形,BC长8厘米,DE长4厘米,阴影部分的http://tg5a39.mail.163.com/js3/main.jsp?sid=qAlTrsGGRaJSzSVkKgGGrgOwtgKKJtvg里面的附件就是图形。要快,越快越好 用户名:ty.p 如图,大圆半径为6,求其阴影部分面积 如图,外圆的半径是Rcm,内圆的半径是rcm,四个小圆的半径都是2cm,则图中阴影部分面积是多少? 三角形ABC与三角形ADE都是等腰直角三角形,BC长8厘米,DE长4厘米.求阴影部分的面积.请详细说明每一步算下什么. 如图 ,大圆半径为6,求其阴影部分的面积 一个半径为根号二的圆过一个半径为2的圆心,则图中阴影部分的面积为多少?图自己画,是月牙形的!最好两天之内有回复! 一个长方形长10厘米,宽8厘米,里面有一个为5厘米的半圆,其余部分为阴影部分,求阴影部分面积. 如图,小圆的5分之2是阴影部分,大圆的8分之3是阴影部分,求大圆面积与小圆面积的比. 矩形ABCD中,AB=1,AD=根号2.以AD的长为半径的圆A交BC于点E,则图中阴影部分面积为? 如图二所示,ABCD是一个长方形,长是8厘米,阴影部分的面积是()平方厘米?圆没画好!求阴影! 如图,大圆半径=小圆直径=8cm,求图中阴影部分的面积. 如图,圆o的半径为2,a是圆o外一点,ab切圆o于点b,ao交圆o于点c,ab=2根号3,求图中阴影部分的面积 一个长方形里有一个半圆,长方形的长是8厘米,求阴影部分面积 如图,阴影部分的环宽恰好等于较小圆的半径,阴影部分的面积是较大圆面积的()A.1/4 B.1/3 c3/4图在下面速回答,明天交.今日回答奖励50分! 如图所示外圆半径是Xcm,内圆半径是rcm,四个小圆的半径都是2cm,则图中阴影部分的面积是多少?(2)当X=10,Y=5时,阴影部分的面积是多少?错了,四个小圆半径为3cm 下图中等腰三解形的腰长8厘米,求阴影部分的面积 如图直径为30厘米的半圆旋转了30度,求阴影部分的面积与周长
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn