ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó¦b¦Û©wªí³æ¤¤¶}±ÒJPGÀÉ®×

¦p¦ó¦b¦Û©wªí³æ¤¤¶}±ÒJPGÀÉ®×

¦U¦ì¤j¤j,
§Ú¦b¦Û­qªí³æ¤¤«Ø¥ß¤@­ÓCommandButton,§Æ±æ«ö¤UCommandButton«á,¯à¶}±Ò©T©w¸ô®|¤¤ªºJPGÀÉ®×,½Ð°Ý¸Ó¥Î­þ¤@­Ó«ü¥O©Î¨ç¦¡?ÁÂÁÂ

½Ð»¡²M·¡©T©w¸ô®|¤¤ªºJPGÀɮ׬O­nª½±µ¶}±ÒÁÙ¬O¤Þ¥Î¨ìªí³æ¤¤¡H

TOP

¦^´_ 1# hbjang


   ¤£ª¾§Aªº°µªk¬O¤£¬O¸ò§Ú°µªº¤@¼Ë

§Úªº¬O³o¼Ë
1:ªí³æ¤W¦³¤@­Ó  Image1 (¥Î¨ÓÅã¥ÜJPGÀɪº¹Ï¹³¥Î)
2:¦bcommandbutton ¤º¼g¤W

Private Sub CommandButton4_Click()
  mypic = "C:\Users\user\Desktop\XXX.jpg" '­ì©l¹Ï¹³¸ô®|¤ÎÀɦW XXX¬O¹Ï¹³ÀɦW
       Image1.Picture = LoadPicture(mypic) '¸ü¤J­ì©l³]©w¹Ï¹³ÀÉ
end sub

TOP

­Y§A¥u¬O­n¥´¶}¹ÏÀÉ¥ÎShell«ü¥O³Ì®e©ö
Shell "cmd /c start d:\splash.jpg"

TOP

¸Ñ¨M¤F,¥»¨Ó§Ú¥u·Q­n¶}±ÒÀÉ®×,¥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

TOP

¦^´_ 5# hbjang


  «Ü°ª¿³¦³À°§U¨ì§A.¤£¹L§O¥s§Ú¤j¤j..§Ú¤]¬OVBA·s¤â¤@ªT..

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD