使VB编写的播放器支持外挂字幕SRT、ASS格式的文件

本人花了很长时间研究外挂字幕SRT、ASS、SSA格式的文件，其编码之复杂，基本上能够用VB解析这些编码了。其目的，是想用VB编写的播放器直接支持SRT、ASS、SSA外挂字幕的自动和手工加载。虽然第三方外挂字幕插件VSFilter和AviSynth不错，但经常会遇到加载不上的问题，决定放弃，转而自己弄。Sub、IDX字幕我弄不来，但搞这些字幕还是可以的。现在有一个问题就是做的字幕太单调，没有立体感，就问一下大家像下面这个图显示的字体每个笔划的周围的黑色笔划是如何绘制出来的（注意不是字体阴影，是每个笔划周围的黑色），这种字体很漂亮，想摸仿：

---

占沙发............

---

引用

板凳........支持!!

新年好!!

嘿嘿，老马第一个来，提前祝大家春节快乐!

---

引用

VB codeOptionExplicitPrivateSub PrintText(ByVal xAsLong, ByVal yAsLong, ByVal TextAsString)Dim iAsLongDim jAsLong

Me.ForeColor= vbBlackFor i=-1To1For j=-1To1If (i<>0)Or (j<>0)Then
?-

老鸟的不错，太好了！我记得，几年前蒋老大蒋晟（jiangsheng）给了一个网友办法，因为当时没有收藏，就是找不到！自己又不好意思向他提问！你的方法，没想到不用API，这么简单！过了春节后就结帐！

---

简单就是美！

---

引用

简单就是美！

谢谢老鸟！不过有一个突出的问题：用像素座标的话，当字体较小时，填充的字体就会变成点阵状，这是不希望的结果，应该还是连续的。因为叠加在视频上的字幕是要随视频窗口的缩放而缩放的。所以我改成了缇座标，并且作了改进，这样就对了：
V