怎样学习使用API(能解决问题马上给高分)

Question

你去www.allapi.net下载API-Guide软件，这是一个非常好的API参考软件，每个函数都有一个实例，还支持网上更新，完全免费。
里面的例子都非常简单，都是完全针对所介绍的函数，简短扼要。

Answer 1

Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Sub CmdExit_Click()
    End
End SubPrivate Sub CmdOk_Click()
    Dim ret As Long
    ret = SendMessageBynum(Text1.hwnd, EM_GETLINECOUNT, 0, 0&)
    Text2.Text = Str(ret)
End SubPrivate Sub Form_Load()
    Text2.Text = ""
End Sub以上是一个统计多行文本框text1内的文本行数显示在text2中的代码，你可以看见，只用了一行。其实有些API非常简单，当然有些很复杂难懂。