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

[µo°Ý] ¦p¦ó±Nªí³æ¤ºªºmultipage¼W³]ª«¥óÃþ§O©O¡H

¦^´_ 10# dechiuan999
  1. Private Sub mPage_Change()
  2.     Select Case mPage.Value
  3.     Case 0
  4.          EmailForm1.TextBox2.SetFocus
  5.     Case 1
  6.         EmailForm1.TextBox4.SetFocus
  7.     End Select
  8. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

·PÁ   «e½ú´£¨Ñ~¬Ý¹L¨ü¯q¨}¦h!!!

TOP

¦^´_ 12# GBKEE


    ÁÂÁª©¥D¤j¤j¡C
¤p§Ì¹ïª«¥óÃþ§OÁ`¬O¤£±o
¨äªù¦Ó¤J¡A¹ï¦Û¤w´£°Ýªº°ÝÃD
¤]±`¦³¤£ª¾©Ò¤ª¡C½Ðª©¥D¤j¤j¨£½Ì¡C
¤p§Ì¤´¦³¤£¤F¸Ñ¤§³B¬O
¤w±Ntextbox¼W³]¤Fª«¥óÃþ§O
Public WithEvents mTxt As MSForms.TextBox
Public Property Set Tb(setTb As MSForms.TextBox)
    Set mTxt = setTb
End Property
¦¹¥Î³~¤S¬°¦ó©O¡H

TOP

¦^´_ 14# dechiuan999
¤@¯ë¼Ò²Õ
  1. Option Explicit
  2. Dim A As New Class1
  3. Sub Ex()
  4.     ActiveSheet.[A1] = "THE TEST"
  5.     With A
  6.         Set .sPage = ActiveSheet
  7.         MsgBox .XX.[A1].Text
  8.     End With
  9. End Sub
½Æ»s¥N½X
ª«¥óÃþ§O¼Ò²Õ
  1. Option Explicit
  2. Public XX As Object
  3. Public Property Set sPage(setPage As Object)
  4.     Set XX = setPage
  5.     MsgBox XX.Name
  6. End Property
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD