使用 Picture 控制項，把它命名為 pic1。
Dim pic As stdPicture
With pic1
.AutoRedraw = True
Set pic = LoadPicture(路徑)
.PaintPicture pic, 0, 0
Set pic = LoadPicture(路徑)
l = (.Width - pic.Width * 0.56) / 2 '置中對齊
t = (.Height - pic.Height * 0.56) / 2 '置中對齊
.PaintPicture pic, l, t
End With
乘以 0.56 是把它的單位轉換成 vb 用的單位(twip)
--
VB 程式設計 倉木麻衣 PTT 星爺板 行列輸入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.58.156.43