7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Shell "C:\WINDOWS\system32\mspaint.exe c:\1.gif", vbNormalFocus ' 1)...
Image1.Picture = LoadPicture("c:\1.gif") '2)...
End Sub
Private Sub Command1_Click()
CommonDialog1.Filter = "*.jpg|*.jpg|*.bmp|*.bmp|*.gif|*.gif|"
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub