VBNet - все что Вы хотели знать о VB, но не знали где найти!

Visual Basic, .NET, ASP, VBA, VBScript

	Библиотека кодов
	Стандартные элементы >>> Text Box

	Определить количество строк в TextBox'е
	Добавьте TextBox (установите значение MultiLine=True) и CommandButton. Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Const EM_GETLINECOUNT = &HBA Private Sub Command1_Click() Dim lngLineCount As Long On Error Resume Next lngLineCount = SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&) MsgBox lngLineCount End Sub

VBNet online (всего: 52050)

Лучшие материалы

ActiveX контролы (112)

Примеры кода (546)

Статьи по VB (136)