vb.net – 在边缘的图像中放置文本

发布时间：2020-12-17 00:10:57 所属栏目：大数据来源：网络整理

导读：我在Visual Basic 2010中编写的这个工具应该为图像添加作者文本.用户可以设置字体不透明度和位置.为了方便起见,我想要一些位置预设,如右下角所示.我正在使用的计算是(在这种情况下右下角： Dim textSize As Size = TextRenderer.MeasureText(tagString + cur

我在Visual Basic 2010中编写的这个工具应该为图像添加作者文本.用户可以设置字体不透明度和位置.为了方便起见,我想要一些位置预设,如右下角所示.我正在使用的计算是(在这种情况下右下角：

Dim textSize As Size = TextRenderer.MeasureText(tagString + curText,curFont)
 tmpPos = New Point(srcImg.Width - textSize.Width - 10,srcImg.Height - textSize.Height - 10)

正如您所看到的,这适用于此示例图片.一些文本只是剪辑出来的地方.

第一个：1024×768 |检测到的字体大小：680×72

第二名：1688×1125 |检测到的字体大小：680×72

我怀疑这与图像的宽高比有关,但我不知道如何修复它.

文字是这样绘制的：

brush = New SolidBrush(color.FromArgb(alpha,color))
        gr = Graphics.FromImage(editImg)
        gr.DrawString(tagString + text,font,brush,pos)
        HauptBild.Image = editImg

我找到了这个http://www.codeproject.com/Articles/20923/Mouse-Position-over-Image-in-a-PictureBox,它回答了我的问题.

这个问题只出现在预览中或转换后的文件中吗？请发布代码如何保存新图像.我认为你已经在你的图片框中设置了一个尺寸模式,这就是问题所在.没有sizemode尝试它.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!