你可能感兴趣的试题
Text1_KeyDown、Text1_KeyPress、Text1_Change、Text1_KeyUp Text1_KeyDown、Text1_KeyUp、Text1_KeyPress、Text1_Change Text1_KeyDown、Texd1_KeyPress、Texd1_Change、Textl_KeyPress Text1_KeyDown、Text1_Change、Text1_KeyPress、Test1_KeyUp
Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub Private Sub Label1_Click() Label1.Caption=Text1.Text End Sub
Private Sub Label1_Click() Label1. Caption = Text1. Text End Sub Private Sub Label1_Change() Label1. Caption = Text1. Text End Sub Private Sub Text1_Click() Label1. Caption = Text1. Text End Sub Private Sub Text1_Change() Label1. Caption = Text1. Text End Sub
Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End Sub Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub Private Sub Text1_Change() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelStart=Len(Text1.text) End sub
Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Private Sub Text1_SetFocus() Text.SelStart=0
Private Sub Text1_change() Label1.Caption=Text1.Text End Sub Private Sub Text1_click() Label1.Caption=Text1.Text End Sub Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub Private Sub Label1_Click() Label1.Caption=Text1.Text End Sub
repol!text1 Forms!text1 Reports!repo1!text1 Report!text1
Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelStart=Len(Text1.text)
End Sub Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelStart=Len(Text1.text)
End sub Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelStart=Len(Text1.text)
End sub Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelStart=Len(Text1.text)
End sub
Private Sub Command1_Click() Dim p As Person name=Text1. Text major=Text2. Text Open"C:/dat dat" For Random As #1 Put #1, 1, p Close #1 End Sub Private Sub Command1_Click() Dim p As Person name=Text1.Text major=Text2. Text Open"C:/dat dat" For Random As #1 Get #1, 1, p Close #1 End Sub Private Sub Command1_Click() Dis p As Person name=Text1. Text major=Text2. Text open "C:/dat dat" For Random As #1 Len=Len( Put #1, 1, p Close #1 End Sub Private Sub Command1_Click() Dim p As Person name=Text1. Text major=Text2. Text Open "C:/dat dat" For Random As #1=Len( Get #1, 1, p Close #1 End Sub
Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Private Sub Text1_LostFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Private Sub Text1_SetFocus() Text.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub
Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub Prirate Sub Text1_LosFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
repo1!text1 Forms!text1 Reports!repo1!text1 Report!text1
Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub Private Sub Text1_Change()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub Private Sub Text1_SetFocus()
Text.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub Private Sub Label1_Click() Label1.Caption=Text1.Text End Sub
Index Option1.Index Option1(Inde Option1(IndValue
Text1.text=欢迎使用VB Text1=”欢迎使用VB” Text1.text=’欢迎使用VB’ Text1.caption=”欢迎使用VB”
Text1. Enabled = False
Text1.Alignmem = 2 Text1. Enabled = False
Text1. Alignment = 0 Text1. Enabled = True
Text1. Alignment = 0 Text1. Enabled = True
Text1. Alignment = 1
Text1. Enabled = False Text1.Alignmem = 2 Text1. Enabled = False Text1. Alignment = 0 Text1. Enabled = True Text1. Alignment = 0 Text1. Enabled = True Text1. Alignment = 1
Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Prirate Sub Text1_LosFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub