Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: FrameSet в HTML Добавлено: 06.12.02 23:03  

Автор вопроса:  Smith | ICQ: adamis@list.ru 
Существует ли в VB6 такая функция как FrameSet в HTML, т.е. внутри Form1 отобразить содержимое Form2?

Ответить

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

Номер ответа: 1
Автор ответа:
 CaS



ICQ: 165551179 

Вопросов: 10
Ответов: 124
  Web-сайт: www22.brinkster.com/casperz
 Профиль | | #1 		Добавлено: 07.12.02 00:08

В VB6 Есть такая вещь, как MDI Форма. Попробуй

Ответить

Номер ответа: 2
Автор ответа:
 Last_Santa



ICQ: 200700724 

Вопросов: 38
Ответов: 329
  Web-сайт: localhost
 Профиль | | #2 		Добавлено: 09.12.02 03:42

Может через апи, недавна скачал пример по размещению прогресса в статусбаре, наверное ответ на твой вопрос гдето рядом

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Const WM_USER As Long = &H400
Private Const SB_GETRECT As Long = (WM_USER + 10)

Dim Cnt As Long

Private Sub ProgressToStatus(PB As ProgressBar, SB As StatusBar, pIndex As Integer)
    Dim TR As RECT
   
    SendMessage SB.hwnd, SB_GETRECT, pIndex, TR
   
    TR.Top = (TR.Top * Screen.TwipsPerPixelY)
    TR.Left = (TR.Left * Screen.TwipsPerPixelX)
    TR.Bottom = (TR.Bottom * Screen.TwipsPerPixelY) - TR.Top
    TR.Right = (TR.Right * Screen.TwipsPerPixelX) - TR.Left
   
    SetParent PB.hwnd, SB.hwnd
    PB.Move TR.Left + 15, TR.Top + 15, TR.Right - 30, TR.Bottom - 30
End Sub

Private Sub cmdOK_Click()
    ProgressToStatus PRG, STB, CInt(txtPanel)
End Sub

Private Sub Timer_Timer()
    If Cnt = 100 Then Cnt = 0
    Cnt = Cnt + 1
    PRG.Value = Cnt
End Sub

Ответить

Страница: 1 |

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



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