V4mp
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
timex
ну если уж руками, то тогда вообще так
Sheets("Модульные").Columns("J:K").Delete Shift:=xlToLeft
быстрее выполняться будет
у меня вот тоже вопрос возник. он уже поднимался, но вроде как решения не нашли(
запускаю немодальную форму с кнопочкой свернуть.
Модуль и функция открытия формы
Код:
Option Explicit
Option Private Module
Public hwndMain As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal WindowStyles As Long) As Long
Private Declare Function ShowWindow Lib "user32.dll" _
(ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Enum WindowStyles
WS_OVERLAPPED = &H0
WS_POPUP = &H80000000
WS_CHILD = &H40000000
WS_MINIMIZE = &H20000000
WS_VISIBLE = &H10000000
WS_DISABLED = &H8000000
WS_CLIPSIBLINGS = &H4000000
WS_CLIPCHILDREN = &H2000000
WS_MAXIMIZE = &H1000000
WS_BORDER = &H800000
WS_DLGFRAME = &H400000
WS_VSCROLL = &H200000
WS_HSCROLL = &H100000
WS_SYSMENU = &H80000
WS_THICKFRAME = &H40000
WS_GROUP = &H20000
WS_TABSTOP = &H10000
WS_MINIMIZEBOX = &H20000
WS_MAXIMIZEBOX = &H10000
WS_CAPTION = WS_BORDER Or WS_DLGFRAME
WS_TILED = WS_OVERLAPPED
WS_ICONIC = WS_MINIMIZE
WS_SIZEBOX = WS_THICKFRAME
WS_OVERLAPPEDWINDOW = WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
WS_TILEDWINDOW = WS_OVERLAPPEDWINDOW
WS_POPUPWINDOW = WS_POPUP Or WS_BORDER Or WS_SYSMENU
WS_CHILDWINDOW = WS_CHILD
End Enum
Public Sub FormStart(fForm As MSForms.UserForm, bMax As Boolean)
Application.EnableCancelKey = xlDisabled
hwndMain = FindWindow("ThunderDFrame", fForm.Caption)
Do While hwndMain = 0
hwndMain = FindWindow("ThunderDFrame", fForm.Caption)
DoEvents
Loop
If bMax = True Then
SetWindowLong hwndMain, -16, WS_CAPTION + WS_SYSMENU + WS_MINIMIZEBOX + WS_MAXIMIZEBOX '+ WS_SIZEBOX
Else
SetWindowLong hwndMain, -16, WS_CAPTION + WS_SYSMENU + WS_MINIMIZEBOX '+ WS_MAXIMIZEBOX '+ WS_SIZEBOX
End If
DoEvents
ShowWindow hwndMain, 1
End Sub
|
А теперь проблема. При сворачивании формы она сворачивается в таскбар внизу, как и надо. Однако при сворачивании самого эксэля элемент формы пропадает из таскбара внизу и остается только элемент эксэля. При повторном разворачивания эксэля элемент формы опять появляется в таскбаре.
Как можно сделать, чтобы и при сворачивании эксэля в таскбаре внизу оставалось два элемента - сам эксэль и запущенная форма?? |
Всего записей: 65 | Зарегистр. 04-12-2008 | Отправлено: 14:02 28-04-2012 | Исправлено: V4mp, 14:10 28-04-2012 |
|
.
