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

[µo°Ý] ¦p¦óÅý·Æ¹«²¾¤Jªº§PÂ_¥u§PÂ_¤@¦¸~·í¦³§ïÅÜ®É~¦A§ïÅÜ!?

·í·Æ¹««ü¨ìCheckBox1ªº®É­Ô¸õ¥X¤@±i¹Ï~¸Ó¦p¦ó¤U§PÂ_¦¡?

·í·Æ¹««ü¨ìCheckBox1ªº®É­Ô¸õ¥X¹Ï1
·í·Æ¹«²¾¶}CheckBox1ªº®É­ÔÃö³¬¹Ï1

·í·Æ¹««ü¨ìCheckBox2ªº®É­Ô¸õ¥X¹Ï2
·í·Æ¹«²¾¶}CheckBox2ªº®É­ÔÃö³¬¹Ï2

¥H¦¹Ãþ±À~

TOP

¦^´_ 1# av8d
­Ó¤H´¿¸g¥Î¹L¦p¦¹§@ªk

Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
         Image1.Picture = LoadPicture("")   
         Image1.Picture = LoadPicture(ThisWorkbook.Path & "\¹Ï®w\³W®æ1.JPG")
Private Sub CheckBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
        Image1.Picture = LoadPicture("")   
         Image1.Picture = LoadPicture(ThisWorkbook.Path & "\¹Ï®w\³W®æ2.JPG")
¶È¯à¦bCheckBox1    CheckBox2  ¤W§@¤å³¹
¥\¤O¶È¨ì¦¹ ¦Ü©ó´å¼Ð¨ì¨ä¥LªÅ¥Õ³B°µ Image1.Picture = LoadPicture("")   ¨ø¸ü¹Ï¤ù   §Ú´N¤£·|¤F

TOP

¦^´_  av8d
­Ó¤H´¿¸g¥Î¹L¦p¦¹§@ªk

Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal ...
yangjie µoªí©ó 2012-9-6 02:08

¶·¥ý¦buserform1¤¤§@¤@­Ó imageªºª«¥ó

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2012-9-7 11:26 ½s¿è

¦^´_ 1# av8d

¸Õ¸Õ
play.gif
·Æ¹«.zip (49.37 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ¤Ó±j¤F~

¦³ÂI²`¶ø~§Ú¬Ý¤£¤ÓÀ´~§V¤O¾Ç²ß¤¤!

¦p¦ó¦bImage2¤º©ñ2±i¹Ï?

TOP

¦^´_ 5# av8d

³o­Óªº­«ÂI¦b©ó¦p¦óÅý·Æ¹«¦³Ãþ¦ü·Æ¥Xªº¨Æ¥ó
¦]¬°ªí³æ¤Îªí³æª«¥ó¥u¦³MOUSEMOVE¨Æ¥ó
¦Óªí³æ»Pª«¥óªºMOUSEMOVE¨Æ¥ó¤£·|¦P®É¦s¦b
´N¥i¨Ì¦¹°µ¬°¬O§_IJ¤Îª«¥óªº°Ñ¦Ò
¦Ü©ó§A¥u¬Ý¨ìImage2
¨º¬O2­ÓImageª«¥ó­«Å|¦Ó¤w
¤§©Ò¥H­nª½±µ§G¸m¦h­ÓImageª«¥ó¡A³o¼Ë¥iÁקK¹ÏÀÉ¥²¶·±aµÛ¨«ªº°ÝÃD
¦pªG§A¤£¤¶·N§â¹ÏÀÉ¥²»Ý¸òµÛÀɮסA´N¥i°Ñ¦Ò2#ªº§@ªk
¨Ï¥Î³æ¤@­ÓImageª«¥ó¡AµM«á¥ÎLoadPicture¨ÓÅܧó¹Ï¤ù
Á`¤§¡A¤èªk¤£¥u¤@­Ó¡A¦Û¤v°Ê°Ê¸£·|¦³§ó¦h¦¬Ã¬
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh
º}«G
H¤j¤jªº"¦Óªí³æ»Pª«¥óªºMOUSEMOVE¨Æ¥ó¤£·|¦P®É¦s¦b
                  ´N¥i¨Ì¦¹°µ¬°¬O§_IJ¤Îª«¥óªº°Ñ¦Ò
"
Åý§Ú·Q¨ì¦p¦¹§@ªk
         Private Sub Userform1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
                  Image1.Picture = LoadPicture("")   
        end sub
        Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
                  Image1.Picture = LoadPicture("")   
                  Image1.Picture = LoadPicture(ThisWorkbook.Path & "\¹Ï®w\³W®æ1.JPG")
         end sub
         Private Sub CheckBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
                 Image1.Picture = LoadPicture("")   
                 Image1.Picture = LoadPicture(ThisWorkbook.Path & "\¹Ï®w\³W®æ2.JPG")
        end sub
  §Y¥i¤@Â÷¶}CheckBox1ªº½d³ò §Y¨è ¨ø¸ü¹Ï§Î

TOP

¦^´_ 7# yangjie


    ¤j¤j~ÁÂÁ§A~

¥i¬O§Ú´ú¸Õ¤F¤@¤U
         Private Sub Userform1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
                  Image1.Picture = LoadPicture("")   
        end sub
¦n¹³¨S¦³®ÄªG~§Ú½T©w¬O¦bUserform1©³¤U¹B¦æ~

TOP

¦^´_ 8# av8d

·Æ¹«.rar (33.53 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

[µo°Ý] ¦p¦óÅý·Æ¹«²¾¤Jªº§PÂ_¥u§PÂ_¤@¦¸~·í¦³§ïÅÜ®É~¦A§ïÅÜ!?

Private Sub Userform1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Picture = LoadPicture("")   


Private Sub CheckBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Image1.Picture = LoadPicture("")   
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\¹Ï®w\³W®æ1.JPG")


¥Ñ©ó¨C·í·Æ¹«²¾°Ê¨ìªº¨C¤@¦¸~Image1·|¤@ª½°{Ã{~¬O§_¦³¿ìªkÅý¥L¥u§PÂ_¤@¦¸?·í¦³§ïÅÜ®É~¦A¦¸§PÂ_~¦A¦¸§ïÅÜ!
1

µû¤À¤H¼Æ

    • GBKEE: §A¦³³\ªº¥DÃD¬O¥i¥H¦b­ìªº¥DÃDÄ~Äòµo°Ý,¬O ...ª÷¿ú -2

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD