Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyFileName As String = "xtreme.bmp"
Dim MyImage As Image = Image.FromFile(MyFileName)
Dim MyLeft As Object = 10
Dim MyTop As Object = 50
Dim MyWidth As Object = MyImage.Width
Dim MyHeight As Object = MyImage.Height
Me.Shapes.AddPicture(MyFileName, System.Reflection.Missing.Value, _
System.Reflection.Missing.Value, MyLeft, MyTop, MyWidth, _
MyHeight, System.Reflection.Missing.Value)
End Sub
本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。
热心网友
回答时间：2024-05-15 15:22
