¦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
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
½Ð»¡²M·¡©T©w¸ô®|¤¤ªºJPGÀɮ׬Onª½±µ¶}±ÒÁÙ¬O¤Þ¥Î¨ìªí³æ¤¤¡H |
|
|
|
|
|
|
- ©«¤l
- 127
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 160
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-1
- ³Ì«áµn¿ý
- 2017-5-20
|
¦^´_ 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 |
|
|
|
|
|
|
- ©«¤l
- 1572
- ¥DÃD
- 16
- ºëµØ
- 2
- ¿n¤À
- 1521
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2016-1-13
|
Y§A¥u¬On¥´¶}¹ÏÀÉ¥ÎShell«ü¥O³Ì®e©ö
Shell "cmd /c start d:\splash.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
|
¸Ñ¨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 |
|
|
|
|
|
|
- ©«¤l
- 127
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 160
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-1
- ³Ì«áµn¿ý
- 2017-5-20
|
¦^´_ 5# hbjang
«Ü°ª¿³¦³À°§U¨ì§A.¤£¹L§O¥s§Ú¤j¤j..§Ú¤]¬OVBA·s¤â¤@ªT.. |
|
|
|
|
|
|