Foxtable(狐表)用户栏目专家坐堂 → 如何在图片上增加文字


  共有2203人关注过本帖树形打印复制链接

主题:如何在图片上增加文字

帅哥哟,离线,有人找我吗?
ZJZK2018
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
如何在图片上增加文字  发帖心情 Post By:2018/10/18 15:37:00 [只看该作者]

我想在图片拖放过程中,向图片中增加文字,下面二段代码如何调整??

第一段:

Dim ltbox As WinForm.ListBox = e.Form.Controls("zjListBox1")
Dim fdr As Row = Tables("现场图像").current
'==========判断项目编号是否带"-"===========
Dim pstr As Integer = fdr("项目编号").IndexOf("-")
Dim phr As String
If pstr > 0 Then
    phr = fdr("项目编号").SubString(0,fdr("项目编号").IndexOf("-"))
Else
    phr = fdr("项目编号")
End If

If fdr IsNot Nothing  Then
    If fdr.IsNull("工程部位") Then
        MessageBox.Show("请先输入图像所在工程部位!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        For Each flt As String In ltbox.Items

            Dim ndr As Row = Tables("现场图像.图像明细").AddNew
            Dim i As Integer = Tables("现场图像.图像明细").Rows.Count
            Dim fl = fdr("工程部位") & "-" & format(i, "00")
            ndr("图像名称") = fl
            ndr("图像类型") = flt.SubString(flt.LastIndexOf("."))
            ndr.Save '必须先保存
            ndr.DataRow.SQLInsertFile("附件",flt) '插入文件
            ndr.DataRow.SQLSetValue("CRC", CRCCheckFile(flt)) '保存crc检验值  fdr("项目编号")
            
            ''==============图像本地保存===============
            If fdr.IsNull("单位工程") = False Then
                Dim pth As String = ProjectPath & "Attachments\用户工程\" & phr & fdr("工程名称") & "\现场图像\" & fdr("单位工程") & "\" & fdr("类别") & "\"
                If FileSys.DirectoryExists(pth) = False Then
                    FileSys.CreateDirectory(pth)
                End If
                Dim th As String = pth & ndr("图像名称") & ndr("图像类型")
                FileSys.CopyFile(flt,th,True)
            Else
                Dim pth As String = ProjectPath & "Attachments\用户工程\" & phr & fdr("工程名称") & "\现场图像\" & fdr("类别") & "\"
                If FileSys.DirectoryExists(pth) = False Then
                    FileSys.CreateDirectory(pth)
                End If
                Dim th As String = pth & ndr("图像名称") & ndr("图像类型")
                FileSys.CopyFile(flt,th,True)
            End If
        Next
    End If
End If
ltbox.Items.Clear() '清除列表数据

第二段参考:

Dim imgb As Image = GetImage("d:\底图.jpg")    '获得一个Image对象,表示生成的图片

Dim bmp As New Bitmap(imgb.width, imgb.height)  '生成一个空白图片

Dim g = Graphics.FromImage(bmp)

Dim fnt As New Font("黑体",40)

Dim msg As String = "foxtable"

g.DrawString(msg,fnt,Brushes.Red,20,40'在指定的位置,用指定的画刷和字体,绘制指定的文本

bmp.Save("d:\test122.jpg")

bmp.Dispose()  'dispose()方法关闭的窗体可以使用pack show 方法恢复,并且可以恢复到dispose前的状态



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/18 15:53:00 [只看该作者]

 

 

ndr.DataRow.SQLInsertFile("附件",flt) '插入文件

 

改成

 

Dim bmp = getimage(flt)  '生成一个空白图片
Dim g = Graphics.FromImage(bmp)
Dim fnt As New Font("黑体",40)
Dim msg As String = "foxtable"
g.DrawString(msg,fnt,Brushes.Red,20,40)  '在指定的位置,用指定的画刷和字体,绘制指定的文本
bmp.Save(flt)
bmp.Dispose()  'dispose()方法关闭的窗体可以使用pack 或 show 方法恢复,并且可以恢复到dispose前的状态

 

ndr.DataRow.SQLInsertFile("附件",flt) '插入文件


 回到顶部
帅哥哟,离线,有人找我吗?
ZJZK2018
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:767 积分:6119 威望:0 精华:0 注册:2018/2/1 17:26:00
  发帖心情 Post By:2018/10/18 16:37:00 [只看该作者]

老师如何判断一张图片的原始尺寸??

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/18 16:40:00 [只看该作者]

以下是引用ZJZK2018在2018/10/18 16:37:00的发言:
老师如何判断一张图片的原始尺寸??

 

Dim img = getimage("d:\test.jpg")
msgbox(img.width)
msgbox(img.height)


 回到顶部