★★★敬请留意★★★：和微软一模一样的记事本的源代码（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 Long

Private Const EM_GETLINECOUNT = &HBA

'Private Const EM_SCROLL = &HB5

'Private Const SB_LINEDOWN = 1

Dim Sline As Integer

Dim 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.SetFocus

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Activate()

Form_Load

End Sub

Private Sub Form_Load()

Text1.SelStart = 0

If Text1.Text = "" Then

Text1.Text = 0

Else

Text1.Text = Lcount

End If

Text1.SelLength = Len(Lcount)

Form3.Show

Form3.Text1.SetFocus

End Sub