VBNet - Форум - Размер экрана

Вопрос: Размер экрана Добавлено: 04.03.09 19:17

Автор вопроса: KiZ

Приветствую.
Для формы перед показом ставлю ее размеры таким образом:

IntWidth = Screen.Width / Screen.TwipsPerPixelX
UserForm1.Width = IntWidth
IntHeight = Screen.Height / Screen.TwipsPerPixelY
UserForm1.Height = IntHeight

Но сразу же на первой строке ошибка(((... может что подключить надо, или скажите как подругому???
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #1	Добавлено: 04.03.09 19:27
	А что такое Screen и TwipsPerPixelX в контексте VBA? Я б на его месте тоже заругался бы. Ответить

Номер ответа: 2 Автор ответа: KiZ Вопросов: 27 Ответов: 68	Профиль \| \| #2	Добавлено: 04.03.09 21:09
	)ну так подскажи пожалуйста как это в контексте VBA сделать... Ответить

Номер ответа: 3 Автор ответа: KiZ Вопросов: 27 Ответов: 68	Профиль \| \| #3	Добавлено: 04.03.09 21:10
	Авообще хотелось бы чтобы форма закрывала полностью экран вместе с панелькой внизу, поэтому я и ещу разрешение таким образом... Ответить

Номер ответа: 4 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #4	Добавлено: 04.03.09 21:30
	В свойствах формы задай StartUpPosition = 2(-CenterScreen) Private Sub UserForm_Activate() Me.Width = Me.Width + Me.Left + Me.Left Me.Left = 0 Me.Height = Me.Height + Me.Top + Me.Top Me.Top = 0 End Sub А вот панельку внизу спрячь руками. Ответить

Номер ответа: 5 Автор ответа: KiZ Вопросов: 27 Ответов: 68	Профиль \| \| #5	Добавлено: 04.03.09 22:52
	хм... короче суть в том, что я хочу написать что-то типо блокиратора экрана. Появляется форма с картинкой, которая загораживает все, блокируется мышка в верхнем углу, блокируется ctrl+alt+del Shft+F4 (пока не думал как, мб не буду вообще) И еще при этом картинки на форме меняются)) Ну и разблокировка какой-нибудь комбинацией клавиш)) Изврат?)) твоя штука не подходит по нескольким причинам. Во первых она почему-то не во весь экран, а только в верхнем левом и по размеру начальному. а во вторых картинка даже если ставить centerzoom, не во всю форму... Ответить

Номер ответа: 6 Автор ответа: KiZ Вопросов: 27 Ответов: 68	Профиль \| \| #6	Добавлено: 04.03.09 23:33
	через апи нашел... только почему-то длинна и ширина моей формы больше раза в полтора чем разрешение экрана(( и теперь картинка больше чем надо( Ответить

Номер ответа: 7 Автор ответа: GDK Вопросов: 13 Ответов: 348	Профиль \| \| #7	Добавлено: 12.03.09 12:35
	Вчера утром почти с тем же медитировал. Правда приход быстро случился. VBA WORD. Часть рабочего кода: NewFilePath = Trim$(OFName1.lpstrFile) Set P2NewDoc = Word.Application.Documents.Open(FileName:=NewFilePath, ConfirmConversions _ :=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto) P2Stp.P2StrtDirPathNew = P2NewDoc.Path Me.TextBox13.Text = P2NewDoc.FullName Me.Label5.Caption = "Íîâûé äîêóìåíò: " + P2NewDoc.Name Call P2NewDoc.Activate P2NewDoc.ActiveWindow.Top = 0 P2NewDoc.ActiveWindow.Left = 0 P2NewDoc.ActiveWindow.Height = System.VerticalResolution / 2.5 P2NewDoc.ActiveWindow.Width = System.HorizontalResolution Call P2NewDoc.Application.ScreenRefresh В два раза больше чем надо? Может единицы измерения(твипы, пиксели, километры, попугаи, удавы) виноваты. Ответить

Номер ответа: 8 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #8	Добавлено: 13.03.09 01:31
	В слонёнках надо мерять, чтоб результат меньше получался ) Ответить

Страница: 1 |