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

[µo°Ý] ´£¨ú"userform"¨½¨Ï¥Îªº¹Ï¤ù¤å¥ó

[µo°Ý] ´£¨ú"userform"¨½¨Ï¥Îªº¹Ï¤ù¤å¥ó

¨D±Ð:½Ð±Ð¦Ñ®v±Ð±Ð§Ú¦p¦ó¤~¯à´£¨ú"userform"¨½¨Ï¥Îªº¹Ï¤ù¤å¥ó.
§Ú¦Û¤v§äªº"ÂI³¯¹Ï"size¤Ó¤j,§Úªºuserform¥Îmultypage(¦³5­¶),¥Î¤F5±i¤jsize¹Ï¤ù°µ­I´º,µ²ªG74kªº¤å¥óÅܦ¨1074k.ù©R.
§ä¨ì¤@­Óuserformªº­I´º¹Ï,size¤£¤j,¦ý§Ú¤£ª¾¹D¦p¦ó´£¨ú¨º­Óuserformªº­I´º¹Ï¤å¥ó.
ÁÂÁÂÀ°¦£!!!
lmh

¦^´_ 1# mhl9mhl9
  1. Option Explicit
  2. Private Sub UserForm_Initialize() 'ªí³æªì©l¤Æ®Éªºµ{¦¡
  3. Me.Picture = LoadPicture(pathname) '´£¨ú¨º­Óuserformªº­I´º¹Ï¤å¥ó
  4. End Sub
  5. '** Picture ÄÝ©Ê
  6. '** »yªk
  7. '** Object.Picture = LoadPicture(pathname)
  8. '** Picture Äݩʪº»yªk¨ã¦³¥H¤U´X­Ó³æ¤¸:
  9. '** ³æ¤¸ »¡©ú
  10. '** object ¥²­nªº¤Þ¼Æ¡C«ü¤@­Ó¦³®Äª«¥ó¡C
  11. '** pathname ¥²­nªº¤Þ¼Æ¡C¹Ï§ÎÀɪº§¹¾ã¸ô®|¡C
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

¥i¯à§Ú¨S¦³§â¦Û¤vªº­n¨DÁ¿²M·¡,§Ú¦³¤@­Ó¤å¥ó¨½¦³¤@userform,¥¦ªº­I´º¹Ï«Ü¦n,§Ú·Q¨ú¥X¥Î¦b¨ä¥Luserform¨½,§Ú¨S¦³¹Ï¤ù¤å¥ó,¥Î§Aªº¤èªk¸Õ¤F,¨ú¤£¥X¹Ï¤ù.
ÁÙ¬O­nÁÂÁ§A.
lmh

TOP

¦^´_ 3# mhl9mhl9
­n°ª¤âÀ°¦£¤F,¦]§Ú¤]¨ú¤£¥X¹Ï¤ù.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD