Dim m_token As LongPrivate Sub Form_paint() ‘Form上显示 Dim pImg As Long Dim pGraphics As Long Dim w As Long, h As Long Call GdipCreateFromHDC(Me.hDC, pGraphics) Call GdipLoadImageFromFile(
如果是VB6的话，直接在控件的Index属性里面设置值为4，就是Image2(4)了,通过选择Image2控件，复制后粘贴为数组控件也行得通。VB2005和以上的话，只能把11个aicAlphaImage控件放到一个Panel容器控件里面，然后可以用 Panel1.Controls.Item(0).BackgroundImage的Item(x)这种下标来获取aicAlphaImage控件的Back...
不用控件可能比较麻烦，网上有使用zlibVB.dll读取png的例子。后面给你一个网址里面有例子的源代码可以下载。参考资料：http://www.codefans.net/soft/3350.shtml 你得改成jpg,或gif啊
t = (Picture1.Height - Picture1.ScaleHeight) / 2 '求上下边偏差 Picture1.PaintPicture Me.Picture, 0, 0, , , Picture1.Left + l, Picture1.Top + t, Picture1.ScaleWidth, Picture1.ScaleHeight '载入图片,就用这行 'Picture1.PaintPicture Me.Image, 0, 0, , , Picture1...
Dim bitmap2 As New Bitmap(294, 294)’保存图，也就是绘制的大小。Dim rect1 As New Rectangle(New Point, bitmap2.Size)‘昨天的问题，这里似乎写错了，当然也不算错，只是把新图（小图）扩展成原图大小（大图），这里改正为新图的原大小。Dim rect2 As New Rectangle(New Point(6, 6), ...
打开压缩图网站，在导航栏选择图片转ico功能，点击选择文件进行图片上传。将需要转换的图片上传到网站（原图宽高不一致时选择尺寸会造成画面变形，可先使用压缩图图片压缩指定大小修改原图尺寸）。根据自己的需求，选择图标尺寸，调整后开始转换。图片转换成ico之后，点击保存图片，下载到电脑，上传使用即可。
你的属性SET里是针对【上】这个类的改变，你如果这样写是触发不了属性改变的：ButtonTop.背景 = Image.FromFile("C:/1.png")正确的处理办法应该是new一个【上】类的对象，初始化时进行赋值就可以了 Me.ButtonTop = New Class1() With {.背景 = Image.FromFile("C:/1.png")} ...
