Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Спрятать форму Добавлено: 30.12.08 17:44  

Автор вопроса:  AWР | Web-сайт: bomber.h17.ru | ICQ: 345685652 
Мне надо спрятать единственную форму при ее загрузке. Чтобы не было заметно что программа запущена. Me.visible = false и me.hide не помогают. Что делать? Кстати я на 2005 студии визуала

Ответить

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

Номер ответа: 1
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
 Профиль | | #1 Добавлено: 30.12.08 18:01
Me.visible = false и me.hide не помогают

Обязаны)
Апи:
  1. Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  2. Private Sub Form_Activate()
  3. ShowWindow Me.hwnd, 0
  4. End Sub

Для извращенцев:
  1. Private Sub Form_Load()
  2. Me.Top = -500000
  3. Me.Left = -500000
  4. End Sub

Апи для извращенцев *CRAZY*:
  1. Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
  2. Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
  3. Private Sub Form_Load()
  4. SetWindowRgn Me.hWnd, CreateRectRgn(0, 0, 0, 0), True
  5. End Sub

Апи для самых извращенных извращенцев *CRAZY*:
  1. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  2. Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
  3. Private Sub Form_Load()
  4. SetParent Me.hWnd, FindWindow("Shell_TrayWnd", "")
  5. End Sub

Ответить

Номер ответа: 2
Автор ответа:
 AWР



ICQ: 345685652 

Вопросов: 38
Ответов: 106
 Web-сайт: bomber.h17.ru
 Профиль | | #2
Добавлено: 30.12.08 18:04
:-). Мне ненужны апи. Почему могут не действовать эти которые я сверху писал?

Ответить

Номер ответа: 3
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
 Профиль | | #3 Добавлено: 30.12.08 18:11
Naix пишет:
Почему могут не действовать эти которые я сверху писал?

А хрен его знает)) Должны работать) Покажи код, может там че-то)

Ответить

Номер ответа: 4
Автор ответа:
 AWР



ICQ: 345685652 

Вопросов: 38
Ответов: 106
 Web-сайт: bomber.h17.ru
 Профиль | | #4
Добавлено: 30.12.08 18:21
Я все понял! Визуал 2005 не может прятать форму при событии load. Я написал чтобы она пряталась на событии shown а чтобы она не появлялась даже на мгновение пока прячется, я поставил свойство oracity 0%

Ответить

Номер ответа: 5
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
 Профиль | | #5 Добавлено: 30.12.08 18:40
что за фигню вы тут городите??? раз ты не хочешь показывать форму, то нафига она вообще в проекте??? просто удали ее и не парься! либо сделай консольное приложение без создания окна...

Ответить

Номер ответа: 6
Автор ответа:
 Фeнягz



Вопросов: 2
Ответов: 62
 Web-сайт: atauenis.narod.ru
 Профиль | | #6
Добавлено: 31.12.08 01:22
Создай в форме процедуру SubMain и сделай ее стартовой а Visible формы установи в False.

  1. Public Shared Sub Main()
  2.    Dim frm As New Form1
  3.    Call frm.ShowDialog()
  4. End Sub


Форма загружается, невидима, и программа работает до её выгрузки.

Ответить

Номер ответа: 7
Автор ответа:
 AWР



ICQ: 345685652 

Вопросов: 38
Ответов: 106
 Web-сайт: bomber.h17.ru
 Профиль | | #7
Добавлено: 31.12.08 03:35
что за фигню вы тут городите??? раз ты не хочешь показывать форму, то нафига она вообще в проекте??? просто удали ее и не парься! либо сделай консольное приложение без создания окна...
Надо так, и только так

Ответить

Номер ответа: 8
Автор ответа:
 Фeнягz



Вопросов: 2
Ответов: 62
 Web-сайт: atauenis.narod.ru
 Профиль | | #8
Добавлено: 31.12.08 06:28
Либо ShowInTaskbar = False, ControlBox = False, BorderStyle = None, StartupPosition = Manual, а Location = New Drawing.Point(10000, 10000)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам