网站 › 『编程语言区』 › vb.net极简版 手写体生成软件

wyw6813 发表于 2023-3-20 15:11

vb.net极简版 手写体生成软件

本帖最后由 wyw6813 于 2023-3-22 09:13 编辑

今天看到别人做的一个手写体生成软件，感觉挺有意思，模仿着用vb.net写了一个极简版的，可执行程序只有18KB，去除了一些觉得无用的选项，只保留了基本功能。
1、可以选择背景纸张，内置了3种纸张（白纸，灰纸，格子纸）；（可以自己增加背景纸张图片，分辨率最好是4000*5658，放到纸张目录，重启软件即可）
2、可以选择手写字体，内置了6种手写字体；（可以自己随意增加任何字体，字体文件放到字体目录，重启软件即可）
3、可以设置字体的大小，字体大小最好不要低于120，否则生成的图片中字体就太小了。

[代码见沙发]



链接：https://pan.baidu.com/s/1ntQkG-IsQl1orgAfUoEQHA
提取码：qvku

增加蓝奏云链接：
https://wwt.lanzouw.com/iA9xR0qql0ih

wyw6813 发表于 2023-3-20 16:46

Imports System.Drawing.Imaging
Imports System.Drawing.Text
Imports System.IO

Public Class Form1
    Dim pfonts As PrivateFontCollection
    Dim fontpath As String
    Dim f As Font
    Dim MyImage As Image
    Dim page As String
    Dim fonts As String
    Dim fontsSize As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      If pfonts.Families(0).IsStyleAvailable(FontStyle.Regular) Then
            Dim rect As Rectangle
            Dim g As Graphics
            MyImage = Image.FromFile(Application.StartupPath & "\纸张\" & page)
            g = Graphics.FromImage(MyImage)
            Dim MyText = RichTextBox1.Text
            fontsSize = TextBox1.Text
            If fontsSize < 120 Then
                fontsSize = 120
            End If
            Dim MyFont = New Font(pfonts.Families(0), fontsSize, FontStyle.Regular)

            Dim format As StringFormat = New StringFormat(StringFormatFlags.NoClip)
            Dim sizef As SizeF = g.MeasureString(MyText, MyFont, PointF.Empty, format)

            Dim width As Integer = CType((sizef.Width + 1), Integer)
            Dim height As Integer = CType((sizef.Height + 1), Integer)
            rect = New Rectangle(400, 300, width, height)


            g.CompositingQuality = System.Drawing.Drawing2D.CompositingQuality.GammaCorrected
            g.DrawString(MyText, MyFont, Brushes.Black, rect, format)
            Me.PictureBox1.Image = MyImage
            MyImage.Save(Application.StartupPath & "\" & ComboBox1.Text & "_" & ComboBox2.Text & "_" & TextBox1.Text & "_" & Strings.Format(Now, "yyyyMMddHHmmss") & ".jpg", ImageFormat.Jpeg)
            MessageBox.Show("图片已保存到 " & Application.StartupPath & "\" & ComboBox1.Text & "_" & ComboBox2.Text & "_" & TextBox1.Text & "_" & Strings.Format(Now, "yyyyMMddHHmmss") & ".jpg", "手写体")
      End If
    End Sub



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

      For Each file As String In System.IO.Directory.GetFiles(Application.StartupPath & "\纸张\", "*.jpg")
            ComboBox1.Items.Add(System.IO.Path.GetFileName(file))
      Next
      ComboBox1.Text = ComboBox1.Items(0)
      For Each file As String In System.IO.Directory.GetFiles(Application.StartupPath & "\字体\")
            ComboBox2.Items.Add(System.IO.Path.GetFileName(file))
      Next
      ComboBox2.Text = ComboBox2.Items(0)

      fontpath = Application.StartupPath & "\字体\" & ComboBox2.Text
      pfonts = New PrivateFontCollection()
      pfonts.AddFontFile(fontpath)
      f = New Font(pfonts.Families(0), 25, FontStyle.Regular)
      RichTextBox1.Font = f
      page = ComboBox1.Text

      AddHandler ComboBox1.SelectedIndexChanged, AddressOf OnComboBox1Changed
      AddHandler ComboBox2.SelectedIndexChanged, AddressOf OnComboBox2Changed
    End Sub
    Private Sub OnComboBox1Changed(sender As Object, e As EventArgs)
      Dim cbBox As ComboBox = sender

      If IsDBNull(cbBox) Then
            Return
      Else
            page = cbBox.SelectedItem.ToString()
      End If
    End Sub
    Private Sub OnComboBox2Changed(sender As Object, e As EventArgs)
      Dim cbBox As ComboBox = sender

      If IsDBNull(cbBox) Then
            Return
      Else
            fonts = cbBox.SelectedItem.ToString()
            fontpath = Application.StartupPath & "\字体\" & fonts
            pfonts = New PrivateFontCollection()
            pfonts.AddFontFile(fontpath)
            f = New Font(pfonts.Families(0), 25, FontStyle.Regular)
            RichTextBox1.Font = f
      End If
    End Sub
End Class

mayujieaoshi 发表于 2023-3-20 17:33

感谢分享，论坛因你而精彩:victory:

WJia 发表于 2023-3-20 19:00

很好的小工具，收藏了{:1_921:}

满不懂 发表于 2023-3-20 19:59

感谢分享源码!收藏学习。

泡菜久坛 发表于 2023-3-20 20:16

手写字体很不错，以后用得着

marco527 发表于 2023-3-20 20:39

感谢分享，有时间一定好好研究研究。{:1_918:}

juy 发表于 2023-3-20 22:49

hzxszxd 发表于 2023-3-21 07:05

谢谢分享

chenhschic 发表于 2023-3-21 09:05

学习了········

查看完整版本: vb.net极简版 手写体生成软件