denisdenmm
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
может кто-нибудь спасёт, вопрос такой, если LsitBox уже заполнен, а в нём 5 колонок и например нужно вытащить в выбранной строке число из 5-й колонки. как можно такое сделать, не прибегая к дополнительным вычислениям в ячейках, с которых LsitBox грузится.
кстати, если кому надо, то вот код который убирает крестик с формы
вставляется ...., да короче создаём форму, сразу в неё вставляем, а потом можно дальше чудить
Private Declare Function FindWindow _
Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong _
Lib "user32.dll" Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong _
Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Sub UserForm_Initialize()
Dim ihWnd As Long, iStyle As Long
ihWnd = FindWindow(vbNullString, Me.Caption)
iStyle = GetWindowLong(ihWnd, -16&)
SetWindowLong ihWnd, -16&, iStyle And Not &H80000
End Sub
Добавлено:
и ещё вопрос назрел, а вот если в ListBox слово не помещается, оно естественно обрезается, а можно ли сделать так чтобы то, на чём находится курсор мышки увеличивалось до полного размера слова, ну как в сводной таблице, например |
