- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 清空图片框内容 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=168762)
-- 发布时间：2021/5/22 17:29:00
-- 清空图片框内容
请教老师，图片框PictureBox中已显示的图片，如何使用按钮清空？
-- 发布时间：2021/5/22 17:40:00
--
如果绑定的，清除绑定的单元格的内容
Dim pbx AS WinForm.PictureBox
pbx = Forms("窗口1").Controls("PictureBox1")
pbx.Image = nothing
pbx = Forms("窗口1").Controls("PictureBox1")
pbx.Image = nothing
-- 发布时间：2021/5/22 18:06:00
--
我在做图片水印的功能，调整文字大小，需要清空之前图片框内容，刷新新的内容在图片框中。请老师指点
-- 发布时间：2021/5/23 20:24:00
--
看2楼。测试了吗？写了什么代码？有什么问题？
-- 发布时间：2021/5/24 9:41:00
--
此主题相关图片如下：qq截图20210524094002.jpg
现在每次修改只能关闭窗口 重新打开制作，请教老师在不关闭窗口中，如何一次完成？
[此贴子已经被作者于2021/5/24 9:42:48编辑过]
-- 发布时间：2021/5/24 10:12:00
--
修改写了什么代码
-- 发布时间：2021/5/24 10:16:00
--
修改只是改变textbox6的内容，通过预览重新在生成一个图片。
预览代码
Dim txt As String = e.Form.Controls("Label19").text & e.Form.Controls("TextBox6").text
Dim sy As WinForm.PictureBox = e.Form.Controls("PictureBox2")
Dim dx As Integer = e.Form.Controls("ComboBox10").Value
\'
\'
Dim img As Image = Tables("证照明细").Current.DataRow.SQlLoadImage("照片")
Dim g As Graphics = Graphics.FromImage(img)
Dim fnt As New Font("微软雅黑",dx)
Dim size = g.MeasureString(txt, fnt)
g.TranslateTransform((img.width-size.width)/2, img.Height - size.height - 400) \'设置文字的绘制起点
g.RotateTransform(-30) \'逆时针旋转45度
Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(50, 0, 0, 0)) \'水印文字颜色,120是透明度,范围0~255
g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))
img.Save("c:\\sy.jpg")
g.Dispose()
sy.ImageFile = "c:\\sy.jpg"
清除代码
Dim sy As WinForm.PictureBox = e.Form.Controls("PictureBox2")
sy.Image = Nothing
-- 发布时间：2021/5/24 10:19:00
--
……
Dim semiTransBrush As new System.Drawing.SolidBrush(Color.FromArgb(50, 0, 0, 0)) \'水印文字颜色,120是透明度,范围0~255
g.DrawString(txt, fnt, semiTransBrush, new PointF(0,0))
img.Save("c:\\sy.jpg")
g.Dispose()
sy.Image = Nothing
sy.Image = img
-- 发布时间：2021/5/24 10:21:00
--
实现了，太感谢蓝老师。