★★★敬请留意★★★：和微软一模一样的记事本的源代码（3）

 

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const EM_GETLINECOUNT = &HBA'Private Const EM_SCROLL = &HB5'Private Const SB_LINEDOWN = 1Dim Sline As IntegerDim Lcount As Integer

 

'End Sub

Private Sub Command1_Click()  Dim i As Integer  Form1.Text1.SelStart = 0  Form1.Text1.SetFocus  Sline = SendMessage(Form1.Text1.hwnd, EM_GETLINECOUNT, 0&, 0&)  Lcount = CInt(Text1.Text)  If Lcount <= Sline Then      For i = 1 To Lcount - 1    SendKeys "{DOWN}"    Next i    Form3.Hide  Else    MsgBox "line over range"      End If  'Unload Form3 ' Form3.Text1.SetFocusEnd Sub

Private Sub Command2_Click()Unload MeEnd Sub

Private Sub Form_Activate()Form_LoadEnd Sub

Private Sub Form_Load()

Text1.SelStart = 0If Text1.Text = "" Then    Text1.Text = 0Else    Text1.Text = LcountEnd If

Text1.SelLength = Len(Lcount)Form3.ShowForm3.Text1.SetFocusEnd Sub