已屏蔽 原因:{{ notice.reason }}已屏蔽
{{notice.noticeContent}}
~~空空如也
<code class="language-c">Public Shared Function LoadString(ByRef Context As String, ByRef Brush As System.Drawing.Brush, ByVal Size As Integer, ByVal FontName As String, _
                                          Optional ByVal BorderWidth As Integer = 1, Optional ByVal Width As Integer = 1600, Optional ByVal Height As Integer = 64) As DxImage
            Dim Image As System.Drawing.Bitmap = New System.Drawing.Bitmap(Width, Height)
            Dim GDI As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Image)
            Dim FontFamily As System.Drawing.FontFamily = New System.Drawing.FontFamily(FontName)
            Dim Font As System.Drawing.Font = New System.Drawing.Font(FontFamily, Size, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Pixel)
            GDI.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias
            GDI.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High

            For o = 0 To Math.PI * 2 Step Math.PI / 16
                For i = 1 To BorderWidth Step 1
                    GDI.DrawString(Context, Font, System.Drawing.Brushes.Black, i * Math.Cos(o), i * Math.Sin(o))
                Next i
            Next o

            GDI.DrawString(Context, Font, Brush, 0, 0)

            Dim SoftHandle As Integer = DX.MakeARGB8ColorSoftImage(Image.Width, Image.Height)
            Dim TmpColor As New System.Drawing.Color()
            For i = 0 To Image.Width - 1 Step 1
                For j = 0 To Image.Height - 1 Step 1
                    TmpColor = Image.GetPixel(i, j)
                    DX.DrawPixelSoftImage(SoftHandle, i, j, TmpColor.R, TmpColor.G, TmpColor.B, TmpColor.A)
                Next j
            Next i

            'Dim Data As System.Drawing.Imaging.BitmapData = New System.Drawing.Imaging.BitmapData()
            'Data = Image.LockBits(New System.Drawing.Rectangle(0, 0, Image.Width, Image.Height), System.Drawing.Imaging.ImageLockMode.ReadOnly, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
            Dim TmpImage As DxImage = New DxImage(DX.CreateGraphFromSoftImage(SoftHandle), Image.Width, Image.Height)
            'Image.UnlockBits(Data)
            DX.DeleteSoftImage(SoftHandle)
            GDI.Dispose() : Image.Dispose() : Font.Dispose() : FontFamily.Dispose()
            Return TmpImage
        End Function
</code>

感觉贴图加载代码和我这边思路类似,都是以内存为中介 我之前是用的。。硬盘。。。

文号 / 827858

十步芳草
名片发私信
学术分 0
总主题 16 帖总回复 250 楼拥有证书:进士 机友 笔友
注册于 2013-03-09 20:15最后登录 2023-09-08 15:08
主体类型:个人
所属领域:无
认证方式:手机号
IP归属地:未同步

个人简介

XAUT, NSDN

Touhou and more.

文件下载
加载中...
{{errorInfo}}
{{downloadWarning}}
你在 {{downloadTime}} 下载过当前文件。
文件名称:{{resource.defaultFile.name}}
下载次数:{{resource.hits}}
上传用户:{{uploader.username}}
所需积分:{{costScores}},{{holdScores}}下载当前附件免费{{description}}
积分不足,去充值
文件已丢失

当前账号的附件下载数量限制如下:
时段 个数
{{f.startingTime}}点 - {{f.endTime}}点 {{f.fileCount}}
视频暂不能访问,请登录试试
仅供内部学术交流或培训使用,请先保存到本地。本内容不代表科创观点,未经原作者同意,请勿转载。
音频暂不能访问,请登录试试
投诉或举报
加载中...
{{tip}}
请选择违规类型:
{{reason.type}}

空空如也

插入资源
全部
图片
视频
音频
附件
全部
未使用
已使用
正在上传
空空如也~
上传中..{{f.progress}}%
处理中..
上传失败,点击重试
等待中...
{{f.name}}
空空如也~
(视频){{r.oname}}
{{selectedResourcesId.indexOf(r.rid) + 1}}
处理中..
处理失败
插入表情
我的表情
共享表情
Emoji
上传
注意事项
最大尺寸100px,超过会被压缩。为保证效果,建议上传前自行处理。
建议上传自己DIY的表情,严禁上传侵权内容。
点击重试等待上传{{s.progress}}%处理中...已上传,正在处理中
空空如也~
处理中...
处理失败
加载中...
草稿箱
加载中...
此处只插入正文,如果要使用草稿中的其余内容,请点击继续创作。
{{fromNow(d.toc)}}
{{getDraftInfo(d)}}
标题:{{d.t}}
内容:{{d.c}}
继续创作
删除插入插入
插入公式
评论控制
加载中...
文号:{{pid}}
加载中...
详情
详情
推送到专栏从专栏移除
设为匿名取消匿名
查看作者
回复
只看作者
加入收藏取消收藏
收藏
取消收藏
折叠回复
置顶取消置顶
评学术分
鼓励
设为精选取消精选
管理提醒
编辑
通过审核
评论控制
退修或删除
历史版本
违规记录
投诉或举报
加入黑名单移除黑名单
查看IP
{{format('YYYY/MM/DD HH:mm:ss', toc)}}
ID: {{user.uid}}