Public Sub I_touxiang(ByVal file As String, ByVal Graphics As Long, Width As Long, Height As Long, Optional SavePath As String) '做这个是因为昨天晚上雅铭居士的论坛登录器的有需要.一个利用GDI +制作的QQ头像效果 'By 2019.2.16 22:00 InkHin Dim Bitmap As Long, bmW As Long, bmH As Long Dim B
原生的VB6不支持PNG个图片,因为刚有VB的时候还没有PNG的概念呢.不过,利用GDI+加载解析个PNG简直是砍瓜切菜般简单. GDI+的模块是我在网上下载的,地址应该是:http://vistaswx.com/blog/article/gdip-tutorial-6-image 上代码: 'code by lichmama from cnblogs.com '@vb6.0 gdi+ png Private Sub DrawPng(ByVal pngfile As String, _ &, _