- ©«¤l
- 231
- ¥DÃD
- 55
- ºëµØ
- 0
- ¿n¤À
- 293
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- KEELUNG
- µù¥U®É¶¡
- 2010-7-24
- ³Ì«áµn¿ý
- 2018-8-28
|
[µo°Ý] ¦p¦ó¦bmultipageªí³æ¤º±N¤å¦r¤è¶ôÃþ§O¶i¦æ¿é¤J¨î
¦U¦ì¤j¤j¦n¡G
¤p§Ì¹ïª«¥óÃþ§O¼Ò²Õ¡A
¤@ª½µLªkÅé·|¨ä§t·N¡C
²{¤p§Ì·Q¤Þ¥Î¤@½d¨Ò¨Ã
µy°µ×§ï¬°multipage¼Ò¦¡¦b¨ä
page1¤Îpage2¤º¦U¦³¤Ó
textbox¤å¦r¤è¶ô¡C
²{§Q¥ÎÃþ§O¼Ò²Õ¨Ó±N¤å¦r¤è¶ôÃþ§O¤Æ
¥H¶i¦æ¿é¤J¨î¡C
¤p§Ìµo²{¦bpage1¥i¹F¦¨¨ä¿é¤J¨î¡A
¦ý¦bpage2ªº¤å¦r¤è¶ô«o¤£¯à逹¨ä®ÄªG¡C
¤£ª¾¨äì¦]¬°¦ó©O¡H
¥H¤U»yªk¦p¤U¡G
ªí³æ¡÷userform1
Private Sub UserForm_Initialize()
Select Case UserForm1.MultiPage1.Value
Case 0
Dim i As Long
ReDim myTb(1 To 5)
For i = 1 To 5
Set myTb(i) = New myTbClass
Set myTb(i).Tb = Me.Controls("TextBox" & CStr(i))
Next
myTb(1).ck = 1
myTb(2).ck = 2
myTb(3).ck = 3
myTb(4).ck = 2
myTb(5).ck = 1
Case 1
Dim j As Long
ReDim myTb(6 To 10)
For j = 6 To 10
Set myTb(j) = New myTbClass
Set myTb(j).Tb = Me.Controls("TextBox" & CStr(j))
Next
myTb(6).ck = 1
myTb(7).ck = 2
myTb(8).ck = 3
myTb(9).ck = 2
myTb(10).ck = 1
End Select
End Sub
module1
Sub ufshow()
UserForm1.Show vbModeless
End Sub
ª«¥óÃþ§O¼Ò²Õ¡÷myTbClass
Option Explicit
'Ãþ§O¼Ò²ÕmyTbClass
Private WithEvents myTb As MSForms.TextBox
Private myCkType As Long
Public Property Set Tb(setTb As MSForms.TextBox)
Set myTb = setTb
End Property
Public Property Get Tb() As MSForms.TextBox
End Property
Public Property Let ck(setCk As Long)
myCkType = setCk
End Property
Public Property Get ck() As Long
End Property
Private Sub myTb_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case myCkType
Case 1
'©Úµ´¼Æ¦r¥H¥~ªº¿é¤J
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
KeyAscii = 0: Beep
End If
Case 2
'©Úµ´¼Æ¦r,"-"¥H¥~ªº¿é¤J
If (KeyAscii >= Asc("0") And _
KeyAscii <= Asc("9")) Or KeyAscii = Asc("-") Then
Else
KeyAscii = 0: Beep
End If
Case 3
'©Úµ´¼Æ¦r,"^¤å¤j¼g"¥H¥~ªº¿é¤J
If (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Or _
(KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Then
Else
KeyAscii = 0: Beep
End If
End Select
End Sub
ÁÂÁ¦U¦ì¤j¤j¡C |
-
-
txtBox.rar
(13.24 KB)
|