基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：78630559

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

VB 图形的填充的实例，图像格式可以是BMP/JPG/GIF，编写图像处理软件的朋友用得上。学习的好材料，可以借鉴。

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "图形的填充"
   ClientHeight    =   1545
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7440
   LinkTopic       =   "Form1"
   ScaleHeight     =   1545
   ScaleWidth      =   7440
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "填充效果"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   3000
      TabIndex        =   0
      Top             =   1080
      Width           =   1215
   End
   Begin VB.Shape Shape1 
      Height          =   615
      Index           =   0
      Left            =   120
      Top             =   360
      Width           =   735
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Print Space(5); 0; Space(4);  '定位
  Shape1(0).FillStyle = 0   '第一种填充样式
  Shape1(0).Visible = True '控件可见
  For i = 1 To 7
    Print Space(3); i; Space(4);
    Load Shape1(i)  '加载其他控件
    Shape1(i).Left = Shape1(i - 1).Left   900 '控件定位
    Shape1(i).FillStyle = i      '依次应用多种填充样式
    Shape1(i).Visible = True     '可见
  Next
End Sub