input自動(dòng)換行并自適應(yīng)高度 VB怎樣獲取text的行數(shù),包括自動(dòng)換行的?
VB怎樣獲取text的行數(shù),包括自動(dòng)換行的?Private Declare Function SendMessage Lib“user32”Alias“SendMessageA”(ByVal hwnd
VB怎樣獲取text的行數(shù),包括自動(dòng)換行的?
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 EMu GETLINECOUNT=&HBA
Private Sub Command1u Click()
txtLineCount=SendMessage(Text1.hwnd,EMu GETLINECOUNT,0,0)“Msgbox txtLineCount
結(jié)束Sub”