- ©«¤l
- 103
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 139
- ÂI¦W
- 0
- §@·~¨t²Î
- wondows XP
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¹ü¤Æ
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2015-6-26
|
¸m¤J¹Ï¤ù
·Q½Ð°Ý¤j¤j
¥Ø«e§Ú¦b¬ã¨s¤@Ó¥\¯à
¦pªG¸ê®Æ§¨¸Ì±¦³N±i¹Ï¤ù
§ÚªºTest¶ÅÒµe±¥u¦³9®æÄæ¦ì
«ö¤U«ö¶s«áµ{¦¡·|±N¬Û¹ïÀ³ªº¹Ï¤ù¶×¤J(²»¨£¹Ï¤ù)
¦ý¬O¦pªG¶W¹L9®æÄæ¦ì
¯à¤£¯à¦Û°Ê½Æ»s¬Û¦Pªº¶ÅÒ
¦A§â³Ñ¤U¨S¦³©ñ¶i¥hªº¹Ï¤ù¸m¤J
§Ú¥Ø«e¦³¤â°Ê¹Á¸Õ¹L½Æ»s¶ÅÒ
¦ý¬OImage©R¦W¤£·|Åܦ¨ Image10~Image18
n«ç»ò¼Ë¤~¯à¸Ñ¨M¥Ø«eªº²~ÀV><
§Æ±æ¯à¦³¯«¤H«ü¤Þ§Ú¤è¦V...- Private Sub CommandButton1_Click()
- '----Ū¤J¹Ï¤ù
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\1.jpg") <> "" Then
- Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\1.jpg")
- Else
- Image1.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\2.jpg") <> "" Then
- Image2.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\2.jpg")
- Else
- Image2.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\3.jpg") <> "" Then
- Image3.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\3.jpg")
- Else
- Image3.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\4.jpg") <> "" Then
- Image4.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\4.jpg")
- Else
- Image4.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\5.jpg") <> "" Then
- Image5.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\5.jpg")
- Else
- Image5.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\6.jpg") <> "" Then
- Image6.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\6.jpg")
- Else
- Image6.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\7.jpg") <> "" Then
- Image7.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\7.jpg")
- Else
- Image7.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\8.jpg") <> "" Then
- Image8.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\8.jpg")
- Else
- Image8.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
- If Dir(ThisWorkbook.Path & "\" & "Test" & "\9.jpg") <> "" Then
- Image9.Picture = LoadPicture(ThisWorkbook.Path & "\" & "Test" & "\9.jpg")
- Else
- Image9.Picture = LoadPicture(ThisWorkbook.Path & "\white.jpg")
- End If
-
-
- End Sub
½Æ»s¥N½X |
|