Отправляет email-рассылки с помощью сервиса Sendsay

Visual Basic: новости сайтов, советы, примеры кодов.

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 4.065 RSS
←   Апрель 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://vbnet.ru
Открыта: 31-07-2001

Автор
Павел Сурменок

Статистика

4.065 подписчиков
0 за неделю
←   Все выпуски   →

Visual Basic: новости сайтов, советы, примеры кодов. Выпуск 47.


Информационный Канал Subscribe.Ru Новый модный поиск - www.lycos.ru

Visual Basic: новости сайтов, советы, примеры кодов.
Выпуск 47.

VBNet VBMania
Голосование:

Ваш голос отсылается по E-mail владельцу сайта, после чего голоса анализируются и на отдельной странице выводятся результаты.

Нет тем.
Рассылки Subscribe.Ru
Мир программирования на Visual BASIC 5.0 и HTML.


Рассылки Subscribe.Ru
Старые игры
Доска почёта:

Sergey Y. Tkachev
Кононенко Роман
Kirill
Sergey Sapozhnikov
Sobic
Ссылки:

  • Улицы VB
  • Использование VB
  • Азбука VB
  • VB на русском
  • Улицы VB
  • Кирпичики VB
  • CообЧа VB
  • Snoozex Design
    		• Господа!!! читайте MSDN!!!

    Несколько слов от автора:

       Поздравляю всех космонавтов с праздником!
    Читайте!


    Содержание выпуска

    Книги

    ADO и Visual Basic. Руководство разработчика

     В книге описано использование технологии доступа к данным (ADO) с помощью основного инструмента разработки приложений Microsoft - Visual Basic 6.0. Из книги вы узнаете, как можно исследовать источники данных при помощи окна Data View, как создавать формы для ввода и запроса данных, используя связанные элементы управления, и подсоединяться к источникам данных со сложной иерархической структурой средствами Data Environment. Далее вы изучите, как можно, используя Data Report, представлять информацию в форме, подходящей для печати, или как следует исполнять некоторые, наиболее широко распространенные задачи, связанные с обработкой данных, используя ADO внутри кода Visual Basic. В последних главах книги рассмотрены дополнительные операции, используемые в коде, в том числе формирование данных, для создания иерархических наборов записей, применение ADO в сети Internet и даже создание собственных источников данных. Чтобы более полно использовать средства ADO для извлечения информации из различных источников, в приложении к книге вы найдете справочник по языку SQL, в котором обсуждаются основы работы с оператором SQL SELECT.

    Автор: Гандерлой М.
    Издательсвто: Энтроп, Век
    Год издания: 2001
    Кол-во страниц: 336
    Стоимость: 177 р.
    Формат: 70х100/16
    Переплёт: мягкий

    Excel, VBA, Internet в экономике и финансах

     Книга является руководством по использованию Microsoft Excel, разработке офисных бизнес-приложений средствами VBA и конструированию Web-страниц на базе DHTML и VBScript. Рассматриваются приемы создания отчетной финансовой и экономической документации средствами MS Excel, способы анализа и обработки собранной информации для принятия на ее основе оптимального решения; даются ответы на вопросы, которые возникают у программиста при разработке автоматизированных и интегрированных систем с помощью VBA; описываются особенности конструирования пользовательских элементов управления ActiveX, а также написания Windows-сценариев. Большое внимание уделено принципам создания интерактивных Web-страниц, виртуальных каталогов и магазинов. Книга содержит уникальную коллекцию типичных примеров. Почти каждая глава заканчивается списком упражнений, способствующих закреплению материала

    Автор: Гарнаев А
    Издательсвто: BHV - Санкт - Петербург
    Год издания: 2001
    Кол-во страниц: 816
    Стоимость: 230 р.
    Формат: 70х100/16
    Переплёт: мягкий

    MCSD. Сертификационный экзамен 70-175. Разработка распределенных приложений на Visual Basic 6.0. Учебный курс (+ CD-ROM)

     Настоящий учебный курс рекомендован корпорацией Microsoft как официальное пособие для подготовки к экзамену 70-175 «Designing and Implementing Distributed Applications with Microsoft Visual Basic 6.0» по программе сертификации разработчиков программных решений на основе продуктов Microsoft (Microsoft Certified Solutions Developer, MCSD). Эта книга познакомит Вас с основными понятиями, концепциями и методами, необходимыми для разработок распределенных программных решений на базе Visual Basic 6.0.

    Автор: MCSD Training Kit
    Издательсвто: Русская Редакция
    Год издания: 2000
    Кол-во страниц: 400
    Стоимость: 272 р.
    Формат: 70х100/1670х100/16
    Переплёт: мягкий

    Microsoft Visual Basic 5.0

     В книге рассматривается новая пятая версия Microsoft Visual Basic - языка программирования, являющегося фактическим стандартом визуального проектирования приложений. Описываются общие черты Visual Basic, реализованные в нем концепции объектно-ориентированного программирования, среда разработки (IDE). Далее рассматривается объектно-ориентированная модель Visual Basic и доступные разработчику объектные компоненты. Подробно описываются технологии программирования на языке Visual Basic и SQL, отладка и оптимизация кода приложения, вопросы компиляции исполняемых модулей. В последующих главах освещаются практические вопросы построения приложений - работа с текстом и графикой, механизмы доступа и управления данными, работа с внешними базами данных и создание приложений клиент/сервер. Книга предназначена для широкого круга программистов, работающих в области обработки данных и информационных систем.

    Автор: Шмидт В
    Издательсвто: ABF
    Год издания: 1997
    Кол-во страниц: 688
    Стоимость: 85 р.
    Формат: 84x108/16
    Переплёт: мягкий

    Microsoft Visual Basic 6.0

     Нет описания

    Автор: Лабор В, Макарчук Д
    Издательсвто: нет данных
    Год издания: 2001
    Кол-во страниц: 160
    Стоимость: 60 р.
    Формат: 70х100/16
    Переплёт: мягкий

    Microsoft Visual Basic 6.0. Мастерская разработчика (+ CD-ROM)

     Книга состоит из 3 частей (34 главы) и предметного указателя. Написанная живо и доходчиво, она позволит освоить множество полезных приемов программирования, в том числе объектно-ориентированного, и научит, как создавать 32-разрядные приложения для Windows 95/98 и Windows NT — от экранных заставок до программ, ориентированных на Интернет. Кроме того, Вы узнаете, как расширить возможности языка за счет функций Win32 API и воспользоваться преимуществами технологии ActiveX.

    Автор: Джон Кларк Крейг, Джефф Уэбб
    Издательсвто: Русская Редакция
    Год издания: 2001
    Кол-во страниц: 720
    Стоимость: 272 р.
    Формат: 70х100/16
    Переплёт: твёрдый

    VB Script и ActiveX

     Книга предназначена для разработчиков Web - приложений на языке VBScript, желающих повысить свой профессиональный уровень и стать экспертами в этой области. В ней подробно рассказывается о новых возможностях VBScript, включая использование именованных констант, функций, переменных и коллекций, приводится вся необходимая информация о технологии ActiveX, принципах взаимодействия VBScript и Visual Basic при создании приложений, работающих на сервере. Прочитав эту книгу, вы научитесь использовать звуковые эффекты, создавать анимированную графику, строить формы для ввода данных, узнаете, как с помощью VBScript создать в Web электронный магазин и отслеживать число посетителей и деланные ими покупки. Вы даже сумеете написать увлекательную мультимедийную игру для Web.

    Автор: Скотт Палмер
    Издательсвто: Питер
    Год издания: 1999
    Кол-во страниц: 368
    Стоимость: 94 р.
    Формат: 70х100/16
    Переплёт: мягкий

    VBA 2000. Самоучитель

     В книге содержится краткий курс по использованию языка и системы VBA для Word и Excel 2000. Книга предназначена для начинающих программировать в среде Windows 95/98 с использованием в качестве базовых таких объектов Word и Excel, как документы, рабочие книги, листы и так далее. Материала книги достаточно для создания как простых макросов, помогающих автоматизировать рутинную повторяющуюся работу над документами и электронными таблицами, так и для разработки достаточно сложных приложений, обрабатывающих данные в диалоговых окнах, обеспечивающих пользователя самыми современными интерфейсными средствами.

    Автор: Кузьменко В
    Издательсвто: Бином
    Год издания: 2000
    Кол-во страниц: 416
    Стоимость: 116 р.
    Формат: 70х100/16
    Переплёт: мягкий

    Visual Basic 6 Desktop. Экзамен 70-176

     Книги серии Экзамен – экстерном представляют собой удобные, сжатые, хорошо структурированные конспекты для подготовки к сдаче сертификационных экзаменов на звание Microsoft Certified Solution Developer. Книга Visual Basic 6.0 Desktop. Экзамен 70-176 содержит только действительно необходимый материал, типовые вопросы с ответами и пример экзамена. Возможно, некоторые подходы, применяемые автором, покажутся вам не совсем привычными - не удивляйтесь: это не учебник по Visual Basic; организация материала в этой книге призвана максимально облегчить задачу экзаменуемого. Учтите, что в ряде случаев экзаменационные вопросы выходят за рамки тем, отраженных в документации по Visual Basic, а иной раз правильные ответы на них даже входят в противоречие с официальной информацией.

    Автор: Майкл Макдоналд
    Издательсвто: Питер
    Год издания: 2001
    Кол-во страниц: 608
    Стоимость: 123 р.
    Формат: 60x90/16
    Переплёт: мягкий

    Visual Basic 6. Руководство разработчика (+ CD-ROM)

     Эта книга, написанная известным специалистом и неутомимым пропагандистом Visual Basic, представляет собой прекрасный путеводитель по одному из наиболее популярных визуальных средств разработки Windows-приложений. Подробно освещаются такие ключевые темы программирования на Visual Basic, как проектирование и использование элементов ActiveX, программирование баз данных и разработка Web-приложений. Несомненный интерес представляют главы, посвященные работе с графикой. Большое количество тщательно продуманных примеров облегчает восприятие материала. Подбор материала и стиль изложения делают издание интересным и полезным для программистов разных уровней.

    Автор: Евангелос Петрусос
    Издательсвто: BHV, Ирина, SYBEX Inc
    Год издания: 2000
    Кол-во страниц: 1072
    Стоимость: 267 р.
    Формат: 70x100/32
    Переплёт: твёрдый


    Остальные книги о VB можно найти     здесь.

    наверх

    Выравнивание формы относительно экрана

    Добавьте 3 CommandButton на форму. Вставьте следующий код

    Private Sub Form_Load()
    Form1.Top = Screen.Height / 2 - Form1.Height / 2
    End Sub
    Private Sub Command1_Click()
    Form1.Left = 0
    End Sub
    Private Sub Command2_Click()
    Form1.Left = Screen.Width / 2 - Form1.Width / 2
    End Sub
    Private Sub Command3_Click()
    Form1.Left = Screen.Width - Form1.Width
    End Sub

    наверх

    Ограничить перемещение одной формы в пределах другой

    'Начните новый проект, добавьте в события формы1 (Form1) следующий код

    Private Sub Form_Load()
    Load Form2
    Form2.Show
    End Sub

    'добавьте еще одну форму (под именем Form2). Вставьте на форму2 следующий код:

    Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
    Private Sub Form_Load()
    r = SetParent(Me.hWnd, Form1.hWnd)
    End Sub

    'Запустите проект на выполнение. Данный код ограничит передвижение второй формы относительно первой формы.



    наверх

    Создать Gradient-форму (с использованием API)

    Добавьте 2 CommandButton

    Private Type TRIVERTEX
    x As Long
    y As Long
    Red As Integer
    Green As Integer
    Blue As Integer
    Alpha As Integer
    End Type
    Private Type GRADIENT_RECT
    UpperLeft As Long
    LowerRight As Long
    End Type
    Const GRADIENT_FILL_RECT_H As Long = &H0
    Const GRADIENT_FILL_RECT_V As Long = &H1
    Private Declare Function GradientFillRect Lib "msimg32" Alias "GradientFill" (ByVal hdc As Long, pVertex As TRIVERTEX, ByVal dwNumVertex As Long, pMesh As GRADIENT_RECT, ByVal dwNumMesh As Long, ByVal dwMode As Long) As Long
    Private Sub Form_Load()
    Me.ScaleMode = vbPixels
    End Sub
    Private Function LongToUShort(ULong As Long) As Integer
    LongToUShort = CInt(ULong - &H10000)
    End Function
    Private Function UShortToLong(Ushort As Integer) As Long
    UShortToLong = (CLng(Ushort) And &HFFFF&)
    End Function
    Private Sub Command2_Click()
    Cls
    End Sub
    Private Sub Command1_Click()
    Dim vert(1) As TRIVERTEX
    Dim gRect As GRADIENT_RECT
    With vert(0)
    .x = 0
    .y = 0
    .Red = 0&
    .Green = &HFF&
    .Blue = 0&
    .Alpha = 0&
    End With
    With vert(1)
    .x = Me.ScaleWidth
    .y = Me.ScaleHeight
    .Red = 0&
    .Green = LongToUShort(&HFF00&)
    .Blue = LongToUShort(&HFF00&)
    .Alpha = 0&
    End With
    gRect.UpperLeft = 1
    gRect.LowerRight = 0
    'Замените GRADIENT_FILL_RECT_H на GRADIENT_FILL_RECT_V чтобы рисовать вертикальную прорисовку
    GradientFillRect Me.hdc, vert(0), 2, gRect, 1, GRADIENT_FILL_RECT_H
    End Sub

    наверх

    Создать градиент-форму #2

    Этот пример создает Form/Picture Box с фоном, например как в инсталяционной программе
    Установите свойство формы AutoRedraw в True.

    рисунок примера

    Sub Gradient(TheObject As Object, ByVal Redval As Long, ByVal Greenval As _
    Long, ByVal Blueval As Long, ByVal Direction As Integer)
    Dim Step As Integer, Reps As Integer, FillTop As Integer
    Dim FillLeft As Integer, FillRight As Integer, FillBottom As Integer
    If Direction < 1 Or Direction > 4 Then Direction = 1
    FillTop = 0
    FillLeft = 0
    If Direction < 3 Then
    Step = (TheObject.Height / 100)
    If Direction = 2 Then FillTop = TheObject.Height - Step
    FillBottom = FillTop + Step
    FillRight = TheObject.Width
    Else
    Step = (TheObject.Width / 100)
    If Direction = 4 Then FillLeft = TheObject.Width - Step
    FillRight = FillLeft + Step
    FillBottom = TheObject.Height
    End If
    For Reps = 1 To 100
    If Direction = 2 And Reps = 100 Then FillTop = 0
    If Direction = 4 And Reps = 100 Then FillLeft = 0
    Redval = Redval - 3
    Greenval = Greenval - 3
    Blueval = Blueval - 3
    If Redval <= 0 Then Redval = 0
    If Greenval <= 0 Then Greenval = 0
    If Blueval <= 0 Then Blueval = 0
    TheObject.Line (FillLeft, FillTop)-(FillRight, FillBottom), RGB(Redval, _
    Greenval, Blueval), BF
    If Direction < 3 Then
    If Direction = 1 Then
    FillTop = FillBottom
    Else
    FillTop = FillTop - Step
    End If
    FillBottom = FillTop + Step
    Else
    If Direction = 3 Then
    FillLeft = FillRight
    Else
    FillLeft = FillLeft - Step
    End If
    FillRight = FillLeft + Step
    End If
    Next Reps
    End Sub
    Private Sub Form_Load()
    'Поэкспериментируйте над цифрами 200, 100, 300
    'Замените "1" на 2, 3 или 4
    Gradient Me, 200, 100, 300, 1
    'Gradient Picture1, 200, 100, 300, 1
    End Sub

    Private Sub Form_Resize()
    'Положите здесь те же номера, что и выше
    Gradient Me, 200, 100, 300, 1
    'Gradient Picture1, 200, 100, 300, 1
    End Sub

    наверх

    Создание всплывающей панели

    У каждого юзера, работающего в операционной системе Windows'98 есть панель задач (это панелька, на которой находится кнопка ПУСК). Некоторые любят в настройках этой панели установить значение "Автоматически убирать с экрана", и тогда панель будет автоматически убираться, когда она не активна. Так вот этот пример покажет, как можно средствами VB создать такую всплывающую справа панельку, подобную панели задач. Проект сырой, то есть вы можете его доработать, как вам заблагорасудится. Если вы что-то измените в этом проекте,     дайте мне знать.

    Создайте новый проект. Положите на форму компонент Timer. В свойствах формы укажите:
    .AutoRedraw = True
    .Borderstyle="0"
    .MinButton = False
    .MaxButton = False
    .ShowInTaskbar = False
    Вставьте следующий код:

    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Private Type POINTAPI
    x As Long
    y As Long
    End Type
    Private Type Formsize
    Left As Long
    Top As Long
    Width As Long
    Height As Long
    End Type

    Private Const MaxSize = 50
    Private Const MinSize = 1
    Private Const Fade = False ' Установите данное значение либо True либо False

    Private Sub Command1_Click()
    Unload Me
    End Sub
    Private Sub Form_Load()
    Timer1.Interval = 50
    Form_Resize
    End Sub
    Private Sub Form_Resize()
    Me.Move Screen.Width - (MinSize * Screen.TwipsPerPixelX), 0, (MaxSize * Screen.TwipsPerPixelX), Screen.Height
    Me.Cls
    Me.Line (0, 0)-(0, Me.Height), &HFFFFFF
    End Sub
    Private Sub Timer1_Timer()
    Dim a As POINTAPI
    Dim Form As Formsize
    Dim CurCut As Long

    Form.Width = Me.Width / Screen.TwipsPerPixelX
    Form.Left = Me.Left / Screen.TwipsPerPixelX
    Form.Height = Me.Height / Screen.TwipsPerPixelY
    Form.Top = Me.Top / Screen.TwipsPerPixelY
    Call GetCursorPos(a)
    If a.x >= Form.Left And a.x < Form.Left + Form.Width And a.y >= Form.Top And a.y < Form.Height + Form.Top Then
    If Me.Tag <> "0" Then
    If Fade = True Then
    CurCut = 1
    Do Until Me.Left - (CurCut * Screen.TwipsPerPixelX) <= Screen.Width - (MaxSize * Screen.TwipsPerPixelX)
    Me.Left = Me.Left - (CurCut * Screen.TwipsPerPixelX)
    DoEvents
    Loop
    Me.Move Screen.Width - (MaxSize * Screen.TwipsPerPixelX), 0, (MaxSize * Screen.TwipsPerPixelX), Screen.Height
    Else
    Me.Move Screen.Width - (MaxSize * Screen.TwipsPerPixelX), 0, (MaxSize * Screen.TwipsPerPixelX), Screen.Height
    End If
    Me.Tag = "0"
    End If
    Else
    If Me.Tag <> "1" Then
    If Fade = True Then
    CurCut = 1
    Do Until Me.Left + (CurCut * Screen.TwipsPerPixelX) >= Screen.Width - (MinSize * Screen.TwipsPerPixelX)
    Me.Left = Me.Left + (CurCut * Screen.TwipsPerPixelX)
    DoEvents
    Loop
    Me.Left = Screen.Width - (MinSize * Screen.TwipsPerPixelX)
    Else
    Me.Left = Screen.Width - (MinSize * Screen.TwipsPerPixelX)
    End If
    Me.Tag = "1"
    End If
    End If
    End Sub

    наверх

    Как перетаскивать форму за любое место

    Данный пример покажет вам, как можно перетаскивать форму за любое ее место. Достаточно вставить указанный ниже код, и...

    Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Declare Sub ReleaseCapture Lib "User32" ()
    Private Const WM_NCLBUTTONDOWN = &HA1
    Private Const HTCAPTION = 2

    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Dim ReturnValue As Long
    If Button = 1 Then
    Call ReleaseCapture
    ReturnValue = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End If
    End Sub

    наверх

    Мои программы

    BalloonMessage for MS Agent

       BalloonMessage for Microsoft Agent реализует диалог программы с пользователем, используя при этом технологию Microsoft Agent. OCX реализует три типа диалоговых окон: InputBox, MsgBox и MsgLabels.

    Автор: Шатрыкин Иван. Соавтор: Павел Сурменок.

    наверх

    Вопрос/Ответ

    Здесь Вы можете задать вопрос, или ответить на уже имеющиеся вопросы.

    Вопросы:

    Автор вопроса:     Саша

    Ответ ожидается по этому адресу

       Как проиграть Gif анимацию.

    Автор вопроса: Игорь

    Ответ ожидается по этому адресу

       Набросал такой код:

         hWnd = GetDesktopWindow
         hDC = GetDC(hWnd)
        hPen = CreatePen(0, 1, RGB(255, 0, 0))
         SelectObject hDC, hPen
         GetWindowRect hWnd, lpRect
         lngStep = 10
         For lngI = lpRect.Top To lpRect.Bottom Step lngStep
             MoveToEx hDC, lpRect.Left, lngI, lpPoint
             LineTo hDC, lpRect.Right, lngI
         Next
         For lngI = lpRect.Left To lpRect.Right Step lngStep
             MoveToEx hDC, lngI, lpRect.Top, lpPoint
             LineTo hDC, lngI, lpRect.Bottom
         Next
         ReleaseDC hWnd, hDC

    Все типы и апи объявил. Код рисует сетку на рабочем столе, так вот в WIN95 это работает, а WIN98,WIN2K не работает. В чем причина конфуза?

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

    Ответ ожидается по этому адресу

       Как подключиться к интернету без Winsock1.Connect

    Автор вопроса: Кирилл

    Ответ ожидается по этому адресу

       Подскажите как на VB 5.0 запустить файл (к примеру doc,xls,rar...),чтоб при этом открывалось связанное с ним приложение (WINWORD.EXE, EXCEL.EXE, WINRAR.EXE) и открывало соответствующий с ним файл (doc,xls,rar...).

    Автор вопроса: Алексей

    Ответ ожидается по этому адресу

       Если есть какой-нибудь *.dll, то как узнать какие в н?м есть функции.

    Автор вопроса: Саша

    Ответ ожидается по этому адресу

       Как в DirListBox увидеть скрытые папки.

    Автор вопроса: Саша

    Ответ ожидается по этому адресу

       Где можно скачать описание Function, Sub, Class и т.д. которые есть в библиотеках dll, ocx с примерами. Хотя бы тех которые устанавливаются в месте с VB

    Автор вопроса: Александр

    Ответ ожидается по этому адресу

       Какой скрипт вставляется для того,чтобы поситители сайта могли оставлять свои обьявления

    Автор вопроса: Ревягин_Алексей

    Ответ ожидается по этому адресу

       Никто не знает как сделать так, чтобы программа дописывалась сама в себя

    Автор вопроса: Ревягин_Алексей

    Ответ ожидается по этому адресу

       Народ, как вести поиск по базе данных отдельного слова (к примеру, в некоторой строке

       ("фывывф фыв ыф ыф ыф ввыф QWERTY лыфвд")
       
    находится слово 'QWERTY', его и надо найти )

    Автор вопроса: Ревягин_Алексей

    Ответ ожидается по этому адресу

       SetMenuItemBitmaps hMenu, GetMenuItemID(GetSubMenu(hMenu, 0), 0), MF_BITMAP, LoadResPicture(101, vbResBitmap), LoadResPicture(101, vbResBitmap)
    SetMenuItemBitmaps hMenu, GetMenuItemID(GetSubMenu(hMenu, 0), 1), MF_BITMAP, LoadResPicture(104, vbResBitmap), LoadResPicture(104, vbResBitmap)
    SetMenuItemBitmaps hMenu, GetMenuItemID(GetSubMenu(hMenu, 0), 2), MF_BITMAP, LoadResPicture(107, vbResBitmap), LoadResPicture(107, vbResBitmap)

    1) Почему при каждом вызове PopupMenu или просто при нажатии на кнопку меню появляются разные картинки, имеющиеся у меня на форме, а не которые надо(из файла ресурсов либо с формы(например:

    SetMenuItemBitmaps hMenu, GetMenuItemID(GetSubMenu(hMenu, 0), 2), MF_BITMAP,Picture1(0).Picture),Picture1(0).Picture)))

    2)как из файла ресурсов читать: GIF'ы, JPG, EXE? (BMP в 5 раз больше по размеру чем соответстующий ему GIF или JPG)

    Автор вопроса: Владимир

    Ответ ожидается по этому адресу

       Почему не соядается объект функцией GetObject, хотя функция CreateObject работает нормально? Подключаемое приложение написано на VB и имеет тип ActiveX EXE.



    Ответы:

    Вопрос:

       У меня у формы Borderstyle="0," как мне программно поменять его на 1 или 2, если написать просто form1.borderstyle="1," то ничего не происходит.

    Ответ:

    Автор ответа: Rafis

    Менять стиль(BorderStyle) формы просто присвоением своойству значения нельзя, однако другие элементы поддерживают такие операции.

    Вопрос:

       У меня у формы Borderstyle="0," как мне программно поменять его на 1 или 2, если написать просто form1.borderstyle="1," то ничего не происходит.

    Ответ:

    Автор ответа: Igoryk

    Это невозможно сделать, потому что свойство BorderStyle доступно только для чтения во время выполнения, а, следовательно, изменению не подлежит.

    Вопрос:

       Что такое hwnd. Что можно сделать зная hwnd чужего окна.

    Ответ:

    Автор ответа: Rafis

    hWnd является идентификатором окна или кокого-либо объекта.Этот параметр в основном используется при работе с API функциями.

    Можете заполнить эту форму, либо отослать вопрос СЮДА

    Форма для добавления нового вопроса в этот раздел. Информация отсылается по E-mail владельцу сайта.
    Текст сообщения:
    Ваше имя
    E-mail для ответа

    наверх

    Выпуск подготовили:

    		 Сурменок Павел
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу
    В избранное