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

[µo°Ý] Ãö©ó ª«¥ó¼h¦¸

[µo°Ý] Ãö©ó ª«¥ó¼h¦¸

°µ¤F¤@­Ó¤À­¶¥\¯à¡A¥\¯à¬OOK¡A¦ý«o­l¥Í¥X¨â­Ó°ÝÃD..
1.ª«¥ó¼h¦¸¡G¦pªG³Ð¤@­Ó Image ©M Multipage¡A ­n«ç¨Ï Image ©ñ¦b Multipage ¤W  §Y¬° Image ¦b¤W Multipage¦b¤U                       (¦³¬d¬ÝF1¸ê®Æ¦ü¥GµL¬ÛÃö¤¶²Ð
2.­Y·Q©ó pageX ·s¼W Image ¥B©ñ¸m¡A¸Ó§ï­þÃä¡H                (¦³¬d¬ÝF1¸ê®Æ¦ü¥GµL¬ÛÃö¤¶²Ð           ( X ¬°¨ä¥L¤À­¶
  1. Private Sub CommandButton1_Click()
  2.     Dim myForm1
  3.     Dim myMultiPage1 As MSForms.MultiPage
  4.     Dim myImage1 As MSForms.Image
  5.      

  6.     '°ÊºA·s¼W myImage ±±¥ó
  7.     Set myImage1 = _
  8.             UserForm1.Controls.Add("forms.image.1")
  9.     '³]¸m¸ÓMultiPageªº¦WºÙ¡B°ª«×¡B¼e«×¡B¦ì¸mµ¥
  10.     With myImage1
  11.          .Left = 130
  12.          .Top = 40
  13.          .Width = 100
  14.          .Height = 100
  15.     End With

  16.     '°ÊºA·s¼WMultiPage±±¥ó
  17.     Set myMultiPage1 = _
  18.             UserForm1.Controls.Add("forms.MultiPage.1")
  19.     '³]¸m¸ÓMultiPageªº¦WºÙ¡B°ª«×¡B¼e«×¡B¦ì¸mµ¥
  20.     With myMultiPage1
  21.          .Left = 40
  22.          .Top = 20
  23.          .Width = 100
  24.          .Height = 100
  25.     End With
  26.    

  27. End Sub
½Æ»s¥N½X

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

­è§ä¨ì¤èªk¤F..
¥]ªGÂæ...


A(B)....
multipage(image)

  ¦h°µ¦h·Q¦h¾Ç²ß¡A¤Ö¬Ý¤Ö¿ù¤Ö°g³~

  ¦h°µ=¦h¦h½m²ß¡A¦h¦h½s¼g¡C
  ¦h·Q=·Q·Q¬°¤°»ò¤H®aµ{¦¡­n¨º¼Ë¼g¡A¦pªG´«¦¨¦Û¤v¡A¤S·|«ç¼g¡C
  ¦h¾Ç²ß=¾Ç²ß¤H®aªºµo°Ý¨Ã¸Ñµª¡A¾Ç²ß¤H®aªº¼gªk

  ¤Ö¬Ý=¥u¬Ý¤£°µ¤]ªPµM

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD