formtry.frm

懒人手写体模拟生成器 （免费软件） 此软件是为应付某些不能用电脑打印的文体（如思想汇报

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   7005
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9900
   LinkTopic       =   "Form1"
   ScaleHeight     =   7005
   ScaleWidth      =   9900
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox PicOutput 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   1695
      Left            =   1200
      ScaleHeight     =   111
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   127
      TabIndex        =   3
      Top             =   2640
      Width           =   1935
   End
   Begin VB.TextBox TextInput 
      Height          =   735
      Left            =   3960
      TabIndex        =   2
      Text            =   "我"
      Top             =   720
      Width           =   2775
   End
   Begin VB.PictureBox PicRaw 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   72
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   1695
      Index           =   2
      Left            =   2040
      ScaleHeight     =   111
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   111
      TabIndex        =   1
      Top             =   120
      Width           =   1695
   End
   Begin VB.PictureBox PicRaw 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      BackColor       =   &H80000005&
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   72
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H80000008&
      Height          =   1695
      Index           =   1
      Left            =   240
      ScaleHeight     =   111
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   111
      TabIndex        =   0
      Top             =   120
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a(2, 100, 100)
Private Sub TextInput_Change()
PicRaw(1).Cls
PicRaw(2).Cls
PicOutput.Cls

PicRaw(1).Print TextInput.Text
PicRaw(2).Print TextInput.Text

For i = 1 To 96
For j = 1 To 96
If PicRaw(1).Point(i, j) = 0 Then a(1, i, j) = 1
If PicRaw(2).Point(i, j) = 0 Then a(2, i, j) = 1
Next: Next

For i = 1 To 96
For j = 1 To 96
a(1, i, j) = a(1, i, j) And a(2, i + 1, j + 1)
a(1, i, j) = a(1, i, j) And a(2, i - 1, j - 1)
a(1, i, j) = a(1, i, j) And a(2, i + 1, j - 1)
a(1, i, j) = a(1, i, j) And a(2, i - 1, j + 1)
Next: Next

For i = 1 To 96
For j = 1 To 96
If a(1, i, j) = 1 Then PicOutput.PSet (i, j)
a(1, i, j) = 0: a(2, i, j) = 0
Next: Next
End Sub