æ°å»ºå·¥ç¨ï¼ç¹èåï¼å·¥ç¨\é¨ä»¶\ââéï¼Microsoft Common Dialog Control 6.0
å¨çªä½ä¸å å
¥ï¼Command1ãCommonDialog1,
å°ä¸å代ç Copyå°ä»£ç çªå£ä¸ï¼
Private Sub Command1_Click() 'æ件æå¼
On Error Resume Next '设置é误å¤ç
Dim openFilename As String
With CommonDialog1
.CancelError = True
.InitDir = "C:\"
.Filter = "ä½å¾æ件(*.BMP)|*.BMP|JPEG(*.JPG;*.JPEG;*.JPE;*.JFIF)|*.JPG;*.JPEG;*.JPE;*.JFIF|GIF(*.GIF)|*.GIF|TIF(*.TIF;*.TIFF)|*.TIF;*.TIFF|æææ件|*.*"
.FilterIndex = 2
.Flags = &H200000 'å
许é¿æ件å
.ShowOpen
If Err.Number = 32755 Then Exit Sub 'è¥æåæ¶æé®ï¼åéåºè¿ç¨
openFilename = .FileName 'è·å¾è¦æå¼çæ件å
Form1.Picture = LoadPicture(openFilename)
End With
End Sub
Private Sub Form_Load()
Command1.Caption = "éæ©å¾ç"
End Sub
温馨提示:答案为网友推荐,仅供参考