¦p¦ó¦b¦Û©wªí³æ¤¤¶}±ÒJPGÀÉ®×
- ©«¤l
- 9
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-3-14
- ³Ì«áµn¿ý
- 2012-5-14
|
¦p¦ó¦b¦Û©wªí³æ¤¤¶}±ÒJPGÀÉ®×
¦U¦ì¤j¤j,
§Ú¦b¦Ûqªí³æ¤¤«Ø¥ß¤@ÓCommandButton,§Æ±æ«ö¤UCommandButton«á,¯à¶}±Ò©T©w¸ô®|¤¤ªºJPGÀÉ®×,½Ð°Ý¸Ó¥Îþ¤@Ó«ü¥O©Î¨ç¦¡?ÁÂÁ |
|
|
|
|
|
|
- ©«¤l
- 9
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 13
- ÂI¦W
- 0
- §@·~¨t²Î
- windows xp
- ³nÅ骩¥»
- sp3
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2012-3-14
- ³Ì«áµn¿ý
- 2012-5-14
|
¸Ñ¨M¤F,¥»¨Ó§Ú¥u·Qn¶}±ÒÀÉ®×,¥i¬Oµo²{icestormer ¤jªº¤èªk§ó¦n,©Ò¥H´N§ï¤F¤è¦¡,ÁÂÁÂ
§Úµ{¦¡¦p¤U:
Private Sub CommandButton6_Click()
If UserForm1.ComboBox3.Value <> "" Then
mypic = "C:\Documents and Settings\Administrator\®à±\§Q¹F«¬¿ý\" & ComboBox1.Value & "\" & ComboBox2.Value & "\" & ComboBox3.Value & ".jpg"
UserForm3.Image1.Picture = LoadPicture(mypic)
UserForm3.Show
Else
MsgBox "½Ð¿ï¾Ü²£«~!!"
End If
End Sub |
|
|
|
|
|
|